Estoy usando esta clase en FWH 12.04 y Harbour 3.1 Rev 17222 y me da este error
Y Este es parte del código que lo genera
Este código funcionaba en FWH 2.7 y xHarbour. Alguna idea ??? Muchisimas gracias
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 26/06/2013, 17:51:31
Error description: (DOS Error -2147352570) WINOLE/1009 No existe el m‚todo: GET
Args:
[ 1] = C ActiveWorkBook
Stack Calls
===========
Called from: => TOLEAUTO:GET( 0 )
Called from: C:\sipep_sql\TEXCELS.PRG => TEXCELSCRIPT:CREATE( 324 )
Called from: C:\sipep_sql\juradas.prg => INICIAASIGNACION( 63 )
Called from: C:\sipep_sql\Sipep.prg => (b)EMPIEZA( 188 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 973 )
Called from: C:\sipep_sql\Sipep.prg => EMPIEZA( 188 )
Called from: C:\sipep_sql\Sipep.prg => MAIN( 18 )Y Este es parte del código que lo genera
Try
oExcel := TExcelScript():New()
Catch
? 'no se pudo abrir'
Exit
End
With Object oExcel
:Create( cFile ) //Aquí da el error
:SetLandScape()
:ColumnWidth( 1, 30 )
:ColumnWidth( 2, 7 )
:ColumnWidth( 4, 5 )
:NameSheet('Hoja1','Asig. ( Ord. )' )
:NameSheet('Hoja2','Asig. ( Ext. )' )
:SetSheet( 'Asig. ( Ord. )' )
//:oExcel : Visible := .t.
cRango := cMakeRange( 1, 1, 16 + Len( aArray2 ), 15 )
:RangeFondo( cRango, CLR_WHITE )
cRango := cMakeRange( 1, 1, 2, 15 )
:Combinar( cRango )
:RangeFondo( cRango, CLR_HGRAY )
:RanMultiLine( cRango )Este código funcionaba en FWH 2.7 y xHarbour. Alguna idea ??? Muchisimas gracias