Visual Basic for Applications (VBA) , lässt Microsoft Skriptsprache für Excel und Word , Nutzer dieser Programme Skripts schreiben, die beschleunigen gemeinsame Aufgaben wie den Zugriff auf Daten der Tabelle . Neben der Angabe Excel-Anwender die Möglichkeit, Excel-Tabelle Daten zu verwalten , VBA bietet auch eine Möglichkeit für den Zugriff auf Tabellen in Word-Dokumenten. VBA -Entwickler bezeichnen diese Fähigkeit eines Office-Programms zu einem anderen als laufen " Automatisierung. " Ein Vorteil, dass Automatisieren von Word Datenextraktion bietet, ist das spart Zeit . Ohne Automatisierung , könnte Excel-Anwender brauchen, um mehr zeitaufwendig Methoden für die Erhebung von Daten in Excel aus Word verwenden . Anleitung
1
Erstellen eines neuen Dokuments in Word durch Drücken von " Strg- N . " Klicken Sie auf das Menü "Einfügen" und klicken Sie dann auf den "Table" -Symbol in der "Table" -Panel. Klicken Sie auf eine beliebige Zelle Symbol, um einen Tisch und geben Sie dann Daten in mindestens der oberen Reihe der Zelle ganz links zu machen. Speichern Sie das Dokument als " C: \\ WordTableData.doc " und dann schließen Sie Word . Dieser Schritt erstellt Beispieldaten, die Sie mit Excel extrahieren kannst.
2
Erstellen Sie ein neues Dokument in Excel und drücken Sie anschließend "Alt -F11 ", um den Visual Basic integrierten Entwicklungsumgebung ( IDE) in Kraft. Die IDE bietet die Möglichkeit zur manuellen Eingabe VBA -Programme , im Gegensatz zu Aufzeichnen von Makros in Excel.
3
Klicken Sie auf " Einfügen" und dann "Module" ein neues Modul für die Eingabe von Programmcode erstellen . Geben Sie den folgenden Code irgendwo in das neue Modul:
Public Sub accessTable ()
Set appWD = CreateObject (" Word.Application " )
appWD.Documents.Open Dateiname : = "C: \\ WordTableData.doc ", _
ConfirmConversions : = False , ReadOnly : = False , AddToRecentFiles : = False ,
PasswordDocument : = "" , PasswordTemplate : = "" , Revert : = False , _
WritePasswordDocument : = "" , WritePasswordTemplate : = " ", Format : = _
wdOpenFormatAuto
x = appWD.ActiveDocument.Tables ( 1) . Rows ( 1) . Cells ( 1) german
MsgBox (x)
appWD.Quit
End Sub