GetExcelRange function

[damianodec]

hi,
I try to use GetExcelRange function and works with file excel on my pc but not work in lan.

this works:

Code: Select all  Expand view  RUN

cPath = "c:\myfolder\"
cFile = "myfile.xls"
GetExcelRange(cPath+cFile, , , @lOpened )

I have a folder in another pc in my lan and that folder has linked on my pc with S: unit, if I try this:

Code: Select all  Expand view  RUN

cPath = "S:\"
cFile = "myfile.xls"
GetExcelRange(cPath+cFile, , , @lOpened )

that not works.
I have full access to folder linked to S: unit (read and write)

any help?

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view  RUN

? FILE( cPath+cFile )

EMG

[damianodec]

hi Enrico,

Code: Select all  Expand view  RUN

msginfo(cPath+alltrim(aFile[nZ]))
oRange  := GetExcelRange(cPath+alltrim(aFile[nZ]), , , @lOpened )

this is msginfo:
S:\PREVENTIVI\ANNO_2018\dado_08 04 2018.xls

and this is GetExcelRange:

[Enrico Maria Giordano]

Please try with the FILE() function:

Code: Select all  Expand view  RUN

? FILE( cPath+alltrim(aFile[nZ]) )

EMG

[damianodec]

hi Enrico, this is:

[Enrico Maria Giordano]

It's fine. Then check lOpened value:

Code: Select all  Expand view  RUN

? lOpened

EMG

[damianodec]

.F. is the value

[Enrico Maria Giordano]

So you have to ask Rao, sorry. I've never used those functions.

EMG

[damianodec]

ok, thank you, I'm waiting Mr. Rao

[damianodec]

in Forum I found this thread:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30117&p=172039&hilit=getexcelrange#p172025

and I try this:

Code: Select all  Expand view  RUN

        oExcel   := ExcelObj()
        oBook    := oExcel:WorkBooks:Open( cPath+aFile[nZ] )       
        oRange  := GetExcelRange(cPath+alltrim(aFile[nZ]), , , @lOpened )

and now works...

[Enrico Maria Giordano]

Great!

EMG

[nageswaragunupudi]

Fixed in FWH 18.05