Makro zum Excel inhalt in Word
14.10.2014 09:34:03
Martin
ich möchte mit einem Makro folgendes machen: In einer Excel Arbeitsmappe soll aus dem Arbeitsblatt "RECHNUNGEN" die zeilen A5 bis G51 in ein Word Dokument oder besser noch in eine Vorlage kopiert werden. Die VOrlage würde genau so heißen nur halt mit Dotx am ende.
hier der Code den ich geschrieben habe:
Sub NachWordKopieren()
Dim wd As Object
Range("Rechnung!A5:G51").Copy
Set wd = CreateObject("word.application")
Briefbogen = "C:\Users\Reinigung1\Desktop\Privat Martin Drewes"
Set woApp = CreateObject("word.Application")
woApp.Visible = True
Set woDocument = woApp.Documents.Open(Briefbogen.docx)
wd.Visible = True
wd.activedocument.Range.Pasteexceltable False, False, True
End Sub
leider funktioniert der nicht. Er sagt immer Laufzeitfehler 424 Objekt erforderlich. ICh versteh einfach nicht warum, er das immer sagt. Die datei ist in dem Ordner. aber vieleicht versethe ich auch zu wenig von Makros im Algemeinen. Könnt IHr mir helfen?
danke im Vorraus