DEFINE VARIABLE lv-WorkSheets AS CHARACTER NO-UNDO.
DEFINE VARIABLE lv-WorksheetCount AS INTEGER NO-UNDO.
DEFINE VARIABLE lv-xls-handle AS HANDLE NO-UNDO.
DEFINE VARIABLE lv-i AS INTEGER NO-UNDO.
RUN excelmgr.p PERSISTENT SET lv-xls-handle.
RUN EXCEL-SetParameter IN lv-xls-handle (INPUT "VISIBLE","NO").
RUN EXCEL-SetParameter IN lv-xls-handle (INPUT "DISPLAYALERTS","NO").
RUN EXCEL-SetParameter IN lv-xls-handle (INPUT "READONLY","YES").
RUN EXCEL-OpenExcelFile IN lv-xls-handle (INPUT ip-FileName).
RUN EXCEL-SetParameter IN lv-xls-handle (INPUT "AUTONEWSHEET","NO").
RUN EXCEL-SetParameter IN lv-xls-handle (INPUT "SCREENUPDATING","NO").
lv-WorksheetCount = DYNAMIC-FUNCTION("fn-EXCEL-WorksheetCount" IN lv-xls-handle).
DO lv-i = 1 TO lv-WorksheetCount:
RUN EXCEL-SelectWorkSheet IN lv-xls-handle (INPUT lv-i).
lv-WorkSheets = lv-WorkSheets + min(lv-WorkSheets,",") + DYNAMIC-FUNCTION("fn-EXCEL-WorkSheetName" IN lv-xls-handle).
END.
RETURN lv-WorkSheets.