Word-Tabellen mit Excel VBA Zugriff auf

Word und Excel sind beide Anwendungen in der Microsoft Office-Suite. Word ist ein Textverarbeitungsprogramm und ein Tabellenkalkulations-Programm Excel. Zu wissen, wie Sie auf Microsoft Word-Tabellen aus Microsoft Excel zugreifen kann nützlich sein, wenn Sie mit Word-Tabellen arbeiten. Visual Basic für Applikationen (VBA) ist eine Programmiersprache, die einfach zu erlernen und anzuwenden, und in wenigen Schritten können Sie Zugriff auf eine Word-Tabelle aus Excel VBA-Code schreiben.

Anweisungen

1 Starten Sie Microsoft Office Word, wählen Sie im Menü "Einfügen" und klicken Sie auf "Tabelle". Wählen Sie eine Tabelle mit zwei Spalten und zwei Zeilen.

Klicken Sie auf die Zelle in der oberen linken und geben Sie "Spalte1", drücken Sie "Tab" in der zweiten Spalte verschieben, und geben Sie "Spalte2".

Klicken Sie auf die erste Zelle in der Zeilennummer zwei, und geben Sie "Datq1". Drücken Sie die "Tab" zum Verschieben in der zweiten Spalte und geben Sie "Data2".

Speichern Sie das Dokument "C:\", als "myTableDoc.doc."

2 Starten Sie Microsoft Office Excel zu, wählen Sie die Registerkarte "Entwicklertools" klicken dann auf "Visual Basic." Klicken Sie im Menü "Einfügen" und wählen Sie "-Modul."

Wählen Sie im Menü "Extras" und klicken Sie "Verweise...". Aktivieren Sie das Kontrollkästchen neben "Microsoft Word < Versionsnummer > Object Library". Klicken Sie auf "OK".

3 Geben Sie Folgendes ein, um das Unterprogramm "GetWordTableData" zu erstellen:

Private Sub getWordTableData()

Drücken Sie "Enter."

4 Geben Sie Folgendes ein, um neue Variablen erstellen:

Dim ClmnCnt As Integer

RowCnt As Integer Dim

5 Geben Sie Folgendes ein, um Word-Objekte zu erstellen:

Set WrdApp = CreateObject("Word.Application")

Set WrdDoc = wrdApp.Documents.Open("C:\myTableDoc.doc")

6 Geben Sie Folgendes ein, um die Tabelle in "myTableDoc.doc" durchlaufen und den Inhalt durch ein Meldungsfeld angezeigt:

For clmnCnt = 1 To wrdDoc.Tables(1).Columns.Count

For rowCnt = 1 To wrdDoc.Tables(1).Rows.Count

MsgBox wrdDoc.Tables(1).Cell(rowCnt, clmnCnt).Range.Text

Next rowCnt

Next clmnCnt7

Geben Sie Folgendes ein, um Ihre Variable aus dem Speicher freizugeben:

Set WrdApp = Nothing

Set WrdDoc = Nothing

Mit "F5" Unterroutine ausgeführt.