3 Copia y pega el código siguiente para crear las variables de objeto de Excel que utilizará para crear un nuevo libro de Excel :
objXLS Dim As application = Nuevos Application
objXLXBks Dim como libros = Nothing
objXLSBk As Workbook = Nothing
Dim objXLSShts como hojas = Nothing
objXLSSht Dim como hoja de trabajo = Nothing
objXLSrng As Range = Nothing
4
Escriba el siguiente código para agregar un nuevo libro :
objXLS.Visible = False
objXLS.DisplayAlerts = False
objXLSBk = CType ( objXLS.Workbooks.Add () , Cuaderno de ejercicios )
5
Agregue el código siguiente para agregar una nueva hoja de cálculo :
objXLXBks = objXLS.Workbooks
objXLSSht = CType ( . objXLXBks ( 1 ) Sheets.Item ( 1 ) , hoja de cálculo ) guía < p> objXLSShts = objXLSBk.Worksheets
6
Insertar la fecha a " A1" en Excel agregando la siguiente línea de código:
objXLSSht.Cells ( 1 , 1 ) = Ahora ()
7
Guardar el libro de Excel , escriba el siguiente código:
objXLSSht.SaveAs ("C: \\ ExcelDate.xlsx ")
8
Muestra un cuadro de mensaje cuando el libro se ha creado y guardado .
MessageBox.Show ( "Date ha sido añadido a Excel " )
Presione F5 para ejecutar el programa , haga clic en " Button1 . "
