Cómo insertar una fecha en Excel Visual Basic

La posibilidad de insertar datos en un libro de Microsoft Excel hará que su aplicación de Visual Basic más dinámico. A menudo se encuentra con la necesidad de insertar la fecha a un libro al exportar datos desde la aplicación VB. En VB, puede utilizar la biblioteca de objetos Microsoft Excel para crear un nuevo libro de Excel e insertar datos en ella. Puede utilizar la función de "ahora" para obtener la fecha del sistema y la inserta a Excel mediante el uso de la propiedad "Rango".

Instrucciones

1 Lanzamiento de Microsoft Visual Basic Express, haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador, a continuación, haga clic en "Aplicación de Windows Forms". Haga clic en Aceptar."

2 Haga doble clic en "botón" para añadir un nuevo botón. Haga doble clic en "Button1" para crear un evento de clic de este botón. Haga clic en el menú "Proyecto", haga clic en "Agregar referencia", a continuación, haga clic en la pestaña "COM". Haga doble clic en "<número de versión> Microsoft Excel biblioteca de objetos" para agregarlo como una referencia.

3 Copia y pega el código siguiente para crear las variables de objeto de Excel que va a utilizar para crear un nuevo libro de Excel:

objXLS tenue Como aplicación = solicitud de nuevo

Dim objXLXBks As Workbooks = Nothing

Dim objXLSBk Como libro de trabajo = Nada

objXLSShts tenues como hojas = Nada

Dim objXLSSht como hoja de trabajo = Nada

Dim objXLSrng como gama = Nada

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 trabajo)

objXLSShts = objXLSBk.Worksheets

6 Introduzca la fecha a "A1" en Excel añadiendo la siguiente línea de código:

objXLSSht.Cells(1, 1) = Now()

7 Guarde 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 has been added to Excel")

Presione F5 para ejecutar el programa, a continuación, haga clic en "Button1".