Enviar Recordset COMPLETO a Excel, Se puede ?
 

Hola gente, mi problema es el siguiente:
Estoy trabajando con tablas que contienen muchos registros, al hacer una consulta, esta me puede devolver miles o millones de registros, quiero enviar este resultado a Excel, el metodo que conozco es ir pasando celda por celda, algo asi :

For i = 0 To filas Step 1
j = 0
Do While j < cont_seleccionados
form_resultados.Grilla_Resultados.Row = i
form_resultados.Grilla_Resultados.Col = j + 1
celda = Chr(65 + j) & i + 1
wbLibro.Worksheets(1).Range(celda).Value = form_resultados.Grilla_Resultados.Text
j = j + 1
Loop
Next i

en donde: filas es la cantidad de registros devueltos por el recordset, y cont_seleccionados es la cantidad de campos seleccionados para la consulta

si tengo 1 millon de registros, la cantidad de vueltas que se daria el ciclo es de 1.000.000 x cont_seleccionados.

Mi pregunta es: hay alguna forma mas eficiente de hacer este ciclo ? seguro alguien sabe por ahi, espero su ayuda, gracias :arriba:


Saludos... :adios:

PD: Todo esto sobre Vb6