Object Library . " Klik op "OK . "
4 Typ de volgende code in de allereerste regel van de module aan de Microsoft Office namespace importeren :
Imports Microsoft.Office.Interop
< br > 5
Voeg de volgende code in de gebeurtenis click -knop om een nieuwe Excel- spreadsheet :
Dim xlsxA
als Nieuwe Excel.Application
xlsxA.Visible = True
Dim xlsxWks Zoals Excel.Workbooks = xlsxA.Workbooks
Dim xlsxWk
Zoals Excel.Workbook
Dim xlsxShts = xlsxWks.Add
Zoals Excel.Sheets = xlsxWk.Worksheets
Dim xlsxSht Zoals Excel.Worksheet = xlsxShts ( " Blad1 " )
6
Voeg meerdere rijen aan de spreadsheet door toevoeging van de volgende code :
xlsxSht.Range
( " A1 " ) . value = " Rij 1 met data "
xlsxSht.Range
( " A2 " ) . value = " Rij 2 met data "
xlsxSht.Range
( " A3 " ) . value = " Rij 3 met data "
7
Sla de spreadsheet :
xlsxSht.SaveAs
( " C : \\ Temp \\ ExcelFile.xlsx " ) op Twitter
Press 8 " F5 " om het programma uit te voeren en klik op " Button1 . "