4 Escriba el siguiente código en la primera línea del módulo para importar el espacio de nombres de Office Microsoft :
Importaciones Microsoft.Office.Interop
5
Agregue el código siguiente en el evento de clic de botón para crear una nueva hoja de cálculo de Excel :
xlsxA Dim As New Excel.Application
xlsxA.Visible = True
< p > xlsxWks Dim Como Excel.Workbooks = xlsxA.Workbooks
xlsxWk As Excel.Workbook = xlsxWks.Add
xlsxShts Dim Como Excel.Sheets = xlsxWk.Worksheets
xlsxSht As Excel.Worksheet = xlsxShts ( "Sheet1 ")
6
Agregar varias filas a la hoja de cálculo con el código siguiente :
xlsxSht.Range ("A1 ") . Value = " Fila 1 con datos "
xlsxSht.Range ( "A2 ") . Valor = " Row 2 con datos "
xlsxSht.Range ( "A3 ") . Valor = " Fila 3 con datos "
7
Guardar la hoja de cálculo :
xlsxSht.SaveAs (" C: \\ temp \\ ExcelFile.xlsx ")
8
Press "F5 " para ejecutar el programa y haga clic en " Button1 ".