Von Excel nach Word
lisa
Ich benötige mal wieder kompetente Hilfe.
Mittels aufgeführten Code möchte ich Daten aus Excel nach Word kopieren.
Bis jetzt kann ich Word öffnen, aber nichts einfügen.
Die Daten sind im Zwischenspeicher, aber es kommt immer diese Meldung:
Objekt unterstützt diese Eigenschaft oder Methode nicht, in der Zeile, Selection.PasteExcelTable False, False, False
Im Zwischenspeicher befinden sich aber meine Daten, dass weis ich daher, das wenn ich strg und v drücke wird die Tabelle eingefügt.
Das wäre dann mein zweites Problem ich benötige nur die Daten, nicht die Tabelle.
Kann hierbei jemand weiterhelfen?
Private Sub CommandButton2_Click()
Dim appWord As Object
Dim docTest As Object
Dim str As String
Dim rng As Range
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Documents and Settings\Desktop\Test.txt")
Windows("388469.xls").Activate
Range("N2:V17").Copy
appWord.Visible = True
docTest.Activate
Selection.PasteExcelTable False, False, False
Set docTest = Nothing
Set appWord = Nothing
End Sub
Danke für jede Hilfe, Lisa