Daten aus Excel an Word schicken
13.04.2021 15:24:04
PhilipMcn
nochmal eine sehr spezielle Frage an Euch:
Mit den Daten aus einer Excel Datei soll ein Protokoll in Word befüllt werden. Ich will nun ein Makro ins Excel-Dokument einbinden, auf Knopfdruck soll das Worddokument geöffnet werden, an einer Textmarke X eine Tabelle eingefügt werden (Anzahl der Zeile ist abhängig von der ANzahl an Zeichen der Ursprungstabelle) und die Tabelle dann Spalte für Spalte mit den Daten aus Excel befüllt werden. Wie kann man sowas (wenn überhaupt) realisieren?
Folgenden Code habe ich schon erfolglos ausprobiert, lediglich das Dokument wird geöffnet, _ sonst passiert aber nichts weiter:
Sub test()
Dim appWord As Object
Dim dateiname As String
Dim DS As Integer
Dim NR As Integer
DS = Worksheets("MK").Cells(Rows.Count, 1).End(xlUp).Row - 1
NR = DS + 1
On Error Resume Next
Set appWord = CreateObject("Word.application")
dateiname = "PFAD"
With appWord
.Documents.Add dateiname
.Visible = True: .WindowState = xlMaximized
End With
With appWord
.Visible = True
.Documents.Open DocPath
.Bookmarks("MK").Range.Select
With .Selection
.Tables.Add Range:=RangeSelection, NumRows:=NR, NumColumns:=1
End With
End With
End Sub