Exportar datos a Excel con VB6

Aquí tienes el código completo de como exportar informacion desde una base de datos con visual basic a excel es pero que te sea de mucha ayuda.

Private Sub Command1_Click()

On Error GoTo error

Abrir

cmdsql = "select count(*)as total from Basededatos WHERE Tabla = '" & Text1.Text & "' "

rs.Open cmdsql, Conexion

Label3.Caption = rs!total

sqltmp2 = "SELECT * FROM Basededatos where Tabla = '" & Text1.Text & "'"

Adodc1.RecordSource = sqltmp2

Adodc1.Refresh

If Combo1.ListIndex = 0 Then

'aqui vamos a guardar los nombres de los campos que despues pasamos a la funcion

Dim Heading(3) As String

Heading(1) = "Campo1"

Heading(2) = "Campo2"

Heading(3) = "Campo3"

'Llamamos a la funcion que abre el workbook en excel

Call Inicio_Excel

'Llamamos a la funcion que da el formato al nuevo workbook

Call Formato_Excel(3, Heading())

V = 5

H = 1

'Esto nos sirve para leer los datos desde

'la tabla de access para despues colocarlos en las celdas correspondientes

Do While Not Adodc1.Recordset.EOF

With Adodc1.Recordset

objExcel.ActiveSheet.Cells(V, H) = .Fields!Campo1

objExcel.ActiveSheet.Cells(V, H + 1) = .Fields!Campo2

objExcel.ActiveSheet.Cells(V, H + 2) = .Fields!Campo3

V = V + 1

.MoveNext

End With

Loop

'una vez hemos terminado descargamos el objeto

Set objExcel = Nothing

error:

If Err.Number = 424 Then

MsgBox "Ha interrumpido la descarga de los datos", vbCritical, "Codigo de ejemplo"

GoTo Fin

End If

End If

Fin:

End Sub

Saludos

Carlos Espinoza

WWW.INFORCC.COM