Daten aus Excel an Word übergeben
21.08.2019 20:42:41
Hugo
ich möchte Daten aus einer Excel Tabelle mit einem Button an Textmarken in Word übergeben. Den unten stehenden Code habe ich dafür zusammengebastelt. Er hat auch mal funktioniert, aber des öfteren kommt jetzt ein "Automatisierungsfehler". Weiß jemand einen Rat für mich?
Sub nachwordkopieren()
Dim appWord As Object
Dim Rechnung As Object
Set appWord = CreateObject("Word.Application")
Set Rechnung = appWord.Documents.Open("/Users/lukaskoop/Google Drive Sync/Daten/HugoWebdesign/ _
Hugowebdesign/Rechnungsmaske.docx")
appWord.Visible = True
Rechnung.Activate
Rechnung.Bookmarks("KundenName").Range.Text = Range("KundenName")
Rechnung.Bookmarks("KundenAnsprechpartner").Range.Text = Range("KundenAnsprechpartner")
Rechnung.Bookmarks("KundenStraße").Range.Text = Range("KundenStraße")
Rechnung.Bookmarks("KundenPLZ").Range.Text = Range("KundenPLZ")
Rechnung.Bookmarks("KundenOrt").Range.Text = Range("KundenOrt")
Rechnung.Bookmarks("RechnungsLeistung").Range.Text = Range("RechnungsLeistung")
Rechnung.Bookmarks("RechnungsEinzelpreis").Range.Text = Range("RechnungsEinzelpreis")
Rechnung.Bookmarks("RechnungsAnzahl").Range.Text = Range("RechnungsAnzahl")
Rechnung.Bookmarks("RechnungsBetrag").Range.Text = Range("RechnungsBetrag")
Rechnung.Bookmarks("RechnungsSumme").Range.Text = Range("RechnungsSumme")
Set appWord = Nothing
Set Rechnung = Nothing
End Sub
Anzeige