FoxPro/Visual FoxPro - Mandar Reporte a Excel

Hola comunidad, de nuevo acudo a uds. con el siguiente 'torito'...
Necesito poder mandar a un reporte a un archivo de excel o word.
Hace tiempo hice algo similar en VB, con una utileria que me pasaron, funcionaba de la siguiente manera que es lo que quiero hacer:
Ejemplo: Mando un reporte a pantalla primero, luego seleccionar en el panel guardar como archivo excel o word, inclusive me da la opcion de ponerle nombre al archivo.
Espero que no sea mucho pedir...de antemano muchas gracias.
Saludos

http://www.frx2any.com/

vicente ya probaste este producto

hola amigo quisiera saber como le hiciste para enviar tu reporte de visual fox pro a excel tengo el mismo problema y quisiera que me ayudaras, estuve checando que crystal reports lo puede mandar a varios formatos, pero quiero ahorrarme el tiempo. Saludos.

prueba esto tambien vicente

oExcel = CreateObject("Excel.Application")
NombreArchivo='c:\documentos.xls'
oWorkbook = oExcel.Workbooks.Open(NombreArchivo)
oExcelApp = oExcel.Application
oExcelApp.WindowState = -4137
oHoja=oWorkbook.Sheets(1)
with oHoja.range("A2:D65536")
.clear
endwith
oHoja.cells(1,1).value="Comprador"
oHoja.cells(1,2).value="Cesión"
oHoja.cells(1,3).value="No Documento"
oHoja.cells(1,4).value="Valor"
FILA=2
sele 5
go top
do while not eof()
oHoja.cells(FILA,1).value=DE_NOMDEU
oHoja.cells(FILA,2).value=DE_CESION
oHoja.cells(FILA,3).value=DE_DOCUM
oHoja.cells(FILA,4).value=DE_VALOR
FILA = FILA + 1
sele 5
skip
enddo
with oHoja.Columns("A:D")
.Name = "Arial"
.VerticalAlignment = 1
.Orientation = 0
.ShrinkToFit = .F.
.MergeCells = .F.
.Font.Size=8
.EntireColumn.Autofit
endwith
with oHoja.Columns("D:D")
.NumberFormat = "#,##0.00"
.ColumnWidth = 15
endwith

oWorkbook.Save()
oWorkbook.Close()
oExcel.quit

Suerte

Muchas gracias por tu aportacion Ernesto....hice lo que me sugeriste y funciono...
me habia desaparecido un poco del foro porque casi no habia tenido problemas, y consulto muchos de los casos aqui y encuentro solucion, y cuando no doy con bola recurro a uds., como ahora...De nuevo muchas gracias.
Saludos

Suerte compañero