FoxPro/Visual FoxPro - deseo exportar de visualfoxpro informes a excel

 
Vista:

deseo exportar de visualfoxpro informes a excel

Publicado por Nicolas Reyes (2 intervenciones) el 06/08/2002 20:47:16
Deseo exportar informes de visualfox pro 6.0 a excel
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

RE:deseo exportar de visualfoxpro informes a excel

Publicado por eric (254 intervenciones) el 06/08/2002 21:43:49
Hola tendrias que usar algo asi usando la tabla con la que alimentas el reporte:
SELECT prov_totales
COUNT TO VregProv
GO TOP
EXPORT TO C:\ventas\CaratExcel.XLS TYPE XLS FIELDS nombre,total,totext
loXL = CreateObject("Excel.Application")
With loXL
.DisplayAlerts = .F. && Algo asi como SET SAFETY OFF
.Visible = .T. && Si deseas que el usuario interactue con Excel.
.Workbooks.Open("C:\ventas\CaratExcel.xls")
.Range("A1").Select
.Selection.EntireRow.Insert
.Selection.EntireRow.Insert
.Selection.EntireRow.Insert
.Selection.EntireRow.Insert
.Selection.EntireRow.Insert
.Selection.Font.Bold = .T.
.Selection.Font.Name = "Tahoma"
.Selection.Font.Size = 12
.Selection.Value = "LATIN STOCK DE MEXICO"
.Range("A1:G1").Select
.Selection.Merge
.Range("A4").Select
.Selection.Font.Bold = .T.
.Selection.Font.Name = "Tahoma"
.Selection.Font.Size = 12
LO que yo hago para darle formato a la hoja, es hacer una macro en excel grabada, despues veo el codigo y lo adecuo a VFP, no cambia mucho
Suerte
E.
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
sin imagen de perfil

RE:deseo exportar de visualfoxpro informes a excel

Publicado por exportar a excel, otra forma (294 intervenciones) el 07/08/2002 10:27:27
Yo uso este formato, es simple pero efectivo:

select TABLA1 && tabla a exportar
COPY TO TBL1EX TYPE XL5 && donde TBL1EX es el archivo de excel destino

run/n &RutaExcel TBL1EX && para ejecutar el Excel abriendo el archivo creado TBL1EX

suerte
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