FoxPro/Visual FoxPro - REPORTE A EXCEL

Amigo de la Web ...necesito de su ayuda, tengo un reporte que es resultado de varias conbinaciones de tablas...lo que deseo es mandarlo a Hoja de Excel tal cual como me da en VFP7, de antemano les agradesco su ayuda.

Si los tenes en una tabla a todos los datos que estan en el report :

use tabla

EXPORT TO c: abla type XLS
Elsa

Si los tenes en una tabla a todos los datos que estan en el report :

use tabla

EXPORT TO c: abla type XLS
Elsa

ELISA MUCHAS GRACIAS POR LA AYUDA ESE CODIGO ME DA BUEN RESULTADO, AHORA MI PREGUNTA ES COMO PUEDO HACER QUE ABRA EL DOCUEMNTO DE EXCEL CREADO Y OTRA COMO PUEDO ASIGNARLE UN NOMBRE DISTINTO POR CADA REPORTE QUE PROCESE.

COPY TO c:M.ARCHIVO TYPE XLS
oEXCEL = CreateObject("excel.application")
oExcel.visible = .t.
oExcel.Workbooks.add

Este ejemplo abre el excel :
primero selecciona la tabla y despues donde dice :
.Range("A2").PasteSpecial , cambia A2 por donde quieras poner los datos.

1) caso
select tabla
cTmp = Getenv("TEMP")+"" + Sys(2015) + ".Tmp"
Copy To (cTmp) Delimited With Tab
_Cliptext = Filetostr(cTmp)
oExcel= Createobject("Excel.Application")
With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()
.Range("A2").PasteSpecial
.Cells(1,1).Value = "Enero"
.Cells(1,2).Value = "Febrero"
.Cells(1,3).Value = "Marzo"
.Cells(1,4).Value = "Abril"
.Visible = .T.

EndWith
oExcel.COLUMNS.AutoFit

2) caso
Tiene que haber una forma de abrir directamente el archivo. Si la encuentro te aviso

Suerte
Elsa

*ESTA ES UNA FORMA DE ENVIAR DATOS DE VISUAL FOX O CLIPPER A EXEL

*Ejemplo:

SET PRINTER TO C:\PRUEBA\FILE.XLS & Archivo de salida Excel &
SET DEVICE TO PRINT

USE TABLA.DBF & Tabla de Datos &
GO TOP
DO WHILE NOT EOF()
@PROW()+1,0 SAY DATO1+CHR(9)+DATO2+CHR(9)+DATO3+CHR(9)
+DTOC (DATO4FECHA)
SKIP
ENDDO
SET PRINTER TO

* CON ESTE CODIGO SE LA TABLA EXECL DESDE VFOXPRO

lcFile="C:\PRUEBA\FILE.XLS"
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute(lcFile)
RELEASE loShell
THISFORM.RELEASE

_Oexcel=CreateObject( "Excel.Application")
WITH _Oexcel
.VISIBLE=.T.
.WorkBooks.Open( "X.XLS" ) &&abre una planilla abierta
.Cells( 1,1).Fontsize=8 &&tamaño letra
... &&FontName
.Cells(1,1).Value = "1154" &&asigna valores
.ActiveWorkBook.SaveAs( "X2.XLS" ) &&graba como otro
ENDWITH
_Oexcel.Quit()

*// funciona con off97 y 2003 con las demas no lo probe pero deberia funcionar,
*// si hay algo que quieres hacer y no sabes como te recomiendo que abras excel
grabes macro y realices la tarea que quieres que tu programa te lo haga y luebo editas la macro reemplazas los nombres de las constantes por sus respectivos valores desde el visual basic y lo copias y traduces al foxpro, yo lo hice asi cuando necesitaba hacer reportes no tenia acceso a internet ni manuales, puedes hacer cualquier cosa que te propongas.

SELE mi_tabla
COPY TO nombre_archivo TYPE XLS