Object Library. " Klikk "OK".
4 Skriv inn følgende kode i den aller første linjen av modulen for å importere Microsoft Office namespace : en
Import Microsoft.Office.Interop
5
Legg til følgende kode inne knappen klikkhendelsen å opprette en ny Excel-regneark : en
Dim xlsxA som ny Excel.Application
xlsxA.Visible = sant
< p > Dim xlsxWks Som Excel.Workbooks = xlsxA.Workbooks
Dim xlsxWk Som Excel.Workbook = xlsxWks.Add
Dim xlsxShts Som Excel.Sheets = xlsxWk.Worksheets
Dim xlsxSht Som Excel.Worksheet = xlsxShts ( " Ark1 ")
6
Legg til flere rader i regnearket ved å legge følgende kode:
xlsxSht.Range ( "A1" ) . value = " Rad 1 med data "
xlsxSht.Range ( " A2" ) . Verdi = " Row 2 med data "
xlsxSht.Range ( " A3" ) . Verdi = " Row 3 med data "
7
Lagre regnearket : en
xlsxSht.SaveAs ( " C : \\ Temp \\ ExcelFile.xlsx ")
8
Press "F5 " for å kjøre programmet og klikk " Button1 . "