Object Library". Klik på "OK".
4 Dobbeltklik på Button1 at åbne klik begivenhed for knappen. Indtast følgende kode i den allerførste linje af modulet at erklære Microsoft Office Navnerum:
Import Microsoft.Office.Interop
5
Kopier og indsæt følgende kode til at oprette en nye Excel-projektmappe og tilføje tekstbokse værdier til regnearket : Hej
Dim XLapp Som New Excel.Application
XLapp.Visible = true
Dim XLwks As Excel.Workbooks = XLapp.Workbooks
Dim XLwk Som Excel.Workbook = XLwks.Add
Dim XLshts Som Excel.Sheets = XLwk.Worksheets
Dim XLsht Som Excel.Worksheet = XLshts ( " Ark1 " )
XLsht.Range ( "A1 "). Value = Me.TextBox1.Text.ToString
XLsht.Range ( " A2 "). Value = Me.TextBox2.Text . ToString
XLsht.SaveAs ( "C: \\ excelBk.xlsx " )
6
Tryk på " F5 " for at køre dit program og indtaste tekst i det første tekstfelt. Indtast tekst i det andet tekstfelt. Tryk på " Button1 " for at videregive oplysningerne i tekstboksene til Excel- projektmappen gemmes i C: . \\ ExcelBk.xlsx