VBA Word-Zellen in Excel Tabelle
Joe183
ich muss aus einer großen Menge gleich aufgebauter Word-Dokumente einzelne Zellen der _
verschiedenen Tabellen in eine Excel Tabelle einfügen. Ich habe einen passenden VBA-Code _
gefunden. Nun soll ich aber einzelne Zellen kopieren, statt nur die ersten drei Spalten. Kann _ mir jemand helfen, wie ich direkt die Zellen anspreche und kopiere? Wäre euch sehr dankbar!!
Sub Übrsicht()
Dim cL As Object
Dim sPfad As String
Dim appWord As Object
Dim i As Long
Dim a As Long
Dim counter As Long
Dim cDir As String
counter = 0
'WordObject erstellen
Set appWord = CreateObject("Word.Application")
'Pfad
sPfad = "C:\Users\Desktop\test\"
cDir = Dir(sPfad & "*.docx")
Do While cDir ""
'Worddocument öffnen
appWord.Documents.Open sPfad & cDir
'Wordtabelle auslesen
'Zeilen
For a = 1 To 3
i = 0
'Spalten
For Each cL In appWord.activeDocument.Tables(1).Rows(a).Cells
i = i + 1
ActiveWorkbook.ActiveSheet.Cells(a + counter, i) = Left(cL.Range.Text, Len(cL.Range.Text) - 2)
Next
Next a
'Worddocument schliessen
appWord.activeDocument.Close savechanges:=False
'nächstes Document lesen
cDir = Dir
counter = counter + 3
Loop
'WordObject löschen
Set appWord = Nothing
End Sub
Anzeige