Excel : errors

[Franklin Demont]

Hello,

I have an aplication where the user can print to a excel-file. It has always worked without problems.

The last months i got many errors , while i didn't changed nothing in the source related to excel.

As an example :

Code: Select all  Expand view

oExcel        := CreateObject( "Excel.Application" )
oWorkBook := oExcel:WorkBooks:Add()
IF ! IsNil(oExcel)
  nSheets := oExcel:Sheets:Count()   ==> ERROR !!
END
 

Error description: Error Excel.Application:ACTIVESHEET:CELLS:_VALUE/0 S_OK: SHEETS
Called from: => TOLEAUTO:SHEETS( 0 )
Called from: B:\HENWINNEW\PRINTSYSA.PRG => STARTPRINTER( 725 )

Another example :
oSheed := oExcel:Get( "ActiveSheet" )
oSheed:Cells(nRij,nKol):Value := "test"
Error description: Error 2256468/424 Unknown error: CELLS
Args:
[ 1] = N 1
[ 2] = N 3
Called from: => TOLEAUTO:CELLS( 0 )

Testing on a computer from 5 years ago , i have no problems , but mine customers can not use excel anymore

Frank

[Enrico Maria Giordano]

Try to reinstall Office.

EMG

[Franklin Demont]

Changing oExcel:GET("ActiveSheet") in oExcel:Activesheet seems to solve the problem.

Probably oExcel:GET("ActiveSheet") works in XHB (commercial) , not with BCC

Frank