Office: Tabellen aus Word in Zeilen von Excel importieren

Hallo zusammen,

ich habe ein kleines Problem vor dem ich stehe. Seht euch bitte dazu die angehängte beispielhafte Word Datei an. Es gibt da Tabellen die haben je eine formatierte Überschrift bestehen aus 3 Zeilen und 2 Spalten (wobei die dritte Zeile nur eine Spalte hat). Zwischen den Tabellen ist unwichtiger Text (hier aus wikipedia *wink.gif* )

Was soll jetzt passieren?

1. Excel wird manuell geöffnet (angehängt)
2. Word Datei wird manuell geöffnet (angehängt)
3. Klick auf den Import Button in Excel und jede Tabelle samt Inhalt wird aus dem Word ins Excel kopiert. Die Besonderheit und wahrs. auch größte herausforderung wird sein, 1 Tabelle in Word = 1 Zeile und 5 Spalten in Excel.

Was noch GANZ wichtig ist und alles noch schwerer macht, es gibt noch andere Tabellen im Word (im originalen nicht im angehängten) welche aber anders strukturiert sind, d.h. 2 Spalten und vllt. 2 Zeilen oder 10 Zeilen. Diese sollten nicht kopiert werden.

Hat jemand einen schönen Code dafür? *Smilie
Achtet nicht auf de

Lieben Dank im Voraus
boulala

:)

 

Hallo,

für Berater gibt es nur eine Code aus dem Archiv, ansonsten nur mit einem entsprechenden Honorar (500 Euro / Stunde)

PHP:

         Sub iFen()
Dim wdDatei As String
wdDatei = ThisWorkbook.Path & "Bericht.docx"
With GetObject(wdDatei)
For i = 1 To .tables.Count
.tables(i).Range.Copy
ActiveCell.PasteSpecial xlPasteValues
ActiveCell.Offset(10).Select
Next i
End With
End Sub


 

Hi,

erstmal danke für die Antwort! Das mit dem Berater versteh ich nicht? Wenn du damit meinst ich sei einer, dann kommt hier deine Enttäuschung NEIN ich bin keiner. Außer Studenten sind das für dich...

Oder ist das einfach nur ein Zusatz bei all deinen Antworten?

Nichtsdestotrotz danke dir, dass du dir die Mühe gemacht hast zu antworten. *Smilie

Viele Grüße
boulala

 

Mit bisschen rumprobieren habe ich folgendes hinbekommen:

- Alle Tabellen werden aus dem Word kopiert und in die einzelnen Spalten (über Umwege) in das Excel eingefügt

Code:

Die Frage die noch offen bleibt: Wie kann ich Tabellen welche nicht das gleiche Format wie die im Word haben, außen vor lassen? Es wird nämlich Tabellen geben welche z.B. als erste Zeile nicht ID haben. Könnte man das irgendwie über eine if-Abfrage gestalten?

VG
boulala