Word und Excel sind beide Anwendungen in der Microsoft Office-Suite . Word ist ein Textverarbeitungsprogramm und Excel ein Tabellenkalkulationsprogramm . Zu wissen, wie Microsoft Word-Tabellen aus Microsoft Excel zugreifen können nützlich sein, wenn die Arbeit mit Word-Tabellen . Visual Basic für Applikationen ( VBA) ist eine Programmiersprache, die einfach zu erlernen und zu verwenden, und in ein paar Schritten können Sie VBA-Code schreiben, um eine Word-Tabelle aus Excel Zugriff ist . Anleitung
1

Starten Sie Microsoft Office Word , wählen Sie das 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 linken oberen und geben Sie " Spalte1 " , drücken Sie "Tab" in der zweiten Spalte und geben Sie " Column2 " zu bewegen.
< P > Klicken Sie auf die erste Zelle in Zeile Nummer zwei und geben Sie " Datq1 " . Drücken Sie die " Tab ", um der zweiten Spalte und geben Sie " Data2 " bewegen

Speichern Sie das Dokument in "C: \\ " . Als " . MyTableDoc.doc "
2

Starten Sie Microsoft Office Excel , wählen Sie die Registerkarte "Entwicklertools" klicken Sie dann auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen Sie " Module".

Wählen Sie das Menü "Extras" und dann auf " Referenzen ... " . Aktivieren Sie das Kontrollkästchen neben " Microsoft Word Object Library . " Klicken Sie auf " OK".
3

Geben Sie den folgenden , um die " getWordTableData " Unterprogramm erstellen :

Private Sub getWordTableData ()

Taste "Enter . "
4

Geben Sie die folgende neue Variablen erstellen :

Dim clmnCnt As Integer Dim

rowcnt As Integer
5

Typ folgendes zu Word-Objekte erstellen :

Set wrdApp = CreateObject (" Word.Application " )

Set wrdDoc = wrdApp.Documents.Open ( "C: \\ myTableDoc.doc " )
Seite 6

Geben Sie den folgenden in einer Schleife durch die Tabelle in " myTableDoc.doc " und zeigt seinen Inhalt durch eine Message-Box : .

clmnCnt = 1 To wrdDoc.Tables (1 ) Säulen . Graf

rowcnt = 1 To wrdDoc.Tables (1). Rows.Count

MsgBox wrdDoc.Tables (1). Zelle ( rowcnt , clmnCnt ) . Range.Text

Weiter rowcnt

Weiter clmnCnt
7

Geben Sie den folgenden , um Ihren Variable aus dem Speicher freizugeben :

Set wrdApp = Nothing

Set wrdDoc = Nothing

Presse "F5" auf Ihrer Unterroutine ausführen .