Visual Basic - Dividir un recordset para copiarlo a un EXCEL

Amigos,

Estoy intentando crear un reporte que lo pueda exportar a Excel con visual Basic, el problema que tengo en este momento es que la consulta del reporte me trae mas de 65000 registros. Y como saben un Excel solo acepta 65536 registros.

La idea es crear algo que cada 65000 registros me inserte el resto de los archivos en otra hoja de Excel o me cree un nuevo archivo,

Muchas gracias de antemano,

Saludos

Javichaca

una consulta que os trae mas de 65000 registris y un Excel solo acepta 65536? pues todavia os quedan 536 para mostrar.
y porque querès mostrar mas de 65536 registros en un Excel? vos creeis que el usuario va a mirar 65536 registros para ver cual es el que le interesa?
lo normal es que se visualicen en grupos de 200, 500 etc porque por muxo que querais en la pantalla no caben mas (hasta 25 en una de 17")

No dices como haces la exportacion a Excel, pero te pongo este ejemplo a ver si te da una idea.

Set objXL = CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Sheets("Hoja1").Select
Do While Not rs.EOF
For j = 1 To rs.Fields.Count
objXL.Cells(i + 1, j).Value = rs.Fields(j - 1)
Next
i = i + 1
If i = 65000 Then
objXL.Sheets("Hoja2").Select
i = 0
End If
rs.MoveNext
Loop