Generar Tabla en Excel

[fglez]

Consultores,
Tengo una rutina que me genera una tabla en Excel, que utiliza la librerìa
TFileXls, que no la he podido hacer funcionar con Xailer 2.0 y Xharbour V.
10, como puedo cambiar la Rutina sin utilizar la librería ????, en la
version xailer 1.9 si se ejecutaba bien.:
METHOD TranExelCabms( oSender ) CLASS SAACPCAB
LOCAL oXls, oFonts[3], oFormat
LOCAL nTotal := 0, nInd
oFonts[1] := XLSFONT("ARIAL",12,.T.)
oFonts[2] := XLSFONT("ARIAL",11,.T.)
oFonts[3] := XLSFONT("ARIAL",10)
oFormat := XLSFORMAT("####")
WITH OBJECT oXLS :=
TFileXls():New(aDatPro[2]+"DatosExcelCatalogoCABMS.XLS",,,.F.,.T.)
:_Col(1,1,10)
:_Col(2,1,60)
:_Col(3,1,12)
:_Col(4,1,8)
:_Col(5,1,8)
:_Col(6,1,8)
:_Col(7,1,8)
:Say(1,1,aDatPro[1],,,oFonts[2])
:Say(1,10,"Fecha: "+TRANSFORM(DATE(),"99/99/9999"),,,oFonts[1])
:Say(2,1,"Catálogo C A B M S",,,oFonts[1])
:Say(4,1,"Código",,,oFonts[2],,.t.)
:Say(4,2,"D e s c r i p c i ó n",,,oFonts[2],,.t.)
:Say(4,3,"Unid.Med.",,,oFonts[2],,.t.)
:Say(4,4,"Part.1",,,oFonts[2],,.t.)
:Say(4,5,"Part.2",,,oFonts[2],,.t.)
:Say(4,6,"Part.3",,,oFonts[2],,.t.)
:Say(4,7,"IVA",,,oFonts[2],,.t.)
nInd:= 5
::oDbfDataSetCatCabms:GoTop()
DO WHILE !::oDbfDataSetCatCabms:EOF()
:Say(nInd,1,::oDbfDataSetCatCabms:CODIGO,,,oFonts[3])
:Say(nInd,2,::oDbfDataSetCatCabms:DESCRIPCIO,,,oFonts[3])
:Say(nInd,3,::oDbfDataSetCatCabms:UMED,,,oFonts[3])
:Say(nInd,4,::oDbfDataSetCatCabms:PARTPRES1,,,oFonts[3],oFor mat)
:Say(nInd,5,::oDbfDataSetCatCabms:PARTPRES2,,,oFonts[3],oFor mat)
:Say(nInd,6,::oDbfDataSetCatCabms:PARTPRES3,,,oFonts[3],oFor mat)
:Say(nInd,7,::oDbfDataSetCatCabms:IVA,,,oFonts[3])
::oDbfDataSetCatCabms:SKIP()
++nInd
++nTotal
ENDDO
:Say(nInd,1,nTotal,,,oFonts[2])
:Say(nInd,2,"T O T A L E S",,,oFonts[2],,.t.)
:End()
MsgInfo("Tabla: "+aDatPro[2]+"Catálogo CABMS.XLS"+CRLF+;
"Generada Con Exito","Tabla Creado")
END
::oDbfDataSetCatCabms:GoTop()
RETURN Nil
Pero
--
Ing. Francisco González Herrera
Comunicaciones Satelitales y Redes, S.A. de C.V.
56-78-16-66