Excel kan ikke importere Word- tabeller så lett som det kan andre data . En måte å få Word tabeller i Excel er først å konvertere dataene i Word- tabeller til komma - separerte verdier , bedre kjent som CSV. Men dette er en tidkrevende oppgave. En annen løsning er å bruke Excel programmeringsspråk, Visual Basic for Applications , å lese et Word- tabellens data og kopiere den til et Excel-regneark . Ved hjelp av denne tilnærmingen innebærer å bruke de virtuelle objekter av Word , inkludert " Table" objekt. Instruksjoner
en
Bruk Windows Utforsker til å kopiere en Word-fil som inneholder minst ett bord til mappen "C : \\". Endre navnet på filen som " table.docx . " Du skal skrive en innledende program som vil lese en tabell celle fra denne filen.
2
Klikk på " Utvikler " fanen , og klikk deretter på " Visual Basic" -knappen for å gå inn i Visual Basic programmering miljø . Lim inn følgende program i VB-koden vinduet. Dette programmet skaper en kobling til Word , som gjør excel å bruke Word virtuelle objekter akkurat som om programmet kjørte inni et Word-dokument . Denne prosessen kalles " Automation ".
Public Sub LoadWordTablebak ( )
Dim pgmWord Som Word.Application
Set pgmWord = CreateObject ( " Word.Application ")
pgmWord.Documents.Open . ( "c : \\ table.docx ")
MsgBox pgmWord.ActiveDocument.Tables ( 1 ) Cell ( 1 , 1 )
pgmWord.ActiveDocument . Lukk
pgmWord.Quit
End Sub
3
Klikk på " Verktøy "-menyen , klikk på " Referanser "-kommandoen . Bla gjennom vinduet som vises for å finne " Microsoft Word " element, deretter klikker du avmerkingsboksen for dette elementet. Denne handlingen lar Excel tilgang til visuelle objekter i et Word-dokument .
4
Klikk noen uttalelse i programmet , og klikk deretter på "Kjør" -menyen er " Kjør"-kommandoen . Programmet vil vise en meldingsboks som viser innholdet i en tabell celle i et Word-dokument . Du vil nå utvide programmet til å laste inn en komplett tabell fra en Word-dokument .
5
Lim inn følgende reviderte programmet under " End Sub " statement av det opprinnelige programmet . Dette programmet ber brukeren om filnavnet til et Word-dokument . Brukeren må også skrive inn nummeret til en tabell i dokumentet. Programmet bruker automatisering metoden på det første programmet til å laste kopiere den angitte tabellen celle for celle inn 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
Sett curCell = ActiveCell
Set pgmWord = CreateObject ( " Word.Application ")
docname = InputBox ("Skriv inn Word-dokument navn")
docname = InputBox ("Skriv inn Word-dokument navn")
Mens ( docname < > "")
TableId = InputBox ("Skriv tabell nummer" )
pgmWord.Documents.Open ( "c : \\ bordet. docx ")
p Med pgmWord.ActiveDocument.Tables ( TableId )
startRow = ActiveCell.Row
For c = 1 To . Columns.Count
for r = 1 To . Rows.Count
curCell.Value = . Cell (r, c )
'Flytt til neste rad
Sett curCell = curCell.Offset ( 1 , 0 )
Neste r
'Flytt til neste kolonne
Sett curCell = Cells ( startRow , curCell.Column + 1 )
Neste c
End With
pgmWord.ActiveDocument.Close
docname = InputBox ("Skriv inn Word-dokument navn")
Wend
pgmWord . Avslutt
End Sub
6
Klikk på " Excel " programikon på oppgavelinjen i Windows for å gå tilbake til Excel , og klikk deretter på " Makroer "-knappen i " Developer "-kategorien . Dobbeltklikk på " LoadWordTable " makro til å kjøre denne makroen.
7
Skriv inn navnet på et Word- dokument som inneholder en tabell når du blir bedt om å gjøre det vises. Skriv inn nummeret på tabellen du vil når meldingen om at bordet vises. For eksempel , hvis du ønsker den andre tabellen i dokumentet , skriver du inn " 2". Excel vil laste bordet inn i gjeldende regneark.
8
Fortsett å legge Word- tabeller med programmet etter behov. Trykk på " Enter" på " dokumentet navnet" bedt om å avslutte programmet .
