error with Excel and ArrayTranspose sample Mr. Rao

[lucasdebeltran]

Hello,

Checking a Mr. Rao´s post, I want to transfer a excel sheet to an Array:

Code: Select all  Expand view

function Main()


   local oRange
   local aArray   := {}
   local cExePath := cFilePath( GetModuleFileName() )




   // Driver CDX----------------------------------------------------------------
   REQUEST DBFCDX, DBFFPT

   RDDSETDEFAULT( "DBFCDX")





   oRange   := GetExcelRange( cExePath + "hoja.xls" )
   aArray   := ArrTranspose( oRange:Value )
   oRange:WorkSheet:Parent:Close()

   XBrowse( aArray )

   msgalert(aArray[1,1])



return nil

But it shows:

Error description: Error BASE/1004 No exported method: VALUE
Args:
[ 1] = U

Stack Calls
===========
Called from: => VALUE( 0 )
Called from: array.prg => MAIN( 34 )

Line 34 is: aArray := ArrTranspose( oRange:Value )


Any clue please?.


Thank you very much.

[nageswaragunupudi]

oRange must be nil.
Please check if oRange is a valid range before calling oRange:Value.

oRange can be nil, if the excel file could not be opened (for whatever reason) or some other reason.

[lucasdebeltran]

Yes, it ´s nill. You are a Master.

Is there any way to retrive the error?. Because the operation of GetExcelRange does not show any errors.

Thank you very much.


PD: B the way, please any tips to increase xBrowse speed with ADS/AIS?.

Thank you again. Do you have a blog about Fivewin and Harbour?.