exportar datos a un doc excel vb6

[mveraa]

hola maestro realizo una consulta a un bd y obtengo resultados en una grilla. como puedo hacer para pasar los resultados aun doc. en excel.


un saludo

[OYEME]

Const cn = "provider=sqloledb;uid=sa;database=northwind;serve r=."
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from products", cn, adOpenDynamic, adLockOptimistic

Dim Hoja As New Excel.Application
Hoja.Workbooks.Add
Hoja.Cells(1, 1) = "ProductID"
Hoja.Cells(1, 2) = "ProductName"
Hoja.Cells(1, 3) = "UnitPrice"
Hoja.Cells(1, 4) = "UnitsinStock"
Hoja.Cells(1, 5) = "Monto"
i = 2
rs.MoveFirst
Do
Hoja.Cells(i, 1) = rs(0)
Hoja.Cells(i, 2) = rs(1)
Hoja.Cells(i, 3) = rs(5)
Hoja.Cells(i, 4) = rs(6)
Hoja.Cells(i, 5) = rs(5) * rs(6)
i = i + 1
rs.MoveNext
Loop Until rs.EOF

bueno eso pasa de uin recordset a un excel para un grilla ya te imaginaras
nos vemos

[mveraa]

muchas gracias por la orientacion .


un saludo.

[mveraa]

perdon por mi ignorancia pero al hacer esto

Dim Hoja As New Excel.Application

no me lo hace automatico , ¿que libreria deberia referenciar? puse todas las que dicen officee por algun lado y nada.



un saludo

[lucasiramos]

La libreria es Microsoft Excel 10.0 Object Library, o algo asi (la verdad no tengo el Visual a mano, pero no tenes como perderte...).

Saludos. Lucas

[polielb]

y cual seria el tratamiento si el resultado esta almacenado en una consulta en access, y esta refiere por ejemplo al detalle de llamadas donde se detallan importes por cada llamada. al levantar y ejecutar la consulta en visual basic se pasarian los datos a excel de la forma que describe OYEME, y en el caso que sea asi como le especifico que sume la columna de importes y me de un TOTAL en una celda especifica de excel no sabiendo la cantidad de registros de antemano, en mi caso aproximadamente de detallan 4.000 como mucho en la cosnulta GRACIAS ¡¡¡¡