Object Library . " Klicka på " OK . "
2 Skriv följande för att skapa en ny subrutin : " . Ange "
Private Sub importExcelData ( ) katalog
Press
Billiga 3
Skriv följande för att skapa dina variabler :
Dim arbetsbok som arbetsbok
Dim dataInExcel As String
4
Skriv följande att öppna Excel-arbetsbok :
Application.ScreenUpdating = False
arbetsbok
Set = Workbooks.Open ( " C : \\ Book1.xls ", true , true)
Redigera " C: \\ Book1.xls " och skriv din egen väg och arbetsbok namn
5
skriv följande för att få "A1" data i arbetsboken och lägga till den i ditt Word-dokument : .
dataInExcel = Text : = dataInExcel
6
Skriv följande för att få "A2" data i arbetsboken och lägga till den i ditt Word-dokument :
dataInExcel = Text : = dataInExcel
7
Skriv följande för att stänga arbetsboken och variabler frisättning från minnet :
workBook.Close False
Set arbetsbok = Nothing
Application.ScreenUpdating = Sant Addera