Object Library". Klik på "OK".
2 Skriv følgende for at oprette en ny subrutine : " . Enter "
Private Sub importExcelData ()
Press
< br >
3
Skriv følgende for at oprette dine variabler : Hej
Dim projektmappe som WorkBook
Dim dataInExcel As String
4
Skriv følgende at åbne din Excel-projektmappe : Hej
Application.ScreenUpdating = False
Set WorkBook = Workbooks.Open ( " C : \\ Projekt1.xls ", sandt, sandt )
Edit " C: \\ Projekt1.xls " og skriv din egen vej og projektmappe navn
5
Skriv følgende for at få "A1" data i projektmappen og føje den til dit Word-dokument : .
dataInExcel = Tekst : = dataInExcel
6
Skriv følgende for at få " A2 " data i projektmappen og føje den til dit Word-dokument : Hej
dataInExcel = Tekst : = dataInExcel
7
Skriv følgende for at lukke din projektmappe, og frigivelse variable fra hukommelsen : Hej
workBook.Close False
Set WorkBook = Nothing
Application.ScreenUpdating = Sand