Thema: Probleme beim Kopieren Word Tabelle nach Excel

Hallo Experten,
ich habe im Forum folgende Frage gefunden, die mich auch interessiert, weiß darauf wirklich keiner eine Antwort?
Gruß OS
* Probleme beim Kopieren Word Tabelle nach Excel von Achim vom 30.11.2004 14:53:07
Beim Kopieren von Word Tabellen nach Excel (Office 97) kann ich folgendes Problem leider nicht lösen:
Zellen der Word Tabelle, die Zeilenumbrüche besitzen, werden in Excel auf mehrere Zellen verteilt. Ich möchte jedoch, dass in Excel die Zeilenumbrüche aus Word auch in der Excel-Zelle erhalten bleiben. Eine Lösung wäre Zelle für Zelle kopiert. Dies ist nicht praktikabel, da ich große Datenmengen zu bearbeiten habe.
Wer kann mir bitte mit einer einfachen Lösung helfen. Vielen Dank im Voraus!

Hallo,
habe mal etwas getestet, so funktioniert es bei mir.
'benötigt den Verweis Microsoft Word 11.0 Object Library
'je nach Version kann es auch 10.0 oder so sein

Sub WordNachExcel()
Dim objWordApp As Word.Application
Dim objWordDok As Word.Document
Dim A As Long
Dim strText As Variant
Set objWordApp = New Word.Application
objWordApp.Visible = True
Set objWordDok = objWordApp.Documents.Open(ThisWorkbook.Path & "\Dok1.doc")
For A = 1 To objWordDok.Tables(1).Range.Cells.Count
strText = objWordDok.Tables(1).Range.Cells(A)
strText = Replace(Left$(strText, Len(strText) - 1), Chr(11), Chr(10))
Cells(objWordDok.Tables(1).Range.Cells(A).RowIndex, A) = strText
Next A
Set objWordApp = Nothing
Set objWordDok = Nothing
End Sub

Gruß Tino

www.VBA-Excel.de

DANKE Tino für deine Mühe!
Leider kann ich mit deiner Antwort so nichts anfangen, meine VBA-Kenntnisse halten sich sehr im Rahmen.
Also damit deine Arbeit nicht umsonst war, brauche ich eine 1:1-Anleitung.
Was bedeutet das mit dem Verweis?
Was muß ich im Makro an meine Situation anpassen?
Vielen Dank nochmal
Gruß OS

Hallo,
auf Deinen VBA- Level habe ich nicht geachtet.
Den Verweis muss man im VBA- Editor unter Extras Verweise aktivieren.
Kenne deine Word u. Excel Datei nicht,
somit wird es schwierig etwas passendes zusammenzustellen.
Gruß Tino

www.VBA-Excel.de

Hallo Tino,
der Verweis ist aktiviert (gewesen).
Meine Dateien sind XP-Versionen und die Wordtabelle besteht aus 3 Spalten und ca. 30 Zeilen mit jeweils 2-10 Zeilenumbrüchen und die sollen in eine neue Exceltabelle kopiert werden, damit ich einfacher Zugriff habe.
Reicht dir diese Beschreibung?
Danke + Grüsse OS

Hallo,
ok Teste mal diesen Code.
Dieses Makro geht davon aus, dass sich diese Worddatei im gleichen Ordner wie die Excel befindet.
Liest die erste Tabelle im Worddokument.
Den Namen der Worddatei ("Dok1.doc") musst du noch anpassen.

Sub WordNachExcel()
Dim objWordApp As Word.Application
Dim objWordDok As Word.Document
Dim Pfad As String
Dim a As Long
Dim strText As Variant
On Error GoTo Fehler:
Application.ScreenUpdating = False
Pfad = _
IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")
Set objWordApp = New Word.Application
objWordApp.Visible = False
Set objWordDok = objWordApp.Documents.Open(Pfad & "Dok1.doc")
With objWordDok.Tables(1).Range
For a = 1 To .Cells.Count
strText = .Cells(a)
strText = Replace(Replace(strText, Chr(7), ""), Chr(13), Chr(10))
If Right$(strText, 1) = Chr(10) Then strText = Left$(strText, Len(strText) - 1)
Cells(.Cells(a).RowIndex, .Cells(a).ColumnIndex) = strText
Next a
End With
Fehler:
On Error Resume Next
objWordDok.Close False
Set objWordApp = Nothing
Set objWordDok = Nothing
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "Fehler beim lesen!"
End Sub

Gruß Tino

www.VBA-Excel.de

Hallo Tino,
ich erhalte die Fehlermeldung zur 2.Zeile: fehler beim Kompilieren, benutzerdefinierter Typ nicht definiert.
ich habe beide Dateien ineinem Verzeichnis und in Zeile 15 "dok1.doc" ersetzt.
Danke und Grüsse OS

Hallo,
kannst du mal diese Worddatei hochladen, geheime Daten kannst du ja umschreiben.
Gruß Tino

www.VBA-Excel.de

Hallo Tino,
ich habe die datei extra erstellt und auch im selben Verzeichnis wie die Exceldatei.
https://www.herber.de/bbs/user/54415.doc
Danke und Grüße OS

Hallo,
hat etwas gedauert, sorry
Teste mal
https://www.herber.de/bbs/user/54490.zip
Gruß Tino

DANKE!! Du bist der Größte und später ist besser als nie.
Es funktioniert zumindest in deiner Beispieldatei. Wenn es mir jetzt noch gelingt in meiner richtigen Datei ....., sonst wende ich mich vertrauensvoll an dich.
Beste Grüße OS

Hallo Oswald,
habe Dir mal ein Beispiel zu diesem Problem gemacht. Mehr Infos findest Du im Vba-Code als Kommentar.
https://www.herber.de/bbs/user/54222.doc
Es gibt aber noch 1 großen Haken dabei; es gehen dabei die Formatierungen verloren.
Aber vielleicht reicht es für den Anfang erstmal.
Gruß von Luschi
aus klein-Paris

Hallo Luschi,
danke dir, aber ich kanns nicht anwenden. Mein Versuch: Wordtab. kopieeren, Button klicken, in Exceltab. einfügen, ergibt nach wie vor je Umbruchzeile eine Excelzelle.
Mache ich etwas falsch? Bedenke ich bin VBA-Laie.
Gruß OS