Word Tabelle auslesen
19.04.2015 21:51:43
go too
Hallo zusammen,
ich möchte gerne per VBA aus einer Word Datei eine Tabelle auslesen.
Und jetzt kommt's - das Auslesen soll erst ab Zeile 2 erfolgen.
Ich bekomm es aber nicht hin. Wenn ich folgende Zeile erweiter(fett), dann hängt sich Excel auf, deshalb leider keine Fehlermeldung.
Set tb = appWord.ActiveDocument.Tables(1).Cell(2, 1).Range.Text
Hier mal der funktionierende Code der ab Zeile 1 ausliest.
Private Sub Bt_DatenAusDB_Click()
Dim appWord As Word.Application
Dim i As Integer, k As Integer
Dim tb As Word.Table
Dim tx As String
ThisWorkbook.Worksheets("Tabelle1").Activate
' Anwendung Word starten
Set appWord = CreateObject("Word.Application")
' Word-Dokument öffnen
appWord.Documents.Open ThisWorkbook.Path & "\LH Datenquelle.doc"
' Erste Tabelle zuweisen
Set tb = appWord.ActiveDocument.Tables(1)
For i = 1 To tb.Rows.Count
For k = 1 To tb.Columns.Count
' Text einer Tabellenzelle inkl. Zellenende
tx = tb.Cell(i, k).Range.Text
' Zellenende löschen, Text in Zelle schreiben
Cells(i, k).Value = Left(tx, Len(tx) - 2)
Next k
Next i
' Anwendung Word beenden
appWord.Quit
End Sub