Object Library. " Klikk "OK".
4 Dobbeltklikk Button1 å åpne klikkhendelsen for knappen . Skriv inn følgende kode i den aller første linjen i modulen for å erklære Microsoft Office namespace :
Importen Microsoft.Office.Interop
5
Kopier og lim inn følgende kode for å lage en ny Excel arbeidsbok og legge tekstboksinnstillingene verdier i regnearket : en
Dim XLapp som ny Excel.Application
XLapp.Visible = true
Dim XLwks Som 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" ) . Verdi = Me.TextBox1.Text.ToString
XLsht.Range ( " A2" ) . Verdi = Me.TextBox2.Text . toString
XLsht.SaveAs ( "C : \\ excelBk.xlsx ")
6
Trykk " F5 " for å kjøre programmet og skriv inn teksten i den første tekstboksen . Skriv inn tekst i den andre tekstboksen . Trykk " Button1 " for å sende informasjonen i tekstboksene til Excel- arbeidsbok som er lagret i C : . \\ ExcelBk.xlsx