FoxPro/Visual FoxPro - Reporte a Excel

 
Vista:

Reporte a Excel

Publicado por AdictoFox (6 intervenciones) el 05/05/2001 21:28:10
Alguien por casualidad ha construido alguna rutina para enviar reportes de VFP a Excel, sin tener que hacerlo desde la tabla por supuesto.
Es decir sin utilizar COPY TO ... TYPE XLS o EXPORT TO.

Lo que quiero es mostrar tres opciones al usuario, 1. Impresor, 2. Pantalla, 3. Excel

Mucho agradecre la ayuda que puedan proporcionarme.
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

Reporte a Excel

Publicado por Charles Benzon (353 intervenciones) el 06/05/2001 04:38:36
Buenas,
Un ejemplo rapido:
* Creamos una isntancia
loExcel = CreateObject( "Excel.Application" )
* Ponemos un titulo a el TAB
WITH .Sheets(1)
.Select
.Name = "Reporte"
ENDWITH
* Ponemos un titulo
WITH .Range("A1")
.Value = "Reporte General"
WITH .Font
.Bold = True
.Size = 14
.Underline = 2
ENDWITH
ENDWITH
* aqui vas poniendo los datos
linea = 3
SCAN while !eof()
.Cells(linea, 1).Value = tabla.campo1
.Cells(lnRow, 2).Value = tabla.campo2
endscan

Espero te sirva.
Saludos.
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

Reporte a Excel Parte 2

Publicado por Charles Benzon (353 intervenciones) el 06/05/2001 04:40:24
Buenas,
me olvide...

loExcel.Visible = .T.
Release loExcel

Saludos.
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

RE:Reporte a Excel

Publicado por AdictoFox (6 intervenciones) el 07/05/2001 17:44:02
Mis disculpas por no haberme explicado muy bien, pero realmente lo que necesito es que el reporte ya construido en VFP o sea el FRX, pueda pasarlo a Excel, se que existe una forma en donde se puede darle forma programaticamente al FRX y luego generarlo para que este cree un archivo en Formato XLS, esto lo vi funcionar en Fox p/DOS, pero en VFP aun no logro encontrar algo para esto.

Gracias por toda la ayuda brindada.
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