FiveTech Software tech support forums

Antonio,

Can it be done for xHarbour too? If yes, can you explain how?

Many thanks!

EMG

Rao, I have been reviewing why xharbour uses this and its a way to set a OLE param as DISP_E_PARAMNOTFOUND type, but IMO xharbour way is complex without need (of couse I know I may be missing situations that I may not taking into account). I think a better aproach is to use allow the use of nil (muc...

NageswaraRao,

Best option is to ask to the Harbour developers groups.

EMG

... ole and ado libraries comaptible with Harbour. In this process I got stuck up with some issues like finding equivalents in Harbour for function OleDefaultArg() and NULL. In xHarbour, we use OleDefaultArg() where we need to skip arguments in some cases. NIL does not work. I give an example here ...

... "]" ) RETURN (.T.) END END // Open XLS... TRY oExcel:WorkBooks:Open( cSource ) // Also tried oExcel:WorkBooks:Open( cSource, OleDefaultArg(), OleDefaultArg(), OleDefaultArg() ) oSheet = oExcel:ActiveSheet CATCH Alert( "Error Reading XLS: " + cSource + " - [" ...

... cArqExcel:="c:\temp\test.xls" oExcel := CreateObject("Excel.Application") oPlani := oExcel:WorkBooks:Open( cArqExcel, OleDefaultArg() , OleDefaultArg() , OleDefaultArg() ) / nao abre e cArqExcel:="c:\temp\test.xls" oExcel := CreateObject("Excel.Application") ...

No, you have to use positional method. You can use OLEDEFAULTARG() for the empty parameters.

EMG

Found an old post of yours Enrico - https://groups.google.com/forum/?fromgr ... %5B1-25%5D

Is OleDefaultArg() available in both Harbour and xHarbour?

Hola Dionicio, Lo que pasa es que uso una versión antigua de xHarbour (1.1.0) y la versión 8.02 de FWH. En la clase TOleauto no existia la función OleDefaultArg() que se debe usar el en OPEN, asi: oExcel:Workbooks:Open( cDirXLS+cArquivoX,OleDefaultArg() ,OleDefaultArg() ,OleDefaultArg() ,"1111" ...

Thanks for your good answer Nagesh. As I have xHarbour 1.1.0 and FWH 8.02 it does not have the function OleDefaultArg(). Is there a similar one in my xHarbour version?

Regards,

... oBook   ADel( aParams, 1, .t. )   for n := 2 to Len( aParams )      if aParams[ n ] == nil         aParams[ n ] := OleDefaultArg()      endif   next   oBook  := HB_ExecFromArray( oExcel:WorkBooks, 'Open', aParams )return oBook  Usage:    oBook := ...