GetExcelRange function

[damianodec]

hi,
I know that GetExcelRange function works with this parameters ( cBook, cSheet, acRange, lOpened ) function defaults to ActiveWorkBook, ActiveSheet and UsedRange, if the corresponding parameters are not specified.
I Have a lot of excel files (cBook) and inside there are 1 or n sheets (cSheet), is there any way to open them (sheets) sequentially by FOR NEXT ?

[Enrico Maria Giordano]

Code: Select all  Expand view

FOR i = 1 TO oExcel:Sheets:Count
    oExcel:Sheets( i ):Select()
    // do something with this sheet
NEXT

EMG

[damianodec]

thank you Enrico,
I tried this and works:

Code: Select all  Expand view

oExcel   := ExcelObj()
oBook    := oExcel:WorkBooks:Open( cFile )
nSheet = oBook:Worksheets:Count()
FOR nFogli = 1 to nSheet
    cSheetName = oBook:Worksheets(nFogli):Name()
        oRange  := GetExcelRange(cFile, cSheetName , , @lOpened )
...
...