topic-32781

Board index FiveWin for Harbour/xHarbour Excel Sheet-name check

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Excel Sheet-name check
Posted: Wed Aug 03, 2016 09:08 AM

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

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Excel Sheet-name check
Posted: Wed Aug 03, 2016 09:46 AM

Marc,

Try so, (no tested)

Code (fw): Select all Collapse

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

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Re: Excel Sheet-name check
Posted: Wed Aug 03, 2016 09:55 AM

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

hmpaquito wrote:Marc,

Try so, (no tested)

Code (fw): Select all Collapse

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

FiveTech Support Forums

Continue the discussion