oExcel = CreateObject("Excel.Application") oWorkbook = oExcel.Workbooks.Open(lcXlsFile) FOR i= 1 TO oWorkbook.Sheets.Count ? oWorkbook.Sheets(i).Name ENDFOR oExcel.Quit()