Guardar o Exportar un cursor de Foxpro a Excel

SELECT CUR_Pro && tonble de la Tabla
A = Putfile("xls","CUR_Pro","xls" && Guardar como
Copy To &A Type Xl5 && Guarda con formato Excel
*SET STEP ON
*------------------------------------------------------------------------------------------------------------
If ALLTRIM(A)>" "
P = Createobject("Shell.Application"
P.Open ('&A')
Endif

Espero que le sirva