SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mi69 en Sábado 30 de Octubre de 2004, 14:54

Título: Error En Codigo Por Favor Ayuda
Publicado por: mi69 en Sábado 30 de Octubre de 2004, 14:54

Hola,

Tengo problemas con un código, estoy tratando de copiar un recordset a excel, pero me sale un error en el código.

Por favor necesito que me ayuden. Gracias

Private Sub mnuGenerarinforme_Click()
Dim Xlapp As Excel.Application
Dim Prueba As Excel.Workbook
Dim Totalreg As Double
Dim Totalcol As Integer

Set Xlapp = Nothing
Set Xlapp = New Excel.Application
Xlapp.Workbooks.Add

Set Prueba = Nothing
Set Prueba = Xlapp.Workbooks(Xlapp.Workbooks.Count)

Set Hoja1 = Nothing
Set Hoja1 = Prueba.Worksheets.Add
With datPrimaryRS.Recordset
.MoveLast
Totalreg = .RecordCount
.MoveFirst
Totalcol = grdDataGrid.Columns.Count

For i = 0 To Totalcol - 1
Hoja1.Cells(1, i + 1).Value = datPrimaryRS.Recordset.Fields(i).Name
Next i

Hoja1.Range("A1").CopyFromRecordset datPrimaryRS.Recordset  '<--- Aca es donde me marca el error

Prueba.SaveAs Format(Now(), "ddmmyyyy")

Set Hoja1 = Nothing
Set Prueba = Nothing
Set Xlapp = Nothing
End With
End Sub

Título: Re: Error En Codigo Por Favor Ayuda
Publicado por: Brroz en Martes 2 de Noviembre de 2004, 11:50

Hola.

No indicas cuál es el error que te aparece, imagino que será porque no redimensionas el rango (.Resize), de todas formas, cúrate en salud y recorre el recordset dando valor a las celdas de igual forma que haces con los nombres de campo.

Suerte, abur.