Object Library. " Klikk "OK".
2 Skriv inn følgende for å opprette en ny subrutine : " . Enter"
Private Sub importExcelData ( )
Trykk
3
Skriv inn følgende for å opprette variabler : en
Dim arbeidsbok som arbeidsbok
Dim dataInExcel As String
4
Skriv inn følgende å åpne Excel-arbeidsbok : en
Application.ScreenUpdating = False
Set arbeidsbok = Workbooks.Open ( "C : \\ Book1.xls " , True , true)
Edit " C: \\ Book1.xls " og skriv din egen vei og arbeidsbok navn
5
skriv inn følgende for å få " A1 " data i arbeidsboken og legge den til Word-dokumentet : .
dataInExcel = Tekst : = dataInExcel
6
Skriv inn følgende for å få " A2 " data i arbeidsboken og legge den til Word-dokumentet : en
dataInExcel = Tekst : = dataInExcel
7
Skriv inn følgende for å lukke arbeidsboken og slipp variabler fra minnet : en
workBook.Close False
Set arbeidsbok = Ingenting
Application.ScreenUpdating = sant