FoxPro/Visual FoxPro - Exportar a Xls una Tabla de Vfp9

Estimados Amigos
Necesito Exportar una Tabla de Vfp9 a formato Xls, pero tengo el problema de como hacerlo
Por q me sale un error de ruta o algo parecido . Les envio parte del codigo q uso:

1. Primero me conecto al Sql2008 Server para extrer la data actual de mi Tabla Subsidios:

= SQLEXEC(CnxSub,"SELECT * FROM Subsidios","Subsidios")

2. Segundo Hago un Filtrado:
en la Tabla ya exytraida del Sql2008 server

SELECT Subsidios
Locate For Allt(Subsidios.Mes_Sub)=Allt(Thisform.Meses.Value) And;
RIGHT(Allt(Subsidios.Fin_Sub),4)=Allt(Thisform.Año.Value)
If Found()
Set Filter to Allt(Subsidios.Mes_Sub)=Allt(Thisform.Meses.Value) And;
RIGHT(Allt(Subsidios.Fin_Sub),4)=Allt(Thisform.Año.Value)

**** EN ESTA LINEA TENGO EL PROBLEMA NO SE COMO EXPORTAR A XLS ESTA TABLA

Intente asi: COPY TO "C:\SIGESU15\Subsidios.xls" TYPE XL5

Luego asi: COPY TO Subsidios.xls" TYPE XL5

y nada

Espero su pronta ayuda y de antemano Gracias por su tiempo y paciencia


Jesus

Se me ha extraviado la bola magica, puedes poner que codigo de error te muestra??
Debes tener abierta la tabla Subsidios
COPY TO subsidios TYPE XLS

Sorry el mensaje de error decia "no se encuentra la ruta especifica
cuando usa esta linea de programacion: COPY TO "C:\SIGESU15\Subsidios.xls" TYPE XL5

pero con tu codigo q me has enviado ( COPY TO subsidios TYPE XLS) ya funcion bien.

Otra consulta mas veo q ha exportado a Xls todo los campos de la Tabla hay manera q solo me
exporte de los 15 campos q hay, solo me exporte al XLS 5 campos q solo me pedin.

de antemano nuevamente mil Gracias

La forma mas rapida que se me ocurre es hacerlo con un CURSOR:
SELECT campo1, campo2, campo3, campo4, campo5 FROM subsidios INTO CURSOR otro_sub
* Como aca ya estamos ubicados en otro_sub
COPY otro_sub TO XXX TYPE XLS
*
En tu codigo inicial:
**** EN ESTA LINEA TENGO EL PROBLEMA NO SE COMO EXPORTAR A XLS ESTA TABLA

Intente asi: COPY TO "C:\SIGESU15\Subsidios.xls" TYPE XL5

Luego asi: COPY TO Subsidios.xls" TYPE XL5, lo que tienes mal es la comilla luego de Subsidios.xls, ademas que no existe esa extension (xls), pues con el COPY lo crearas!!
Ademas, si tuvieras la paciencia para buscar en la ayuda(PF1), verias los comandos a usar y en la mayoriade los casos existen ejemplos, solo requiere paciencia y ganas de buscar!!!!

COPY Command
Creates a new file from the contents of the currently selected table
No existe COPY archivo_source TO archivo_target
Siempre es
SELECT archivo_source
COPY TO archivo_target TYPE XL5

Además, COPY soporta la cláusula FIELDS, por lo que no se necesita crear un cursor nuevo.
COPY TO archivo_target FIELDS campo1,campo4,campo16 TYPE XL5

Ejemplo
*Tarea: crear un archivo "Mis Clientes.xls" en la carpeta "Mis documentos" a partir de una tabla "Clientes.dbf" que tiene 30 campos, entre ellos, "Nombre, Cuit, Idclien".
SELECT CLIENTES
lcFileOutPut="Mis Clientes"
oWsh = CREATEOBJECT("WScript.Shell")
lcTarget=ADDBS(oWsh.SpecialFolders("MyDocuments"))+lcFileOutPut
oWsh=Null
COPY TO (lcTarget) FIELDS nombre,cuit,idclien TYPE xl5

Mil Gracias Mauricio una fantastica solucion

Mil Gracias era lo q requeria

tambien de la tabla original puedes copiar solo los campos que quieras:
***
COPY TO Subsidios FIELDS campo1, campo2, campo3, campo4, campo5, campo6, campo7 TYPE XL5
Como te repito, solo es de darse un tiempito para revisar la ayuda.....

COPY TO NombreArchivo
[DATABASE NombreBaseDatos [NAME NombreLargoTabla]]
[FIELDS ListaCampos
| FIELDS LIKE Estructura
| FIELDS EXCEPT Estructura]
[Alcance] [FOR lExpresión1] [WHILE lExpresión2]
[[WITH] CDX] | [[WITH] PRODUCTION]
[NOOPTIMIZE]
[[TYPE] [FOXPLUS | FOX2X | DIF | MOD
| SDF | SYLK | WK1 | WKS | WR1 | WRK | CVS | | XLS | XL5
| DELIMITED [WITH Delimitador | WITH BLANK | WITH TAB
| WITH CHARACTER Delimitador]]]
[AS nPáginaCódigos]