Object Library". Klik på "OK".
4 Indtast følgende kode i den allerførste linje i modulet for at importere Microsoft Office Navnerum : Hej
Import Microsoft.Office.Interop
< br > 5
Føj følgende kode inde i knap klik begivenheden at oprette en ny Excel-regneark : Hej
Dim xlsxA Som New Excel.Application
xlsxA.Visible = Sand
< p > Dim xlsxWks Som Excel.Workbooks = xlsxA.Workbooks
Dim xlsxWk Som Excel.Workbook = xlsxWks.Add
Dim xlsxShts Som Excel.Sheets = xlsxWk.Worksheets
Dim xlsxSht Da Excel.Worksheet = xlsxShts ( " Ark1 " )
6
Tilføj flere rækker i regnearket ved at tilføje følgende kode : Hej
xlsxSht.Range ( "A1 "). value = " Række 1 med data "
xlsxSht.Range ( " A2 "). value = " Row 2 med data "
xlsxSht.Range ( " A3 "). value = " Row 3 med data "
7
Gem regnearket : Hej
xlsxSht.SaveAs ( " C: \\ Temp \\ ExcelFile.xlsx " )
8
Press " F5 " for at køre programmet, og klik på " Button1 . "