Процедура КнопкаВыполнитьНажатие(Кнопка) Попытка МойЭксель = Новый COMОбъект("Excel.Application") Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; Книга = МойЭксель.WorkBooks.Open("C:\test.xlsx"); Лист = Книга.WorkSheets(7); ВсегоКолонок = 2; ВсегоСтрок = 5; для Строки = 2 по ВсегоСтрок цикл Спр = Справочники.Инвент.СоздатьЭлемент(); Значение = СокрЛП(Лист.CellsСтроки,ВсегоКолонок).Value); Спр.НаименованиеОС = Значение; Спр.Записать(); КонецЦикла; МойЭксель.ActiveWorkbook.Close(Истина, "C:\test.xlsx"); КонецПроцедуры[/pre] |