Cómo insertar una fecha en Excel Visual Basic

Ser capaz 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 su aplicación VB . En Visual Basic , puede utilizar la biblioteca de objetos de Microsoft Excel para crear un nuevo libro de Excel e insertar datos en ella. Puede utilizar la función " Now" para obtener la fecha del sistema y la inserta a Excel mediante la propiedad "Rango" . Instrucciones
1

lanzamiento 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

doble clic en " botón " para añadir un nuevo botón . Haga doble clic en " Button1 " para crear un evento de clic en este botón. Haga clic en el menú "Proyecto " , haga clic en " Agregar referencia ", haga clic en la ficha " COM". Haga doble clic en " Excel 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 . "