kopieren und einfügen von Tabellen aus word in excel

Ich habe ein word-Dokument, das in regelmäßigen Abständen aktualisiert. Ich kann gehen Sie in das Word-Dokument, markieren Sie den Inhalt einer gesamten Tabelle und kopieren, dann gehen Sie in ein Excel-Arbeitsblatt, und fügen Sie es. Es wird geschraubt; jedoch, ich es beheben, wie folgt:

    sht.Cells.UnMerge
    sht.Cells.ColumnWidth = 14
    sht.Cells.RowHeight = 14
    sht.Cells.Font.Size = 10

Diesem Handbuch kopieren und einfügen funktioniert unabhängig davon, ob die Tabelle hat Felder zusammengeführt.
Dann kann ich anfangen, um es zu manipulieren manuell: analysieren, prüfen, Berechnungen, etc.

Ich dies tun kann eine Tabelle zu einer Zeit, aber es ist mühsam und natürlich auch fehleranfällig.

Möchte ich automatisieren. Ich fand einige code:

Sub read_word_document()

Dim sht As Worksheet

Dim WordDoc As Word.Document
Dim WordApp As Word.Application

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False

On Error GoTo ErrHandler

Set WordDoc = WordApp.Documents.Open("Z:\mydir\myfile1.DOC", ReadOnly:=True)


j = 0
For i = 1 To WordDoc.Tables.Count
    DoEvents
    Dim s As String
    s = WordDoc.Tables(i).Cell(1, 1).Range.Text
        Debug.Print i, s
        WordDoc.Tables(i).
        Set sht = Sheets("temp")
        'sht.Cells.Clear
        sht.Cells(1, 1).Select
        sht.PasteSpecial (xlPasteAll)

    End If
Next i

WordDoc.Close
WordApp.Quit

GoTo done

ErrClose:
  On Error Resume Next

ErrHandler:

Debug.Print Err.Description

On Error GoTo 0

done:

End Sub

Natürlich würde dies nur überschreiben die gleiche Platte wieder und wieder - und das ist okay. Dies ist nur ein test. Das problem ist, dies funktioniert für Tabellen, die nicht mit verbundenen Zellen. Doch, es schlägt fehl, wenn die Tabelle verbundene Zellen. Ich habe keine Kontrolle über die Datei, die ich bekomme. Es enthält fast hundert Tabellen. Gibt es einen Weg, um die kopieren-einfügen, die GENAUE Art und WEISE, die ich tun, wenn ich die operation manuell?

InformationsquelleAutor elbillaf | 2014-02-24

  1. 4

    Etwas wie dieses:

    Sub read_word_document()

Const DOC_PATH As String = "Z:\mydir\myfile1.DOC"

Dim sht As Worksheet
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim i As Long, r As Long, c As Long
Dim rng As Range, t As Word.Table

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open(DOC_PATH, ReadOnly:=True)

    Set sht = Sheets("Temp")
    Set rng = sht.Range("A1")
    sht.Activate

    For Each t In WordDoc.Tables
        t.Range.Copy
        rng.Select
        rng.Parent.PasteSpecial Format:="Text", Link:=False, _
                    DisplayAsIcon:=False
        With rng.Resize(t.Rows.Count, t.Columns.Count)
            .Cells.UnMerge
            .Cells.ColumnWidth = 14
            .Cells.RowHeight = 14
            .Cells.Font.Size = 10
        End With

        Set rng = rng.Offset(t.Rows.Count + 2, 0)
    Next t
    WordDoc.Close
    WordApp.Quit
End Sub
    Perfekt! Danke!

    InformationsquelleAutor Tim Williams

Schreibe einen Kommentar