Object Library . " Klik op "OK . "
4 Dubbelklik op Button1 om de klik evenement voor de knop te openen . Typ de volgende code in de allereerste regel van de module aan de Microsoft Office namespace verklaren :
Imports
Microsoft.Office.Interop
Kopieer 5 en plak de volgende code om een te creëren nieuwe Excel-werkmap en het tekstvak waarden toevoegen aan het werkblad :
Dim xlApp
als Nieuwe Excel.Application
XLapp.Visible = True
Dim XLwks
Zoals Excel.Workbooks = XLapp.Workbooks
Dim XLwk
Zoals Excel.Workbook = XLwks.Add
Dim XLshts
Zoals Excel.Sheets = XLwk.Worksheets
Dim XLsht
Zoals Excel.Worksheet = XLshts ( " Blad1 " )
XLsht.Range
( " A1 " ) . Value = Me.TextBox1.Text.ToString
XLsht.Range
( " A2 " ) . Value = Me.TextBox2.Text . ToString
XLsht.SaveAs
( " C : \\ excelBk.xlsx " ) op Twitter
Druk op " F5 " 6 om uw programma uit te voeren en voer de tekst in het eerste tekstvak . Voer tekst in het tweede tekstvak . Druk op " Button1 " om de informatie in de tekstvakken doorgeven aan de Excel-werkmap opgeslagen in C : . \\ ExcelBk.xlsx