FoxPro/Visual FoxPro - Cursor VFP a Exel

Hola Gente como estan, tengo un cursor con 17.000 registros y cuando hago un Copy To c:\archivo.xls Type XLS me tira hasta 16.683 mas o menos. Alguien tiene idea de porque se graban esa cantidad de registros y no el total.

Si alguien lo sabe por favor comentenme el porque y ademas la solucion.

Gracias. Abel.

Hola!
prueba con el EXPORT TO.
saludos.
uplift

Proba hacer esto :

CREATE CURSOR abel (a int)
FOR i=1 TO 17000
INSERT INTO abel values(I)
endfor
EXPORT TO c:\lotes\abel TYPE xls
EXPORT TO c:\lotes\abel TYPE xl5

Esta probado tanto con XLS y XL5 pero si lo probas fijate que solo te copia al archivo de Excel 16.383 registros.

Hola!
no tengo ganas de probar nada...
aparte no entiendo para que está el FOR.
si presionas F1, y buscas EXPORT te dice todo lo necesario.
saludos.
Uplift

Hola, haz lo siguiente para que soluciones tu problema

La función COPY TO ... TYPE XL5 tiene la limitación de no poder copiar mas de 16.384 registros (que es la limitación del número de filas de Excel 5.0 ó '95).

Podemos usar OLE AUTOMATION para abrir la tabla con Excel y luego guardarla con "Guardar como XLS" desde Excel.

Ejemplo:

USE MiTabla && RECCOUNT("MiTabla") > 16384 registros !!!
lcDBF = "C:\MiDBF.dbf"
lcXLS = "C:\MiXLS.xls"
COPY TO (lcDBF) TYPE FOX2X AS 850
loExcel = CREATEOBJECT("Excel.Application")
WITH loExcel.Application
.Workbooks.Open(lcDBF)
.ActiveWorkbook.SaveAs(lcXLS, -4143, "", "", .F., .F.)
.Workbooks.Close
ENDWITH
RELEASE loExcel


Recordar que el número máximo de filas de Excel 97 y 2000 es de 65.536 filas.

Muchas gracias por el codigo.
En la nota anterior te pase un for para que se llene automaticamente el cursor y luego lo copie el XLS.

Ahora pruebo lo que me enviaste.

Saludos desde Argentina.