Pasar datos tabla Access a Excel
Tengo la siguiente instrucción para pasar datos de una tabla de Access a Excel:
Dim strLibro As String
Dim strSQL As String
' abro una instancia de Excel
Set xls = CreateObject("Excel.Application")
' con ella abro el libro Exportar a Excel
strLibro = CurrentProject.Path & "\TABLAS.xls"
xls.Workbooks.Open (strLibro)
' lo hago visible
xls.Visible = True
' activo la Hoja 1
xls.Worksheets("Hoja1").Activate
' construyo la cadena de la SELECT
strSQL = "SELECT * FROM TAltas"
' abro el recordset
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Me funciona bien, pero no me inserta la cabecera de los campos. Que debería añadir para que me apareciera también la cabecera de los campos, juntos con los datos.
Antonio: Si te bajas éste ejemplo que tengo en Mediafire, en los Formularios FrmComisiones y FrmComisionesParam, aparte de un código alternativo a lo que usas, verás la inserción de las cabeceras donde pone >>>>
'Ponemos el Titulo de las Columnas NColumna = 1 For Each Campo In Rst.Fields HojaLibro.Cells(1, NColumna) = Campo.Name NColumna = NColumna + 1 Next Campo 'Opcionalmente pongo los Titulos de las Columnas en Negrita y Cursiva HojaLibro.Range(HojaLibro.Cells(1, 1), HojaLibro.Cells(1, Rst.Fields.Count)).Font.Name = "Candara" HojaLibro.Range(HojaLibro.Cells(1, 1), HojaLibro.Cells(1, Rst.Fields.Count)).Font.Bold = True HojaLibro.Range(HojaLibro.Cells(1, 1), HojaLibro.Cells(1, Rst.Fields.Count)).Font.Italic = True
El enlace >>
http://www.mediafire.com/file/asriwuixf8gcja0/AccessExcelEleccFicheroYParam.rar/file
Un saludo >> Jacinto
