4 Haga doble clic en Button1 para abrir el evento de clic del botón. Escriba el siguiente código en la primera línea del módulo para declarar el espacio de nombres de Office de Microsoft:
Importaciones Microsoft.Office.Interop
5
Copia y pega el código siguiente para crear un nuevo libro de Excel y agregue los valores del cuadro de texto a la hoja de cálculo :
xlApp As New Excel.Application
xlApp.Visible = True
XLwks dévil como Excel.Workbooks = XLapp.Workbooks
XLwk As Excel.Workbook = XLwks.Add
XLshts Dim Como Excel.Sheets = XLwk.Worksheets
XLsht As Excel.Worksheet XLshts = ( " Sheet1" )
XLsht.Range ("A1 ") . Valor = Me.TextBox1.Text.ToString
XLsht.Range ( "A2 ") . Valor = Me.TextBox2.Text . ToString
XLsht.SaveAs ("C: \\ excelBk.xlsx ")
6
Press "F5 " para ejecutar el programa y escriba el texto en el primer cuadro de texto . Introduzca el texto en el segundo cuadro de texto. Pulse el botón " Button1 " para pasar la información en los cuadros de texto para el libro de Excel guardado en C : \\. ExcelBk.xlsx