Microsoft Office Tutorials and References
In Depth Information
9.3.5 Export zu Word, Erstellen von Tabellen
Fori=1To3
Fork=1To5
' Tabellenzelle mit Text aus Excel-Zelle füllen
tb.Cell(i, k).Range.Text = Cells(i, k).Value
Next k
Next i
' Word-Dokument speichern mit Dateiname
appWord.ActiveDocument.SaveAs ThisWorkbook.Path _
& "\ausdaten.docx"
' Anwendung Word beenden
appWord.Quit
End Sub
Das Ergebnis:
Abbildung 9.23
Word-Tabelle mit Daten aus Excel
Zur Erläuterung:
Es wird ein neues Word-Dokument geöffnet. Dies ist nun das aktive
Dokument.
Mit Hilfe der Methode Add() der Auflistung Tables wird dem Doku-
ment eine neue Tabelle in der gewünschten Größe hinzugefügt. Diese
benötigt mindestens drei Parameter:
Tables.Add()
Ein Range -Objekt, das den Ort der neuen Tabelle bezeichnet. Mit
Range(0) erreichen Sie den Anfang der Datei.
Range(0)
Die nächsten beiden Parameter legen die Anzahl der Zeilen und
die Anzahl der Spalten der neuen Tabelle fest.
Search JabSto ::




Custom Search