1С 8.x : Добавление в список выбора листов excel-файла с возможностью последующего к ним обращения

 

//Реквизит "Листы" - неопределённого типа

//Реквизит "Файл" - строковой реквизит, в котором хранится путь к excel-файлу



Процедура ЗаполнитьЛисты()

	

	ЭлементыФормы.Листы.СписокВыбора.Очистить();

	Таблица = ПолучитьCOMОбъект(Файл);

	

	Для Н = 1 По Таблица.Sheets.Count Цикл

		ТекущийЛист = Строка(Таблица.Sheets(Н).Index) + ". " + Таблица.Sheets(Н).Name;

		ЭлементыФормы.Листы.СписокВыбора.Добавить(ТекущийЛист);

	КонецЦикла;

	ЭлементыФормы.Листы.Значение = ТекущийЛист;

	

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



Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	Если ЭлементыФормы.Листы.Значение = "" Тогда

		Предупреждение("Выберите лист", 5);

		Возврат;

	КонецЕсли;



	Таблица = ПолучитьCOMОбъект(Файл);

	Индекс = Число(Сред(ЭлементыФормы.Листы.Значение, 1, Найти(ЭлементыФормы.Листы.Значение, ". ") - 1));//извлекаем порядковый номер из текущего значения списка выбора

	Лист = Таблица.Sheets(Индекс);//получаем лист по порядковому номеру



	//теперь обращаемся к значениям в ячейках по своему усмотрению



	Строка = 1;

	Столбец = 4;



	КодНоменклатуры = Лист.Cells(Строка, Столбец).Value);

	Номенклатура = Лист.Cells(Строка, Столбец + 1).Text);

	

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