Herbers Excel/VBA-Archiv

VBA Word-Zellen in Excel Tabelle | Herbers Excel-Forum

• VBA Word-Zellen in Excel Tabelle von Joe183 vom 07.08.2012 10:40:09
• Crosspost MOF - von Rudi Maintaire am 07.08.2012 12:50:47

Betrifft: VBA Word-Zellen in Excel Tabelle von: Joe183
Geschrieben am: 07.08.2012 10:40:09

Hallo,

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

Betrifft: Crosspost MOF von: Rudi Maintaire
Geschrieben am: 07.08.2012 12:50:47

http://www.ms-office-forum.net/forum/showthread.php?t=291983

Beiträge aus den Excel-Beispielen zum Thema "VBA Word-Zellen in Excel Tabelle"