Excel Werte an Word übergeben
15.03.2018 23:07:43
Bianca85
ich komm leider nicht weiter. Ich hab schon viel recherchiert und ausprobiert, trotzdem macht mein Code nicht das, was er soll. Vielleicht habt ihr ja eine Idee?
Und zwar möchte ich, dass unsere Mitarbeiter eine Excel-Datei befüllen. Die eingetragenen Werte sollen dann durch Klick auf einen Button an eine Word-Vorlage übergeben werden.
Meine Excel enthält momentan nur in Zelle A1 einen Wert. Dieser soll an die Textmarke in Word mit Namen Text1 übergeben werden.
Zur Zeit erhalte ich die Fehlermeldung: Laufzeitfehler 5941 das angeforderte Element ist nicht in der Sammlung vorhanden.
Version: Word und Excel 2013.
Hier wäre der Code:
Sub datenausexcel()
Dim appword As Object
Dim wrddocument As Object
On Error Resume Next
Set appword = GetObject(, "word.application")
If Err = 429 Then
Err.Clear
Set appword = CreateObject("word.application")
If Err > 0 Then
MsgBox "Es ist ein Fehler aufgetreten"
Exit Sub
End If
End If
Err.Clear
Set wrddocument = appword.documents.Open("L:\Briefe\test.dotx") 'hier ist die Word-Vorlage
If Err = 1004 Then
MsgBox "Dokument ist nicht vorhanden"
appword.Quit
Set appword = Nothing
Exit Sub
End If
On Error GoTo 0
appword.Visible = True
'Dim name1 As String: name1 = Worksheets("Tabelle1").Range("A1").Value
wrddocument.FormFields("text1").Result = Cells(1, 1)
Application.Quit
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub
Liebe Grüße,
Bianca