Libreria oggetti di Microsoft Excel . " Fare clic su " OK ".
4 doppio clic su Button1 per aprire l'evento click del pulsante . Digitare il seguente codice nella prima riga del modulo per dichiarare lo spazio dei nomi di Microsoft Office :
Importazioni Microsoft.Office.Interop
5
Copia e incolla il seguente codice per creare un nuova cartella di lavoro di Excel e aggiungere i valori delle caselle di testo al foglio di lavoro :
Dim xlApp come nuovo Excel.Application
xlApp.Visible = True
Dim XLwks As Excel.Workbooks = XLapp.Workbooks
Dim XLwk Come Excel.Workbook = XLwks.Add
Dim XLshts Come Excel.Sheets = XLwk.Worksheets
Dim XLsht Come Excel.Worksheet XLshts = ( " Foglio1 " ) per
XLsht.Range ( "A1") . Valore = Me.TextBox1.Text.ToString
XLsht.Range ( "A2" ) . Valore = Me.TextBox2.Text . ToString
XLsht.SaveAs ( "C : \\ excelBk.xlsx " ) economici
6 Premere il tasto " F5 " per eseguire il programma e inserire il testo nella prima casella di testo . Immettere il testo nella seconda casella di testo . Premere il tasto " Button1 " per passare le informazioni nelle caselle di testo alla cartella di lavoro di Excel salvati in C : \\. ExcelBk.xlsx