Trabajar con dbengine
Hola experto:
Tengo una consulta. Estoy haciendo una base de datos con DBEngine y quiero pasar los datos de la base en access a una tabla de excel a través de un commandButton, y no se me ocurre como. También quisiera saber si puedes responder esta pregunta, si sabes como al abrir esa tabla de excel tenga incluidas fórmulas como sumar los campos y/o totales.
Desde ya gracias
Lucho Miguel
Tengo una consulta. Estoy haciendo una base de datos con DBEngine y quiero pasar los datos de la base en access a una tabla de excel a través de un commandButton, y no se me ocurre como. También quisiera saber si puedes responder esta pregunta, si sabes como al abrir esa tabla de excel tenga incluidas fórmulas como sumar los campos y/o totales.
Desde ya gracias
Lucho Miguel
1 Respuesta
Respuesta de denciso
1
El exportar lo puedes hacer con una adaptación de un código de visual basic que tengo, o puedes revisar el código que te genere la exportación de una tabla de datos a excel.
Si el archivo de excel existe, solo tienes que hacer la referencia que te coloco, pero si no la tiene, debes de colocar la instrucción en la celda que requieres.
'Se crea el Objeto
Set oObjetoExcel = CreateObject("Excel.sheet")
'Se asigna el ancho de las columnas
For icol = 1 To sprDatos.MaxCols
oObjetoExcel.Application.Cells(icol).ColumnWidth = sprDatos.ColWidth(icol)
Next
'Se exportan los datos del Spread de Parámetros
iContRengExcel = 1
For iContRengDatos = 1 To sprParametros.MaxRows
For icol = 1 To sprParametros.MaxCols
'iResult = Spreadgettext(sprParametros, icol, iContRengDatos, pszCelda)
iResult = sprParametros.GetText(icol, iContRengDatos, pszCelda)
oObjetoExcel.Application.Cells(iContRengExcel, icol).Value = pszCelda
Next
iContRengExcel = iContRengExcel + 1
Next
'Se exportan los datos del Spread de Datos
For iContRengDatos = NULL_INTEGER To sprDatos.MaxRows
For icol = 1 To sprDatos.MaxCols
'iResult = Spreadgettext(sprDatos, icol, iContRengDatos, pszCelda)
iResult = sprDatos.GetText(icol, iContRengDatos, pszCelda)
oObjetoExcel.Application.Cells(iContRengExcel, icol).Value = pszCelda
Next
iContRengExcel = iContRengExcel + 1
Next
'Se salva a un Archivo el Objeto
OObjetoExcel. SaveAs mdiPrincipal! DlgGeneralMDI. FileName
Checa los valores y los datos que uso, tengo el far point spread, de el lo eliminas y colocas tu recordset.
Si el archivo de excel existe, solo tienes que hacer la referencia que te coloco, pero si no la tiene, debes de colocar la instrucción en la celda que requieres.
'Se crea el Objeto
Set oObjetoExcel = CreateObject("Excel.sheet")
'Se asigna el ancho de las columnas
For icol = 1 To sprDatos.MaxCols
oObjetoExcel.Application.Cells(icol).ColumnWidth = sprDatos.ColWidth(icol)
Next
'Se exportan los datos del Spread de Parámetros
iContRengExcel = 1
For iContRengDatos = 1 To sprParametros.MaxRows
For icol = 1 To sprParametros.MaxCols
'iResult = Spreadgettext(sprParametros, icol, iContRengDatos, pszCelda)
iResult = sprParametros.GetText(icol, iContRengDatos, pszCelda)
oObjetoExcel.Application.Cells(iContRengExcel, icol).Value = pszCelda
Next
iContRengExcel = iContRengExcel + 1
Next
'Se exportan los datos del Spread de Datos
For iContRengDatos = NULL_INTEGER To sprDatos.MaxRows
For icol = 1 To sprDatos.MaxCols
'iResult = Spreadgettext(sprDatos, icol, iContRengDatos, pszCelda)
iResult = sprDatos.GetText(icol, iContRengDatos, pszCelda)
oObjetoExcel.Application.Cells(iContRengExcel, icol).Value = pszCelda
Next
iContRengExcel = iContRengExcel + 1
Next
'Se salva a un Archivo el Objeto
OObjetoExcel. SaveAs mdiPrincipal! DlgGeneralMDI. FileName
Checa los valores y los datos que uso, tengo el far point spread, de el lo eliminas y colocas tu recordset.
