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 worddukumentetHvordan 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