Visual Basic - Exportar datos a Excel

Hola que tal compañeros tengo una tremenda duda y es como exportar datos a excel desde Visual basic 6.0 tomando en cuenta que es una conexión ADO enlazado a una base de Datos Access

Example :
Private Sub ComdExcel_Click()
Dim ApExcel As Excel.Application
Set ApExcel = CreateObject("Excel.application")

ApExcel.Workbooks.Add
With ApExcel
.Cells(1, 1) = "Prueba"
.Cells(1, 2) = "Prueba2"
.Cells(2, 1) = "Prueba3"
.Cells(2, 2) = "Prueba4"
.Range("A1:B10").Font.Color = vbRed 'Color de Letra
.Range("A1:B10").HorizontalAlignment = xlHAlignCenter 'Centrado Hor.
.Range("A1:B10").VerticalAlignment = xlHAlignCenter 'Centrado Vert.
.Range("A1:B10").Font.Name = "Tahoma" 'Nombre Letra
.Range("A1:B10").Font.Size = 11 'Tamaño
.Range("A1:B10").Font.Bold = True 'Negrita
.Range("A1:B10").Font.Italic = True 'Cursiva
.Range("A1:B10").Interior.Color = vbYellow 'Color de Relleno
'Poner Border
'Tipos de Borde: XlLineStyle: xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlSlantDashDot o xlLineStyleNone
.Range("A1:B10").Borders.LineStyle = xlContinuous
End With
With ApExcel.Range("A1:B10")
.HorizontalAlignment = xlHAlignLeft
.VerticalAlignment = xlHAlignCenter
.WrapText = True 'Ajustar Celda al Tamaña del Texto
End With
ApExcel.AlertBeforeOverwriting = False
ApExcel.ActiveWorkbook.SaveAs "C:\Prueba.xls"
ApExcel.Visible = True
Set ApExcel = Nothing
End Sub

Estimado Coy,

Sería directamente desde la consulta, de esta forma,

strCadena = "SELECT registros INTO nombre_del_archivo IN 'ruta completa del archivo.xls' 'EXCEL 5.0;' FROM tabla"

La forma que explica el amigo Miguel<VR> es válida pero usas mas recursos.

Esta sentencia SQL la ejecutas con la conexion de esta forma:

Call objAdoCon.Execute(strCadena)

Juan Carlos Quintanilla.