Загрузка из Еxcel в 1С

&НаКлиенте
Функция ПрочитатьЗаписи(НачальнаяСтрока,КонечнаяСтрока)
	Записи = Новый Массив;
	
	КоличествоСтрок = КонечнаяСтрока-НачальнаяСтрока+1;
	
	ШагСостояния = Макс(Окр(КоличествоСтрок/100),1);
	
	НомерСтроки = 0;
	Для i = НачальнаяСтрока По КонечнаяСтрока Цикл
		НомерСтроки = НомерСтроки+1;
		Запись = ПолучитьЗапись();
		Записи.Добавить(Запись);
		
		Если НомерСтроки % ШагСостояния = 0 Тогда
			Состояние("Чтение таблицы...",НомерСтроки/КоличествоСтрок*100,""+НомерСтроки+"/"+КоличествоСтрок);
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат Записи; 
КонецФункции

Процедура ЗагрузитьЗаписи(Знач Записи)
	
	ДобавляемыеТипы = Новый Массив;
	
	ИменаДокументов = Новый Соответствие;
	Для каждого ДокМД из Метаданные.Документы Цикл
		ИменаДокументов.Вставить(ДокМД.Представление(),ДокМД.Имя);
		ДобавляемыеТипы.Добавить(Тип("ДокументСсылка."+ДокМД.Имя));
	КонецЦикла;
	
	Табл = Новый ТаблицаЗначений;
	Табл.Колонки.Добавить("Документ",Новый ОписаниеТипов(ДобавляемыеТипы));
	Табл.Колонки.Добавить("ОсновноеСредство",Новый ОписаниеТипов("СправочникСсылка.ОбъектыЭксплуатации"));
	Табл.Колонки.Добавить("СрокПолезногоИспользованияБУ",Новый ОписаниеТипов("Число"));
	
	Для каждого Запись из Записи Цикл
		Стр = Табл.Добавить();
		Стр.Документ = Документы[ИменаДокументов[Запись.ДокументПредставлениеТипа]].ПолучитьСсылку(Новый УникальныйИдентификатор(Запись.ДокументУникальныйИдентификатор));
		Стр.ОсновноеСредство = Справочники.ОбъектыЭксплуатации.ПолучитьСсылку(Новый УникальныйИдентификатор(Запись.ОсновноеСредствоУникальныйИдентификатор));
		Стр.СрокПолезногоИспользованияБУ = Запись.СрокПолезногоИспользованияБУ;
	КонецЦикла;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Табл.Документ КАК Документ,
		|	Табл.ОсновноеСредство КАК ОсновноеСредство,
		|	Табл.СрокПолезногоИспользованияБУ КАК СрокПолезногоИспользованияБУ
		|ПОМЕСТИТЬ Табл
		|ИЗ
		|	&Табл КАК Табл
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|ВЫБРАТЬ
		|	ПараметрыАмортизацииОСБУ.Регистратор КАК Регистратор,
		|	ПараметрыАмортизацииОСБУ.ОсновноеСредство КАК ОсновноеСредство,
		|	Табл.СрокПолезногоИспользованияБУ КАК СрокПолезногоИспользованияБУ
		|ИЗ
		|	РегистрСведений.ПараметрыАмортизацииОСБУ КАК ПараметрыАмортизацииОСБУ
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Табл КАК Табл
		|		ПО ПараметрыАмортизацииОСБУ.Регистратор = Табл.Документ
		|			И ПараметрыАмортизацииОСБУ.ОсновноеСредство = Табл.ОсновноеСредство
		|ГДЕ
		|	ПараметрыАмортизацииОСБУ.СрокПолезногоИспользованияБУ <> Табл.СрокПолезногоИспользованияБУ";
	
	Запрос.УстановитьПараметр("Табл",Табл);
	
	Выборка = Запрос.Выполнить().Выбрать();
	
	НачатьТранзакцию();
	Пока Выборка.Следующий() Цикл
		
		Набор = РегистрыСведений.ПараметрыАмортизацииОСБУ.СоздатьНаборЗаписей();
		Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);
		Набор.Прочитать();
		
		Для каждого ЗаписьНабора из Набор Цикл
			Если ЗаписьНабора.ОсновноеСредство = Выборка.ОсновноеСредство Тогда
				ЗаписьНабора.СрокПолезногоИспользованияБУ = Выборка.СрокПолезногоИспользованияБУ;
			КонецЕсли;
		КонецЦикла;
		
		Если Набор.Модифицированность() Тогда
			Набор.ОбменДанными.Загрузка = Истина;
			Набор.Записать();
		КонецЕсли;
		
	КонецЦикла;
	ЗафиксироватьТранзакцию();
	
КонецПроцедуры

&НаКлиенте
Процедура Загрузить(Команда)
	Excel = Новый COMОбъект("Excel.Application");
	Workbook = Excel.Workbooks.Open(ИмяФайла);
	
	Sheet = Workbook.ActiveSheet;
	
	Count = Sheet.UsedRange.Rows.Count;
	Cells = Sheet.Cells;
	
	СоответствияПолей = Новый Соответствие;
	
	СоответствияПолей.Вставить("ДокументПредставлениеТипа",1);
	СоответствияПолей.Вставить("ДокументУникальныйИдентификатор",5);
	СоответствияПолей.Вставить("ОсновноеСредствоУникальныйИдентификатор",6);
	СоответствияПолей.Вставить("СрокПолезногоИспользованияБУ",7);
	
	Записи = ПрочитатьЗаписи(5,45252);
	//Записи = ПрочитатьЗаписи(5,27);
	
	//Сообщить(Count);
	
	Состояние("Загрузка...");
	ЗагрузитьЗаписи(Записи);
	
	Excel.DisplayAlerts = Ложь;
	Workbook.Close();
	Excel.Quit();
	
КонецПроцедуры