Excel kan ikke importere Word tabeller så nemt som det kan andre data. En måde at få Word tabeller til Excel er først konvertere dataene i Word tabeller til kommaseparerede værdier , bedre kendt som CSV . Men det er en tidskrævende opgave. En anden løsning er at bruge Excels programmeringssprog , Visual Basic for Applications , at læse et Word tabellens data og kopiere det til et Excel -regneark . Ved hjælp af denne metode indebærer anvendelse af de virtuelle objekter af Word , herunder " Table" objekt. Instruktioner
1

Brug Windows Stifinder til at kopiere en Word- fil, der indeholder mindst én tabel til mappen "C: . \\ " Omdøb filen som " table.docx ". Du skal skrive et introduktionsprogram , der vil læse en tabelcelle fra denne fil.
2

Klik på " Udvikler " fanen, og klik derefter på "Visual Basic " for at åbne Visual Basic programmering miljø . Indsæt følgende program i VB kode vinduet. Dette program skaber et link til Word, som gør det muligt excel til at bruge Word virtuelle objekter lige som om programmet kørte inde i et Word-dokument. Denne proces kaldes " Automation. "

Public Sub LoadWordTablebak ()

Dim pgmWord Som Word.Application

Set pgmWord = CreateObject ( " Word.Application " ) < br >

pgmWord.Documents.Open . ( "c: \\ table.docx " )

MsgBox pgmWord.ActiveDocument.Tables (1) celle ( 1, 1)

pgmWord.ActiveDocument . Luk

pgmWord.Quit

End Sub
3

Klik på menuen "Funktioner" , og klik derefter på "Referencer" kommando. Rul gennem det vindue, der ser ud til at lokalisere "Microsoft Word " element, og klik derefter på afkrydsningsfeltet for det pågældende element. Denne handling lader Excel adgang til visuelle objekter i et Word-dokument.
4

Klik enhver erklæring i programmet, og klik derefter på "Kør" menuen "Kør" kommandoen . Programmet vil vise en besked boks der viser indholdet af en tabelcelle i et Word-dokument. Du vil nu udvide programmet til at indlæse i en komplet tabel fra en Word-dokument .
5.

Indsæt følgende reviderede program under " End Sub " erklæring af det oprindelige program . Dette program beder brugeren om filnavnet på et Word-dokument . Brugeren skal også indtaste nummeret på en tabel i dokumentet. Programmet benytter automatisering metode det første program til at indlæse kopiere den angivne tabel celle for celle i et Excel-regneark .

Public Sub LoadWordTable2 ()

Dim docname As String
< p > Dim TableId As Integer

Dim C, R startrow As Integer

Dim curCell

Dim pgmWord Som Word.Application

Set curCell = ActiveCell < br >

Set pgmWord = CreateObject ( " Word.Application " )

docname = InputBox ("Indtast Word-dokument navnet" )

docname = InputBox ("Indtast Word-dokument navnet" )

( docname < > "")

TableId = InputBox ("Indtast tabel nummer " )

pgmWord.Documents.Open ( "c: \\ bord. docx " )

pgmWord.ActiveDocument.Tables ( TableId )

startrow = ActiveCell.Row

c = 1 To. Columns.Count

for r = 1 To. Rækker

curCell.Value = . Cell (r, c )

' Flyt til næste række

Set curCell = curCell.Offset ( 1, 0 )

Næste r

' Flyt til næste kolonne

Set curCell = Cells ( startrow , curCell.Column + 1)

Næste c

End With

pgmWord.ActiveDocument.Close

docname = InputBox ("Indtast Word-dokument navnet" )

Wend

pgmWord . Quit

End Sub
6

Klik på " Excel " programikonet i proceslinjen i Windows for at vende tilbage til Excel , og klik derefter på " makroer" knappen på "Udvikler "-fanen . Dobbeltklik på " LoadWordTable " makro til at køre denne makro .
7

Indtast navnet på et Word-dokument , der indeholder en tabel, når du bliver bedt om at gøre det , vises. Indtast nummeret på den tabel, du vil, når du bliver bedt om det bord vises. For eksempel, hvis du vil have den anden tabel i dokumentet type " 2". Excel vil indlæse tabel i det aktuelle regneark .
8

Fortsæt læsning Word tabeller med programmet efter behov. Tryk på " Enter" på det "dokument navnet" prompt for at afslutte programmet .