Excel Aplication

Excel Application

Siguiente



En esta clase, vamos a explicar como hacer para crear un archivo de Excel desde el Visual Basic y viceversa.

Para crear archivo

Anterior

Para abrir archivo

Para crear un archivo de Excel              

Dim Aplic As New Excel.Application Dim Libro As New Excel.Workbook Dim Hoja As New Excel.Worksheet Set Libro = Aplic.Workbooks.Add Set Hoja = Libro.ActiveSheet With Hoja .Cells(1, 1) = "Nombre" .Range("B1") = "Apellido" .Cells(2, 1) = "Leo" .Range("B2") = "Kristal" .Range("A1:B1").Font.Bold = True End With Libro.SaveAs "D:\direccion.xls" Libro.Close

Anterior

Dim Aplic As New Excel.Application Dim Libro As New Excel.Workbook Dim Hoja As New Excel.Worksheet



 

Esto sirve para crear la aplicación de Excel. Esto sirve para crear el archivo de Excel. Esto sirve para crear una hoja de trabajo en Excel.

Anterior

Set Libro = Aplic.Workbooks.Add Set Hoja = Libro.ActiveSheet





Esto sirve para unir el archivo a la aplicación o viceversa (un libro sin sus hojas no sirve). Esto sirve para unir las hojas al archivo.

Anterior

With Hoja .Cells(1, 1) = "Nombre" .Range("B1") = "Apellido" .Cells(2, 1) = "Leo" .Range("B2") = "Kristal" .Range("A1:B1").Font.Bold = True End With   

Esto sirve para escribir en una celda determinada (tipo matriz). Esto sirve para escribir en una celda determinada (tipo Excel). Esto sirve para poner una característica especial a un grupo de celdas.

Anterior

Libro.SaveAs "D:\direccion.xls" Libro.Close





Esto sirve para guardar el archivo en determinado destino. Esto sirve para cerrar el archivo.

Anterior

Para abrir un archivo de Excel       

Set Libro = Aplic.Workbooks.Open("D:\direccion.xls") Set Hoja = Libro.Worksheets("Hoja1") Label1 = Hoja.Cells(1, 1) Libro.Close Set Aplic = Nothing Set Libro = Nothing Set Hoja = Nothing

Anterior

Set Libro = Aplic.Workbooks.Open("D:\direccion.xls") Set Hoja = Libro.Worksheets("Hoja1") 



Esto sirve para abrir un documento en Excel. Esto sirve para hacer que la “Hoja1” sea utilizable.

Anterior

Label1 = Hoja.Cells(1, 1) Libro.Close





Esto sirve para hacer que el “Label1” tengo el valor de lo que dice en la celda “1,1”. Esto sirve para cerrar el archivo.

Anterior

Set Aplic = Nothing Set Libro = Nothing Set Hoja = Nothing



Esto sirve para vaciar las posiciones de memorias ocupadas.

Anterior