Código vb:
Ver originalNo necesariamente con un recordset, si estas usando VBA puedes intentar esto, checalo sacale el provecho que puedas...
Comenta porfavor si te sirvio.
Sub Pasar()
Dim oEsteLibro As Excel.Workbook
Dim oOtroLibro As Excel.Workbook
Dim i As Long
'// Asignamos este libro a un objeto para su mejor manipulacion
Set oEsteLibro = ThisWorkbook
'// Agregamos otro libro
Set oOtroLibro = Workbooks.Add
'// Ponemos valores para pasarlos al otro libro
For i = 1 To 20
With oEsteLibro.Worksheets(1)
.Cells(i, 1) = Chr$(i + 100)
End With
Next
'// Ahora si lo pasamos a l otro libro
For i = 1 To 20
With oEsteLibro.Worksheets(1)
.Cells(i, 1) = oOtroLibro.Worksheets(1).Cells(i, 1)
End With
Next
'// Desactivar mensajes de Excel
'// En este caso si el archivo existe que lo sobreescriba
Application.DisplayAlerts = False
'// Guardamos y cerramos el otro libro
oOtroLibro.SaveAs Environ("USERPROFILE") & "\OtroLibro.xls"
oOtroLibro.Close False
Application.DisplayAlerts = True
MsgBox "Ruta dondse se guardo: " & Environ("ALLUSERSPROFILE") & "\OtroLibro.xls"
Set oEsteLibro = Nothing
Set oOtroLibro = Nothing
End Sub