FoxPro/Visual FoxPro - Enviar datos de una tabla a un archivo con formato

Hola foro:

Tengo una tabla con unos datos, es posible enviar esta información a un archivo de Excel que ya tenga unos titulos o puedo darle los titulos y la presenacion que deseo al archivo de Excel desde visual Fox.

Muchas gracias por su colaboración

Puedes ver la solución en www.portal.fox

Hola!
prueba con este código y cuentame que pasa.
saludos.

esto te abre ecxel desde tu prg y pone algunas notas.... Suerte...
************************************************************************
Local lcWord,lcFileName,gcNomXls,tamarc1,gdFecVerL
local c,d
close data
lcFileName='Reporte' && este es el nombre del libro de Excel
mresp=MessageBox("Está su versión de Excel en idioma Inglés ?",547,"Generación de Planilla")
do case
case mresp=2
return
case mresp=6
lcword="Sheet1"
case mresp=7
lcword="Hoja1"
endcase

ExcObj=CREATEOBJECT("EXCEL.APPLICATION")
ExcObj.VISIBLE=.T.
ExcObj.WORKBOOKS.add
ExcObj.sheets(lcWord).Select
Excobj.sheets(lcWord).Name= "Ampliaciones"
* Encabezados *
ExcObj.RANGE("A2:I3").SELECT
ExcObj.RANGE("A2:I3").FONT.NAME="Times New Roman"
ExcObj.RANGE("A2:I3").FONT.BOLD=.f.
ExcObj.RANGE("A2:I3").FONT.SIZE=10
ExcObj.RANGE("A2:I3").VerticalAlignment = 3

ExcObj.RANGE("A2:J2").SELECT
ExcObj.selection.Borders(3).weight=4 && Derecho

ExcObj.RANGE("C1").SELECT
ExcObj.ACTIVECELL.FONT.BOLD=.t.
ExcObj.ACTIVECELL.FONT.SIZE=15
ExcObj.ACTIVECELL.VALUE= " Hola, prueba de exportación"

ExcObj.RANGE("C3").SELECT
ExcObj.ACTIVECELL.FONT.BOLD=.t.
ExcObj.ACTIVECELL.FONT.SIZE=17
ExcObj.ACTIVECELL.VALUE= " REPORTE DE PRUEBA "

ExcObj.RANG