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

   
Vista:

Exportar a Xls una Tabla de Vfp9

Publicado por Jesus (85 intervenciones) el 05/03/2015 15:16:19
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Exportar a Xls una Tabla de Vfp9

Publicado por Mauricio (42 intervenciones) el 05/03/2015 18:33:55
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Exportar a Xls una Tabla de Vfp9

Publicado por Jesus (85 intervenciones) el 05/03/2015 21:26:09
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Exportar a Xls una Tabla de Vfp9

Publicado por Mauricio (42 intervenciones) el 06/03/2015 00:38:03
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!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Exportar a Xls una Tabla de Vfp9

Publicado por Fidel José (558 intervenciones) el 06/03/2015 13:47:14
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Exportar a Xls una Tabla de Vfp9

Publicado por Jesus (85 intervenciones) el 06/03/2015 16:46:07
Mil Gracias Mauricio una fantastica solucion
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Exportar a Xls una Tabla de Vfp9

Publicado por Jesus (85 intervenciones) el 06/03/2015 16:45:00
Mil Gracias era lo q requeria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Exportar a Xls una Tabla de Vfp9

Publicado por Mauricio (42 intervenciones) el 06/03/2015 19:02:11
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]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar