Avatar billede mettegp Nybegynder
05. april 2006 - 19:32 Der er 2 kommentarer

hvordan indsættes et range af celler i Excel i et nyt worddok

Har fundet nedenstående kodestump på nettet, men kun teksten og indholdet af celle A2 indsættes i worddukumentet
Hvordan indsætter jeg hele tabellen alle cellerne?

Dato        Person 1          Person 2        Person 3       
01-01-2006    85    0    105    0    120    0   
08-01-2006    85    0    104    -1    118    -2   
15-01-2006    84    -1    103    -1    118    0

Sub CreateDoc()
  Dim WdApp As Object

  Selection.Copy
  On Error Resume Next
  Set WdApp = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
    Err.Clear
    Set WdApp = CreateObject("C:\Datamatiker\4_Semester\Alternative ProgramSprog\VisualBasic\Øvelser\NyUdskrivTabel2.doc")
  End If

  With WdApp
    .Visible = True
    .Documents.Add DocumentType:=0
    .Selection.TypeText "Running Word Using Automation"
    .Selection.TypeParagraph
    .Selection.TypeParagraph
    .Selection.Paste
   
    .SaveAs ("C:\Datamatiker\4_Semester\Alternative ProgramSprog\VisualBasic\Øvelser\NyUdskrivTabel2.doc")
    .Close ' close the document

  End With
  Set WdApp = Nothing

End Sub
Avatar billede bak Forsker
05. april 2006 - 20:06 #1
Du skal markere alle cellerne før du kører makroen

Sub CreateDoc()
  Dim WdApp As Object

  Selection.Copy
  On Error Resume Next
  Set WdApp = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
    Err.Clear
    Set WdApp = CreateObject("Word.Application")
  End If

  With WdApp
    .Visible = True
    .Documents.Add DocumentType:=0
    .Selection.TypeText "Running Word Using Automation"
   
    .Selection.TypeParagraph
    .Selection.TypeParagraph
    .Selection.Paste
 
    .activedocument.SaveAs ("C:\Datamatiker\4_Semester\Alternative ProgramSprog\VisualBasic\Øvelser\NyUdskrivTabel2.doc")
    .activedocument.Close ' close the document

  End With
  WdApp.Quit
  Set WdApp = Nothing

End Sub
Avatar billede mettegp Nybegynder
05. april 2006 - 23:10 #2
tak for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester