Visual Basic - Exportar datos a excel

Como se puede exporta una consulta sql a excel

Hay varias maneras de hacerlo :

1) Usando Ole Automation, lo que reuiere que el usuario deba tener excel instalado
2) Generar un CSV, un archivo texto sperador por comas
3) Generar un archivo XML o HTML que las nuevas versiones de excel puedesn leer( Excel 2000, Xp)
4) Conseguir una rutina que genere archivos .BIFF. Puede sconseguir una en www.PlanetSourceCode.com
5) Usar una biblioteca de terceros como por ejemplo ExcelWriter

Saludos
Yamil

Y hay otra forma y es que puede sabrir archivos excel usando ADO version 2.5 o mayor...

Espero que te sirva
Sub Exportar_Excel()
Dim xAppExcel As Excel.Application
Dim xWrkExcel As Excel.Workbook
Dim xShtExcel As Excel.Worksheet

Dim intNewSheets As Integer
Dim strFilName As String
Dim Registro As Long

comDialog.CancelError = True
On Error GoTo Error_HandlerCommon
comDialog.Filter = "(Archivo Excel) *.xls|*.xls"
comDialog.Flags = cdlOFNCreatePrompt Or cdlOFNHideReadOnly Or cdlOFNNoReadOnlyReturn
comDialog.DialogTitle = "Guardar"
comDialog.InitDir = App.Path
On Error GoTo Error_HandlerCommon
comDialog.ShowSave
strFilName = comDialog.FileName

If Trim(strFilName) = "" Then Exit Sub
strFilName = comDialog.FileName

Screen.MousePointer = vbHourglass

On Error GoTo Error_Handler
Set xAppExcel = CreateObject("Excel.Application")
If xAppExcel Is Nothing Then
MsgBox "Cannot Open Microsoft Excel For Export", vbExclamation + vbOKOnly, Me.Caption
Call MessageStatusBar(Msg2, False)
Screen.MousePointer = Default
Exit Sub
End If

intNewSheets = xAppExcel.SheetsInNewWorkbook
xAppExcel.SheetsInNewWorkbook = 1

On Error GoTo Error_Handler
Set xWrkExcel = xAppExcel.Workbooks.Add
xAppExcel.SheetsInNewWorkbook = intNewSheets

Set xShtExcel = xWrkExcel.Sheets(1)

Registro = flexGrid.Rows - 1

rs.MoveFirst
Do Until rsDetxRMark.EOF
DoEvents