Microsoft Office Tutorials and References
In Depth Information
9.3.4 Export zu Word, Erstellen von Absätzen
' Anwendung Word beenden
appWord.Quit
End Sub
Das Ergebnis:
Abbildung 9.19
Ergebnis des Imports
Zur Erläuterung:
Es wird ein Verweis auf ein Objekt vom Typ Word.Table deklariert.
Word.Table
Der Verweis zeigt später auf das erste Element der Auflistung Tables ,
also auf die erste Tabelle aus dem Word-Dokument.
Tables
Die Eigenschaften Rows und Columns umfassen die Zeilen bzw. Spal-
ten einer Tabelle. Die Eigenschaft Count liefert die jeweilige Anzahl
und dient hier als Obergrenze für die jeweilige Schleife.
Rows, Columns
Es wird auf den Text des gesamten Bereichs einer Tabellenzelle zuge-
griffen. Eine einzelne Zelle wird mit Cell(Zeilennummer, Spalten-
nummer) identifiziert.
Cell
Das Zeichen Zellenende ist Bestandteil dieses Texts. Es wird abgeschnit-
ten .
Zellenende
Der verbleibende Text wird in eine Excel-Tabellenzelle geschrieben.
9.3.4
Export zu Word, Erstellen von Absätzen
Die in Abbildung 9.20 dargestellten Inhalte eines Excel-Tabellenblatts
sollen jeweils als Absatz in ein Word-Dokument geschrieben werden.
Daten exportieren
Sub WordAbsatzExport()
Dim appWord As Word.Application
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
' Anwendung Word starten
Set appWord = CreateObject("Word.Application")
Search JabSto ::




Custom Search