Pasar datos de un Recordset (VB6) a una hoja (Excel)

xsara1_9
15 de Abril del 2004
Hola amigos, mi problema es que no soy capaz de escribir desde VB6 en una hoja de Excel, necesito que todos los datos de un recordset (DNI, Nombre, Apellidos con 100 registros) se pueda visualizar en una hoja nueva de Excel.

Dim oExcel As Object
Dim oLibro As Object
Dim oHoja As Object

Set oExcel = CreateObject("Excel.Application")
Set oLibro = oExcel.Workbooks.Open("C:PlantillasP1.xls")
Set oHoja = oExcel.Worksheets
******Prueba1*****
oLibro.Sheets("Nome").Cells(2, 3) = "Hola"
*****Prueba2******
oHoja.Worksheets("Sheet1").Range("B3").Value = "hola"
oExcel.Application.Visible = True
oLibro.SaveAs ("C:PlantillasP2.xls")

oLibro.Close
oExcel.Quit

Set oLibro = Nothing
Set oExcel = Nothing

No consigo de ninguna forma que me escriba Hola en una celda, esto lo hago de prueba, en el momento que consiga esto necesito visualizar todos los datos del registro.
Gracias por vuestra ayuda

rodrigogm78
15 de Abril del 2004
Prueba con este codigo yo lo he ejecutado y me ha funcionado

Dim exc As New Excel.Application

exc.Workbooks.Open "C:Documents and Settingsrgomez.RODRIGOEscritorioNueva carpeta (2)exCel.xls"
exc.DisplayAlerts = False
exc.Worksheets(1).Select
exc.Range("B3") = "hola"
exc.Workbooks(1).SaveAs "C:Documents and Settingsrgomez.RODRIGOEscritorioNueva carpeta (2)ex.xls"
exc.Workbooks.Close
exc.Quit
Set exc = Nothing

xsara1_9
15 de Abril del 2004
Muchísimas gracias Rodrigo, ya conseguí escribir "hola" incluso en varias casillas. Estoy haciendo pruebas para conseguir mi objetivo final, te lo cuento y si me puedes ayudar te lo agradezco.
Tengo una aplicación en VB6 en la que me visualiza en un datagrid todos los datos de un recorset. ¿Hay alguna forma rápida de que todos los datos del recordset pasen a Excel?
¿Tengo que ir asignando cada valor del recordset a un celda uno por uno?
Gracias, un saludo