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
