exportar a excel

[miguel.santander]

Buen dia amigos

cual es la forma de exportar a excel como se ve en el informe, es decir con
titulos y totales etc.

yo uso este pero me no me lleva los datos a cada columna

lcTextFile = ALLTRIM("REPORTE")+".XLS"
REPORT FORM ..\informes\inf_may_0005 TO FILE (lcTextFile) ASCII

Y este otro no trae los titulos ni totales
cFileExcel='"'+cFileExcel+'"'
COPY TO &cFileExcel FIELDS
consu.age,consu.proy,consu.fec,consu.deb,consu.cre TYPE XL5

Si me pueden ayudar por favor

[HernanCano]

Danos una vista de lo que necesitas (¿se entiende que vista es imagen?).

Tal vez si usas FoxyPreviewer puedas mejorar las dos alternativas que tienes.

Iniciemos por la vista.....

[miguel.santander]

Gracias Hernan por responder

Adunto envio una muestra de como sale el informe.

Y algo asi quiero pero en excel y no se si es factible

Gracias

[HernanCano]

Factible sí es.

Estoy fuera de casa. En cuanto llegue te muestro cómo podría lograrse.

[Integral]

Estimado Amigo :

Lo que deseas crear se llama Proceso de Automatización en EXCEL, implica mas lineas de código pero el resultado es mas completo...

Ahí puedes definir color, tamaño de la fuente columnas especificas entre otras variables...

No tengo a la mano un ejemplo, pero puedes buscar por la descripción que te menciono y encontraras algunos ejemplos.

Saludos,

INTEGRAL

[miguel.santander]

Gracias Integral

Voy a buscar entoces asi y me interiorizare sobre EL PROCESO DE
AUTOMATIZACION EN EXCEL a ver si encuentro algun ejemplo o ayuda.

[Jose Oscar Vogel]

fijate en la libreria que envio adjunto te puede servir de ejemplo

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.

Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/d/optout.

[Jorge Benitez]

Hola. te paso un pequeño ejemplo de como genero una planilla excel formateada

donde=sys(5)+sys(2003)+"\emitidas.xls" **** nombre que tendra la planilla generada

donde2=CHR(34)+sys(5)+sys(2003)+"\emitidas.xls"+CHR(34) ***** nombre que tendra la planilla generada

SELECT misfacemi *** tabla a exportar

EXPORT TO &DONDE TYPE XL5 FIELDS tfac,fac_t,fac_n,total,fecha,NCREDITO ***exporta los campos indicados a la planilla emitidas.xls

OleApp = CREATEOBJECT("Excel.Application")  && Abre la Aplicación 

OleApp.Visible=.T.  && Muestra la Aplicación 

OleApp.Workbooks.Open(&DONDE2)  && Abre elLibro* 

OleApp.Range("A1").value="LETRA" *** cambio en la planilla generada el nombre de la columna

OleApp.Range("B1").value="TERM."

OleApp.Range("C1").value="NUMERO"

OleApp.Range("D1").value="TOTAL"

OleApp.Range("E1").value="FECHA"

OleApp.Range("F1").value="N. CREDITO"

OleApp.Columns("A:N").autofit *** genero el ancho de cada columna al valor mas grande

OleApp.Columns("B").numberformat="0000" *** formato de las columnas numericas

OleApp.Columns("C").numberformat="00000000"

OleApp.Columns("D").numberformat="0.00"

OleApp.Columns("F").numberformat="0.00"

*OLEAPP.APPLICATION.RANGE("A1:F1").SELECT *** selecciono una fila

OLEAPP.APPLICATION.RANGE("A1:F1").INSERT *** inserto una fila en blanco

OLEAPP.APPLICATION.RANGE("A1:F1").INSERT *** inserto otra fila en blanco

OleApp.Range("A1").value="PERIODO DEL "+DTOC(THISFORM.SOMTEXT2.Value)+" AL "+DTOC(THISFORM.SOMTEXT1.Value) *** pongo en la columna A1 el titulo de la planilla

TTodo esto hace el proceso y te muestra la planilla lista

Espero te sirva

El 17 de marzo de 2017, 9:04, Jose Oscar Vogel <oscar...@gmail.com> escribió:

fijate en la libreria que envio adjunto te puede servir de ejemplo

El vie., 17 mar. 2017 a las 8:57, miguel.santander (<miguel.s...@tigo.com.py>) escribió:

Gracias Integral

Voy a buscar entoces asi y me interiorizare sobre EL PROCESO DE
AUTOMATIZACION EN EXCEL a ver si encuentro algun ejemplo o ayuda.


--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.

Para anular la suscripción a este grupo, envía un mensaje a:

mundovisualfoxpro+unsubscribe@googlegroups.com

---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfoxpro+unsubscribe@googlegroups.com.

Para obtener más opciones, visita https://groups.google.com/d/optout.

--

_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:

mundovisualfoxpro+unsubscribe@googlegroups.com

---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfoxpro+unsubscribe@googlegroups.com.

Para acceder a más opciones, visita https://groups.google.com/d/optout.

[HernanCano]

Colega:

El reporte que muestras parece que fue hecho con VFP. Mucho mejor todavía. Sólo lo ejecutas con FoxyPreviewer, más o menos así:

do locfile("FoxyPreviewer.App")

use "EL-DBF-DE-MIGUEL.DBF" shared

report form "EL-REPORTE-DE-MIGUEL.FRX" preview

use

Luego --mientras estás viendo el reporte-- sigues los cuatro pasos mostrados en las imagenes sgtes:

Y nos cuentas....

El jueves, 16 de marzo de 2017, 8:59:23 (UTC-5), MIGUEL.S escribió: