Excel Sheet-name check

[Marc Vanzegbroeck]

Hi,

How can I check if a sheet with a specific name exist in an excel workbook, and select it, if exist?
If not exist, I need to do something else..

[hmpaquito]

Marc,

Try so, (no tested)

Code: Select all

FUNCTION ExcelSheetNames(oExcel)
Local aNames:= {}
Local nLen:= oExcel:WorkSheets:Count
Local cName

FOR nI:= 1 TO nLen
   cName:= oExcel:WorkSheets(nI):Name 
   Aadd(aNames, cName)

NEXT
RETURN aNames

Regards

[Marc Vanzegbroeck]

Thank you. With the loop into the worksheets, I can test if a sheet exist.
Now It's working fine

Marc,

Try so, (no tested)

Code: Select all

FUNCTION ExcelSheetNames(oExcel)
Local aNames:= {}
Local nLen:= oExcel:WorkSheets:Count
Local cName

FOR nI:= 1 TO nLen
   cName:= oExcel:WorkSheets(nI):Name 
   Aadd(aNames, cName)

NEXT
RETURN aNames

Regards