Crear documento de Excel desde Visual Basic
Hola, quisiera saber como puedo crear un documento de Excel desde Visual Basic.
no se porque quieres hacerlo desde visual basic mejor ve al menu inicio programas abre excel y crealo y guardalo desde alli, me imagino que eres nuevo jejee se que te servira esto
Contactame en mi correo para pasarte el codigo fuente, no nadamas desde excel sino de cualquie aplicaci贸n windows.
Estoy haciendo varias consultas en Visual Basic y necesito pasar el resultado de estas consultas a Excel.
Primero, necesitas seleccionar la referencia:
Microsoft Excel X.0 Object Library para tu proyecto.
Crea tres variables de 茅stos tipos:
1)Excel.Application
2)Excel.Workbook
3)Excel.Worksheet
Sus valores:
1) = CreateObject("excel.application")
2) = ApplEx.Workbooks.Add
3) = AreaLibroEx.Worksheets(1)
Con la tercera, comienzas a asignar valores utilizando sus propiedades como:
.Cells(F,C) : para asignar valores en las celdas de la hoja
.Columns(C). AutoFit: para autoajustar el ancho
.Columns(C).HorizontalAlignment: para alinear
.Columns(C).ColumnWidth
.Visible: para mostrar el documento
Al final, te recomiendo que iguales las tres variables a Nothing
Microsoft Excel X.0 Object Library para tu proyecto.
Crea tres variables de 茅stos tipos:
1)Excel.Application
2)Excel.Workbook
3)Excel.Worksheet
Sus valores:
1) = CreateObject("excel.application")
2) = ApplEx.Workbooks.Add
3) = AreaLibroEx.Worksheets(1)
Con la tercera, comienzas a asignar valores utilizando sus propiedades como:
.Cells(F,C) : para asignar valores en las celdas de la hoja
.Columns(C). AutoFit: para autoajustar el ancho
.Columns(C).HorizontalAlignment: para alinear
.Columns(C).ColumnWidth
.Visible: para mostrar el documento
Al final, te recomiendo que iguales las tres variables a Nothing
el ejemplo completo para crear las variables:
Dim ApplEx As Excel.Application
Dim AreaLibroEx As Excel.Workbook
Dim AreaHojaEx As Excel.Worksheet
Set ApplEx = CreateObject("excel.application")
Set AreaLibroEx = ApplEx.Workbooks.Add
Set AreaHojaEx = AreaLibroEx.Worksheets(1)
Dim ApplEx As Excel.Application
Dim AreaLibroEx As Excel.Workbook
Dim AreaHojaEx As Excel.Worksheet
Set ApplEx = CreateObject("excel.application")
Set AreaLibroEx = ApplEx.Workbooks.Add
Set AreaHojaEx = AreaLibroEx.Worksheets(1)
