aqui tienes una forma de exportar a traves de Visual, en forma lineal, tienes que definir como referencia MS Excel 8.0 Object Library.:
Ejemplo:
Dim XlsExcel As Variant
Dim oWs As Excel.Worksheet
Dim StrArchivo As String
On Error GoTo ErrorHandler
Screen.MousePointer = 11
Set XlsExcel = CreateObject(\"Excel.Application\")
StrArchivo = \"C:\\Fcc001i.xls\"
Set oWs = XlsExcel.Workbooks.Add.Worksheets(1)
XlsExcel.Application.Cells.Select
XlsExcel.Application.Selection.ClearFormats
XlsExcel.Visible = True
Xls.Application.Worksheets(\"Hoja1\").Cells(1, 1).Value = \"Nombre\"
Xls.Application.Worksheets(\"Hoja1\").Cells(2,1).Value = \"Dirección\"
Xls.Application.Worksheets(\"Hoja1\").Columns(1).ColumnWidth = 15 \'Maneja el ancho de las columnas
ahora si quieres exportar una Grilla debes hacer los sgte.:
for i = 1 to MaximoFilasGrilla
Xls.Application.Worksheets(\"Hoja1\").Cells(i,1).Value = \"Datos\" & i
next i
en todo caso dentro de la carpeta C: \\Archivo de Programas\\Microsoft Office\\Office\\Vbaxl8.hlp
aqui puedes encontrar cualquier informacion relacionada al tema.
