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

Fuente del artículo http://www.articulo.org/autores_perfil.php?autor=565

No hay información sobre este escritor.

Ver perfil