pasar datos de query a excel en VB

[Albertron]

Hola que tal,
Alguien de vosotr@s sabe cómo podría pasar el resultado de una consulta a una base de datos Access a un fichero excel?
La idea que tengo es la siguiente:

Tengo esto:

Global objCon As ADODB.Connection
Global objRS As ADODB.Recordset
Set objCon = New ADODB.Connection
Set objRS = New ADODB.Recordset

objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\nombre_bd.mdb"

objRS.Open "SELECT campo1,campo2,campo3,... FROM tabla", objCon, adOpenStatic, adLockOptimistic

Entonces ahora me gustaría recorrerme el recordset para ir añadiendo los registros recuperados en la query. Me gustaría ir pasando cada registro en 1 fila del archivo excel.

Un saludo y gracias

[rdorlando]

Lo mas facil es acer un DNS. en tu maquina pudes ir al panel de control>ODBC y pones en agregar y seleccionas el controlador de excel.
Perdon creo que esto no era lo que neccesitabas,prueba importandolos a excel,en importar datos desde este programa, dede asp es mas complicado, porque tines que hacer algo que lo haga el server y no la maquina cliente ya que este debe tener excel y hay muchos que no lo tinen o tinne otra vecion o estann mal configurado , voy a probar algunas cosas , cuando lo tenga te lo mando.

[Jorge_Mota]

si lo quieres hacer por codigo
intenta
Dim oExcel as Object
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.add()
oExcel.visible = .t.

[Albertron]

Gracias a los dos,
Ya conseguí hacerlo. Lo he hecho por programación y, aunque sabía como hacer la query y abrir el documento excel desde Vb, todavía no sabía cómo hacerlo para pasar la información al excel.
Al final lo hice así:

...
' Hago la query

' Abro el excel

Do While Not objRS.EOF

' Si es la primera pasada por el bucle, pinto la cabecera
ApExcel.Cells(InitRow, (num_column + 1)).Formula = objRS.Fields(num_column).Name
ApExcel.Cells(InitRow, (num_column + 1)).Borders.Value = 1
ApExcel.Cells(InitRow, (num_column + 1)).Font.Bold = True
ApExcel.Cells(InitRow, (num_column + 1)).Interior.ColorIndex = 36

' Para cada campo de un registro de la query
For num_column = 0 To num_campos - 1 Step 1
ApExcel.Cells(InitRow, (num_column + 1)).Formula = objRS.Fields(num_column).Value
ApExcel.Cells(InitRow, (num_column + 1)).Font.Bold = False
Next num_column

objRS.MoveNext
Loop


Gracias y un saludo

[AlvaroHM]

y como fue que abriste excel?...

[Jorge_Mota]

Dim oExcel as Object
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.add()
oExcel.visible = .t.