Xbrowse ToExcel Error

[Marcelo Via Giglio]

Hello,

the xBrowse's method toExcel() don't work with office 2010, I tried with 2007 and this work ok, I got this error with Excel 2010

Application
===========
Path and name: D:\morales\morales.exe (32 bits)
Size: 3,692,032 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903)
FiveWin Version: FWHX 13.11
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 27 secs
Error occurred at: 26/11/2014, 14:40:16
Error description: Error Excel.Application:ACTIVESHEET:CELLS/0 S_OK: _FORMULA
Args:
[ 1] = C =SUBTOTALES(9;F2:F77)

Stack Calls
===========
Called from: => TOLEAUTO:_FORMULA( 0 )
Called from: Source\xbrowse.prg => TXBROWSE:TOEXCEL( 7485 )

I'm using footers totals

Some fast solution?

Best regards

Marcelo

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=21667

[ratazul]

Solución

Modificar Olefunc.prg y compilar con su aplicación

Que modificar

Ir a function ExcelTranslate( cFunc )

en los arreglos esta escrito:

local aTranslates := { ;
{ "TRUE", "VERDADERO", "VRAI", "VERDADEIRO", "WAHR", "VERO" }, ;
{ "FALSE", "FALSO", "FAUX", "FALSO", "FALSCH", "FALSO" }, ;
{ "SUM(", "SUMA(", "SOMME(", "SOMA(", "SUMME(", "SOMMA(" }, ;
{ "SUBTOTAL(", "SUBTOTALES(", "SOUS.TOTAL(", "SUBTOTAL(", "TEILERGEBNIS(", "SUBTOTALE(" }, ;
{ ',', ';', ';', ';', ';', ';' } ;
}

debe modificarse a:

local aTranslates := { ;
{ "TRUE", "VERDADERO", "VRAI", "VERDADEIRO", "WAHR", "VERO" }, ;
{ "FALSE", "FALSO", "FAUX", "FALSO", "FALSCH", "FALSO" }, ;
{ "SUM(", "SUMA(", "SOMME(", "SOMA(", "SUMME(", "SOMMA(" }, ;
{ "SUBTOTAL(", "SUBTOTALES(", "SOUS.TOTAL(", "SUBTOTAL(", "TEILERGEBNIS(", "SUBTOTALE(" }, ;
{ ',', ',', ';', ';', ';', ';' } ;
}

Saludos.