FoxPro/Visual FoxPro - PROBLEmA CON REPORTE EN EXCEL

Hola gente, tengo un pequeño problema al exportar a un excel, al momento de abrirlo me dice q es demasiado grande....alguien puede darme una manito? GRACIAS.

Les dejo el comando que uso

***********************

Local lcArchivo

lcArchivo=PutFile('Nombre de Archivo : ',AllTrim(ThisForm.pcArchivo),'XLS')
if Empty(lcArchivo)
Retu
endif
ThisForm.pcArchivo=lcArchivo

if ThisForm.pnAscii.Value=1
REPORT FORM (ThisForm.pcReporte.Value);
RANGE (THISFORM.pnRangoMin.Value),(THISFORM.pnRangoMax.Value);
TO FILE (ThisForm.pcArchivo) ASCII NOCONSOLE
else
REPORT FORM (ThisForm.pcReporte.Value);
RANGE (THISFORM.pnRangoMin.Value),(THISFORM.pnRangoMax.Value);
TO FILE (ThisForm.pcArchivo) NOCONSOLE
endif
MessageBox('Archivo Grabado. OK.',64,'Aviso')

Hola gente, tengo un pequeño problema al exportar a un excel, al momento de abrirlo me dice q es demasiado grande....alguien puede darme una manito? GRACIAS.

Les dejo el comando que uso

***********************

Local lcArchivo

lcArchivo=PutFile('Nombre de Archivo : ',AllTrim(ThisForm.pcArchivo),'XLS')
if Empty(lcArchivo)
Retu
endif
ThisForm.pcArchivo=lcArchivo

if ThisForm.pnAscii.Value=1
REPORT FORM (ThisForm.pcReporte.Value);
RANGE (THISFORM.pnRangoMin.Value),(THISFORM.pnRangoMax.Value);
TO FILE (ThisForm.pcArchivo) ASCII NOCONSOLE
else
REPORT FORM (ThisForm.pcReporte.Value);
RANGE (THISFORM.pnRangoMin.Value),(THISFORM.pnRangoMax.Value);
TO FILE (ThisForm.pcArchivo) NOCONSOLE
endif
MessageBox('Archivo Grabado. OK.',64,'Aviso')

Creo que el problema es que la cantidad de registros mas encabezados mas lineas en blanco superan el maximo de filas que pudes cargar en Excel (65536)

CLARO ESE ES EL PROBLEMA, PERO CONOCES ALGUN METODO QUE POR EJEMPLO SI SOBRE PASA ESA CANTIDAD QUE LO QUE FALTA LO GRAVE EN OTRA HOJA?