Импорт из excel*

//Загрузка данных из эксель в 1с 
&НаСервере 
Процедура ЗагрузитьДанныеНаСервере(Результат, ДопПараметр) 
// Проверка выбора файла 
Если НЕ(Результат = Неопределено) Тогда 
СсылкаНаФайл = Результат[0]; 
Иначе 
Сообщить("Файл не выбран!"); 
Возврат; 
КонецЕсли; 
//ТабДок 
ТабДок = Новый ТабличныйДокумент; 
ТабДок.Прочитать(СсылкаНаФайл); 
 
//Чтение данных 
Для Строка = 2 По ТабДок.ВысотаТаблицы Цикл 
ЭлементФурнитура = Справочники.Фурнитура.СоздатьЭлемент(); 
//Артикул 
ЭлементФурнитура.Артикул = ТабДок.Область(Строка, 1).Текст; 
//Наименование 
ЭлементФурнитура.Наименование = ТабДок.Область(Строка, 2).Текст; 
//Ширина 
ЭлементФурнитура.Ширина = ТабДок.Область(Строка, 3).Текст; 
//Длина 
ЭлементФурнитура.Длина = ТабДок.Область(Строка, 4).Текст; 
//ТипФурнитуры 
ТипФТабл = ТабДок.Область(Строка, 5).Текст; 
Если Справочники.ТипФурнитуры.НайтиПоНаименованию(ТипФТабл, Истина)= 
Справочники.ТипФурнитуры.ПустаяСсылка() Тогда 
ЭлементТипФ = Справочники.ТипФурнитуры.СоздатьЭлемент(); 
ЭлементТипФ.Наименование = ТипФТабл; 
ЭлементТипФ.Записать(); 
Сообщить ("В справочник ТипФурнитуры добавлены записи" + ЭлементТипФ.Наименование); 
КонецЕсли; 
ЭлементФурнитура.Тип = Справочники.ТипФурнитуры.НайтиПоНаименованию(ТипФТабл, Истина); 
 
ЭлементФурнитура.Записать(); 
Сообщить("В справочник добавлены данные" + ЭлементФурнитура.Наименование); 
 
КонецЦикла 
 
КонецПроцедуры 
//Выбор файла с данными 
&НаКлиенте 
Процедура ЗагрузитьДанные(Команда) 
ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 
ВыборФайла.МножественныйВыбор = Ложь; 
ВыборФайла.Фильтр = "Табличные документы *.xlsx | *.xlsx"; 
ВыборФайла.Показать(Новый ОписаниеОповещения("ЗагрузитьДанныеНаСервере", ЭтотОбъект, Новый Структура)); 
КонецПроцедуры