Object Library. " Klikk "OK. "
3 Legg til følgende navnerom i den aller første linje av koden din modul:
Importen Microsoft.Office.Interop
4
opprette Excel- programmet objekter ved å legge følgende kode:
Dim xlsA som ny Excel.Application
xlsA.Visible = true
Dim xlsWKBS eksempel Excel. arbeidsbøker = xlsA.Workbooks
Dim xlsWKB Som Excel.Workbook = xlsWKBS.Add
Dim xlsSts Som Excel.Sheets = xlsWKB.Worksheets
Dim xlsSt Som Excel.Worksheet = xlsSts ( " Ark1 ")
5
Legge til data i celle A1 i den nye XLS regneark.
xlsSt.Range ( "A1" ) . Verdi = " Disse dataene ble skrevet fra . VB "
6
Lagre XLS-fil til C: \\
xlsSt.SaveAs . ( " C : \\ ExcelFile.xls ")