Excel kann nicht importiert werden Word-Tabellen so einfach wie möglich andere Daten. Eine Möglichkeit, Word-Tabellen in Excel ist zum ersten wandeln die Daten in den Word-Tabellen zu kommagetrennte Werte , besser bekannt als CSV bekannt. Aber das ist eine zeitintensive Aufgabe. Eine andere Lösung ist die Excel- Programmiersprache Visual Basic für Applikationen verwenden, um ein Word-Tabelle die Daten lesen und kopieren Sie sie in einer Excel-Tabelle . Mit diesem Ansatz beinhaltet die Verwendung der virtuellen Objekte von Word , einschließlich der "Table" -Objekt. Anleitung
1
Verwenden Sie den Windows Explorer um eine Word-Datei , die mindestens eine Tabelle in den Ordner kopieren "C: \\". Benennen Sie die Datei als " table.docx . " Du wirst eine einleitende Programm, das eine Tabellenzelle aus dieser Datei lesen und schreiben .
2
Klicken Sie auf die Registerkarte "Entwicklertools" , dann klicken Sie auf " Visual Basic " -Taste, um den Visual Basic- Programmierumgebung geben . Fügen Sie den folgenden Programm in VB-Code -Fenster. Dieses Programm erzeugt einen Link in Word, Excel, um die Word virtuelle Objekte einfach als ob das Programm in einem Word-Dokument ausgeführt wurden, ermöglicht . Dieser Vorgang wird als "Automation ".
Public Sub LoadWordTablebak () Dim
pgmWord Wie Word.Application
Set pgmWord = CreateObject (" Word.Application " )
pgmWord.Documents.Open . ( "c: \\ table.docx " )
MsgBox pgmWord.ActiveDocument.Tables (1) Handy (1, 1) german
pgmWord.ActiveDocument . Close to
pgmWord.Quit
End Sub
3
Klicken Sie auf das Menü "Extras" , dann auf die " Referenzen "-Befehl. Blättern Sie durch die Fenster, um die "Microsoft Word" Element zu finden erscheint , klicken Sie auf das Kontrollkästchen für das Element . Mit dieser Aktion können Excel Zugriff auf die visuelle Objekte in einem Word-Dokument .
4
Klicken Sie auf eine Anweisung im Programm , dann klicken Sie auf den " Run "-Menü den Befehl "Ausführen" . Das Programm wird eine Meldung angezeigt , die den Inhalt einer Tabellenzelle in einem Word-Dokument . Sie sehen nun das Programm ausweiten , um in eine vollständige Tabelle von jedem Word-Dokument zu laden.
5
Fügen Sie den folgenden überarbeiteten Programm unter dem "End Sub "-Anweisung des ursprünglichen Programms . Dieses Programm fordert den Benutzer für den Dateinamen eines Word-Dokuments . Der Benutzer muss auch in der Anzahl der einem Tisch geben innerhalb des Dokuments . Das Programm verwendet die Automatisierung Verfahren des ersten Programms zu kopieren die angegebene Tabelle Zelle für Zelle geladen werden in einer Excel-Tabelle .
Public Sub LoadWordTable2 () Dim
docname As String
< p > Dim TableId As Integer Dim
c , r, startRow As Integer Dim
curCell
Dim pgmWord Wie Word.Application
curCell = ActiveCell Set
Set pgmWord = CreateObject (" Word.Application " )
docname = InputBox ("Geben Sie Word-Dokument name")
docname = InputBox ("Geben Sie Word-Dokument name")
While ( docname <> "" )
TableId = InputBox ("Geben Sie Tabellen-Zahl" )
pgmWord.Documents.Open ("c: \\ table . docx " )
pgmWord.ActiveDocument.Tables ( TableId )
startRow = ActiveCell.Row
Für c = 1 To . Columns.Count
Für r = 1 To . Rows.Count
curCell.Value = . Zelle (r, c )
'Move zur nächsten Zeile
Set curCell = curCell.Offset ( 1, 0)
Weiter r
'Move auf nächste Spalte
Set curCell = Cells ( startRow , curCell.Column + 1) german
Weiter c
End With
pgmWord.ActiveDocument.Close
docname = InputBox ("Geben Sie Word-Dokument name")
Wend
pgmWord . Quit
End Sub
6
Klicken Sie auf den "Excel " -Programmsymbol in der Windows-Taskleiste , um zu Excel zurückzukehren, klicken Sie auf " Makros" Taste der Registerkarte "Entwicklertools" . Doppelklicken Sie auf das " LoadWordTable " makro , dass Makro auszuführen.
7
Geben Sie den Namen ein Word-Dokument mit einer Tabelle , wenn die Aufforderung dazu erscheint. Geben Sie die Nummer der Tabelle, die Sie wollen , wenn die Eingabeaufforderung für diese Tabelle angezeigt. Zum Beispiel , wenn Sie die zweite Tabelle im Dokument möchten , geben Sie " 2". Excel wird die Tabelle in der aktuellen Tabelle zu laden.
8
Setzen Laden Word-Tabellen mit dem Programm , wie gebraucht. Drücken Sie "Enter " auf der " Name des Dokuments " prompt , um das Programm zu beenden.