Excel = СоздатьОбъект("Excel.Application");
РабочаяКнига=Excel.WorkBooks;
РабочаяКнига.Open(Путь);  

Для НомерЛиста = 1 По Excel.WorkSheets.Count Цикл
  Лист=Excel.WorkSheets(НомерЛиста);
//какой командой выводит название листа?
  КонецЦикла;

Excel.WorkSheets(НомерЛиста).Name

Сообщить(Лист.name)
только код кривоват

Excel = СоздатьОбъект("Excel.Application");
Книги=Excel.WorkBooks;
РабочаяКнига=Книги.Open(Путь);  
Листы=РабочаяКнига.WorkSheets;
Для НомерЛиста = 1 По Листы.Count Цикл
  Лист=Листы.Item(НомерЛиста);
  Сообщить(Лист.Name);
КонецЦикла;