13/07/2003, 08:07
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 188
Antigüedad: 22 años, 11 meses Puntos: 0 | |
| pasar datos de query a excel en VB
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 |