Office: Word-Tabelle nach excel exportieren

Hallo zusammen



ich arbeite derzeit an einem Problem, dass ich mit meinen geringen VBA-Kenntnissen offensichtlichr nicht lösen kann.

Ein Excel-Makro soll ein bereits bestehendes Word-Dokument öffen. In diesem Word-Dokument befindet sich eine von einer Software automatisch generierte Tabelle mit mehreren Spalten und Zeilen.

Diese Tabelle soll das Makro auf ein Tabellenblatt in der Excel-Datei kopieren, ohne Änderungen vorzunehmen.

Ich bin mir sicher, dass das nicht schwer seinn kann. Jedoch beiße ich hier ziemlich auf Granit *frown.gif*

So weit habe ich es sschon mal geschafft:


Sub wordtabelle()

Dim Btxt As Object
Dim txt As Variant

Set Btxt = CreateObject("Word.Application")
Btxt.Visible = True
Btxt.documents.Open "C:\Users\q349436\Desktop\728010006.doc"

txt = Btxt.ActiveDocument.Tables(1).Range


End Sub




Kann mir denn jemand hier helfen?
ich wäre super dankbar

:)

 

Hi,

hier mal ein Versuch
Code:

 

Hallo Chris,


vielen Dank, das finktioniert schon mal gamnz gut.
Nun habe ich aber noch das Problem, dass er nur nur die ersten Zeilen kopiert. Die zeilen, in denen die Daten stehen, werden leider nicht mir kopiert. Liegt das problem vielleicht beim Tabellenindex?

Ich habe ein Bild der Word-datei angehängt, damit man sehen kann wie die Tabelle aussieht.

Vielen Dank

Flo

 

Hi,

statt dem Bild wäre es von Vorteil die Demoworddatei anzuhängen.
*Smilie

 

Auch wieder wahr! *Smilie

 

Hi,

komische Sache..., bei mir geht es
Office 2010/13

Ich habe die Datei in c:\temp\upload.doc gelegt und das Makro ausgeführt.
Das Ergebnis ist in der Excelmappe abgebildet.

 

Ok, bei mir scheint es heute morgen dann auch zu funktionieren!
Super, danke!

Um das ganze nun zur Vollendung zu bringen, muss das Makro die zellen der Spalte G "Bemerkungen" exportieren, indem es es die LFd nr mit einer anderen Tablle abgleicht. Das sollte klappen. Das Problem jedoch:

beim kopieren der tabelle in Excel wurden Zellen verbunden, bzw. texte die in der Word in einer Zelle waren, wurden nun in mehrere geschrieben (siehe Spalte G, Zeilen 4 bis 11). für ein weiteres Makro müssen nun also auch noch die Zellen der Spalten F bis H so bernunden werden, wie es in Spalte A der Fall ist.

ich habe es gerade mit einer Zälher-Funktion versucht, sprich das Makro soll Zählen wie viele Zellen in Spalte A von der ersten LFt Nr verbunden sind und diese dan auch in den Spalten F bis H verbinden. Funzt leider gar nicht.

Weißt du Abhilfe?

Gruß

 

Hi,

das sind die harten Zeilenumbrüche chr(13) (Enter)
würden diese Umbrüche in Word mit Umschalt+Enter eingefügt werden, dann wäre alles in einer Zelle.

Die Lösung wäre auf Word/Excel zu verzichten und das in einer Datenbank zu verwalten. Habt Ihr kein ERP wo das integriert werden kann?

Mit Word und Excel ist das immer nur ein "dahinwurschteln"
*Smilie
Auf Kundenwunsch habe ich selber schon "Maßnahmenlisten" in Excel erstellt, die kann ich aber nicht zu Verfügung stellen. Nur hätten diese Kunden sich gleich eine ordentliche Datenbank angelegt, wäre dies mit Sicherheit billiger gekommen als dies mit Excel umzusetzen.

Aber zu guter Letzt....eine wirkliche Lösung wie im Moment dein Istzustand ist, habe ich nicht.

 

ERP hat hier vermutlich noch niemand gehört *Smilie

trotzdem danke, das ist mir schon sehr sehr hilfreich!

Gruß