Bibliotek number> Object . " Klicka på " OK . "
4 Dubbelklicka Button1 att öppna händelsen click för knappen . Skriv följande kod i den allra första raden i modulen för att förklara Microsoft Office namespace :
Imports Microsoft.Office.Interop
5
Kopiera och klistra in följande kod för att skapa en ny Excel-arbetsbok och lägg till värdena textrutan till kalkylbladet :
Dim xlApp som nya
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 ( " Blad1 " ) katalog
XLsht.Range ( "A1" ) . Value = Me.TextBox1.Text.ToString
XLsht.Range ( "A2" ) . Value = Me.TextBox2.Text . ToString
XLsht.SaveAs ( " C : \\ excelBk.xlsx " )
6
Tryck " F5 " för att köra programmet och skriv in texten i den första textrutan . Ange texten i den andra textrutan . Tryck " Button1 " för att vidarebefordra informationen i textrutorna till Excel- arbetsboken sparas i C : . \\ ExcelBk.xlsx