Страницы кники ексель в поле со списком

Подскажите как в поле со списком добавить значения с именами листов выбранной книги ексель?

"Процедура СформироватьExcel()
//Создадим объект Excel
РабочаяКнига = СоздатьОбъект("Excel.Application");
//Ограничим книгу Excel заданным числом листом  
ЗаданноеЧислоЛистов=7;
РабочаяКнига.SheetsInNewWorkbook = ЗаданноеЧислоЛистов;
//Установим заголовок книги
РабочаяКнига.Caption = "Отчет с Заданным Числом Листов";
//Создадим новую рабочую книгу
NewBook = РабочаяКнига.Workbooks.Add;
// Переименуем листы книги
Для НомерСтраницы=1 По ЗаданноеЧислоЛистов Цикл  
ТекСтраница=РабочаяКнига.Worksheets(НомерСтраницы);
ТекСтраница.Name="List"+Строка(НомерСтраницы);
ЯчейкаДляЗаписи=ТекСтраница.Cells(НомерСтраницы,НомерСтраницы); //(НомерСтроки,НомерСтолбца)
ЯчейкаДляЗаписи.Value="Текущий лист = Лист"+Строка(НомерСтраницы);
КонецЦикла;  
// Занесем имена листов в поле со списком на форме
Для НомерСтраницы=1 По ЗаданноеЧислоЛистов Цикл    
ТекСтраница=РабочаяКнига.Worksheets(НомерСтраницы);  
ИменаЛистов.ДобавитьЗначение(ТекСтраница.Name);
КонецЦикла;  
РабочаяКнига.Visible = 1;
РабочаяКнига = 0;
КонецПроцедуры //СформироватьExcel
"

"что то немного сложновато у вас получается

Процедура Excel()    

ПутьКФайлу = "C:\Files\Обмен1с\Nomenklatura.xls";
попытка
Ексель    = СоздатьОбъект("Excel.Application");
ФайлЕксель = Ексель.Workbooks.Open(ПутьКФайлу);
исключение
Сообщить(ОписаниеОшибки());
Сообщить("Не удалось инициализировать Excel");
Возврат;
КонецПопытки;

КоличествоЛистов = ФайлЕксель.Sheets.Count;
ПолеСоСписком.УдалитьВсе();
для Лист =1 по КоличествоЛистов   цикл
ПолеСоСписком.ДобавитьЗначение(ФайлЕксель.Sheets(Лист).Name) ;
КонецЦикла;

КонецПроцедуры

"

"Вобщето мне нужно было вот это-
ExcelApp = СоздатьОбъект("Excel.Application");
РабочаяКнига    = ExcelApp.WorkBooks("Ценник.xls");

КоличествоЛистов=РабочаяКнига.Sheets.Count();

Для Лист=1 по КоличествоЛистов Цикл  

ЛистЕксель.ДобавитьЗначение(РабочаяКнига.Sheets(Лист).Name);
КонецЦикла;
"

Там получается все нормально
просто он не понял вопроса

Это был пример по созданию (для другого человека ) и сейчас я в него добавил только цикл с ДобавитьЗначение.