FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour oBrw:ToExcel() provoca un error ( SOLUCIONADO )
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
oBrw:ToExcel() provoca un error ( SOLUCIONADO )
Posted: Mon Aug 12, 2024 05:19 PM

Saludos tengo este problema al usar ToExcel() del xBrowse alguna solución

Application

===========

Path and name: C:\CaSoftSystem\WinContaPro\WinConta.Exe (32 bits)

Size: 9,424,384 bytes

Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)

FiveWin version: FWH 20.12

C compiler version: Borland/Embarcadero C++ 7.6 (32-bit)

Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 15 secs

Error occurred at: 12/08/2024, 12:16:32

Error description: Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: ADD

Args:

Stack Calls

===========

Called from: => TOLEAUTO:ADD( 0 )

Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:TOEXCEL( 10294 )

Called from: Bin\voucontable.prg => (b)MPRINT( 295 )

Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1603 )

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 989 )

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 937 )

Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1814 )

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2051 )

Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )

Called from: => WINRUN( 0 )

Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1097 )

Called from: Bin\Menu.prg => MAIN( 139 )

Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: oBrw:ToExcel() provoca un error
Posted: Mon Aug 12, 2024 05:52 PM
Este problema no pasa con office 2016 pero con la version de office 2021 si pasa revisando el xbrowse.prg el problema esta en esta parte


if ( oExcel := ExcelObj() ) == nil
lExcelInstl := .f.
if lCalcInstl == .f.
MsgAlert( FWString( "Excel not installed" ), FWString( "Alert" ) )
return Self
else
return ::ToCalc( bProgress, nGroupBy, , , aCols )
endif
endif
lExcelInstl := .t.

if nxlLangID == nil
SetExcelLanguage( oExcel )
endif

oExcel:ScreenUpdating := .f.
oExcel:WorkBooks:Add()
oSheet := oExcel:ActiveSheet
Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: oBrw:ToExcel() provoca un error
Posted: Tue Aug 13, 2024 03:45 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: oBrw:ToExcel() provoca un error
Posted: Fri Aug 16, 2024 02:14 PM

Este problema se presenta cuando el windows tiene actualizaciones pendientes de instalación una vez instaladas se soluciona el problema

Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com

Continue the discussion