Загрузка таблицы Excel до 10 000 строк в 1С 8.2 Управляемые формы

СтрокаПодключения = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = "+ПутьКФайлуОтчета;
	СтрокаПодключения = СтрокаПодключения + "; Extended Properties = "+"""Excel 12.0"+";HDR=NO;IMEX=1"";";
	
	// Подключаемся
	
	Об_Конект = Новый COMОбъект("ADODB.Connection");
	
	Попытка
		Об_Конект.Open(СтрокаПодключения); 
	Исключение
		Сообщить ("Невозможно подключится к Microsoft Excel Driver!!! Возможно файл ["+ПутьКФайлуОтчета+"] открыт другим пользователем.");
		Возврат;
	КонецПопытки;
	
	СтрЗапроса = "
	|SELECT *
	|FROM [A" + Формат(2,"ЧГ=0") + ":CZ" + Формат(99999,"ЧГ=0") + "] 
	|"; //данный запрос выбирает все заполненные ячейки листа, однако можно наложить условия отбора. синтаксис SQL
	
	Попытка
		RecordSet = Об_Конект.Execute(СтрЗапроса);
	Исключение
		Сообщить("Не удалось выполнить запрос к файлу Excel "+ ОписаниеОшибки(),СтатусСообщения.Важное);
		Возврат;
	КонецПопытки;
	
	Пока НЕ RecordSet.EOF() Цикл    
		ШтрихКод = RecordSet.Fields(3).value;
 		Количество = RecordSet.Fields(5).value;
		ЦенаКомитента = RecordSet.Fields(6).value;
		СуммаНДСКомитента = RecordSet.Fields(8).value;
		СуммаКомитента = RecordSet.Fields(7).value;
		ЦенаПродажи = RecordSet.Fields(9).value;
		СуммаНДСПродажи = RecordSet.Fields(11).value;
		СуммаПродажи = RecordSet.Fields(10).value;
		
		ЗагрузитьСтрокуОтчета(ОтчетКомиссионера,ШтрихКод,Количество, ЦенаКомитента,СуммаНДСКомитента,СуммаКомитента,ЦенаПродажи,СуммаНДСПродажи,СуммаПродажи);
		
		RecordSet.MoveNext();    
	КонецЦикла;

&НаСервере
Процедура ЗаполнитьТаблицу(МассивДанных,КоличествоСтрок)
	
	Объект.ТаблицаЗагрузки.Очистить();
	
	НашаТаблица=Объект.ТаблицаЗагрузки.Выгрузить();
	Для инд=1 по КоличествоСтрок Цикл
		НашаТаблица.Добавить();
	КонецЦикла;
	
	инд=0;
	Для каждого СтрокаМассива из МассивДанных Цикл
		Если инд=0 Тогда
			НашаТаблица.ЗагрузитьКолонку(СтрокаМассива,"ТорговаяТочка");
		ИначеЕсли инд=1 Тогда
			НашаТаблица.ЗагрузитьКолонку(СтрокаМассива,"Номенклатура");
		ИначеЕсли инд=2 Тогда	
			НашаТаблица.ЗагрузитьКолонку(СтрокаМассива,"КодТМЦ");
		ИначеЕсли инд=3 Тогда		
			НашаТаблица.ЗагрузитьКолонку(СтрокаМассива,"План");
		КонецЕсли;
		инд=инд+1;
	КонецЦикла;
	
	Если НашаТаблица.Количество()>0 Тогда
		НашаТаблица.Удалить(НашаТаблица[0]);
	КонецЕсли;
	
	
	Объект.ТаблицаЗагрузки.Загрузить(НашаТаблица.Скопировать());
	
	Для каждого СтрокаТаблицы из Объект.ТаблицаЗагрузки Цикл
		
		СтрокаТаблицы.ТМЦ=Справочники.Номенклатура.НайтиПоКоду(Прав("000000"+СтрЗаменить(СтрокаТаблицы.КодТМЦ,Символ(160),""),6));
		СтрокаТаблицы.ТоварнаяГруппа=СтрокаТаблицы.ТМЦ.ПоследняяТоварнаяГруппа;
		СтрокаТаблицы.Магазин=Справочники.ПР_ТорговыеТочки.НайтиПоНаименованию(СокрЛП(СтрокаТаблицы.ТорговаяТочка));
		СтрокаТаблицы.КлассификацияD=?(СтрокаТаблицы.ТМЦ.Классификация=Справочники.Ном_КлассификацияНоменклатуры.Классификация_D,Истина,Ложь);
		Если СтрокаТаблицы.ТМЦ=Справочники.Номенклатура.ПустаяСсылка() Тогда
			Сообщить("Не найдена номенклатура по коду: "+СтрокаТаблицы.КодТМЦ+" наименование "+СтрокаТаблицы.Номенклатура);
		КонецЕсли;	
		
		Если СтрокаТаблицы.Магазин=Справочники.ПР_ТорговыеТочки.ПустаяСсылка() Тогда
			Сообщить("Не найдена торговая точка по наименованию: "+СтрокаТаблицы.ТорговаяТочка);
		КонецЕсли;	
		
	КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьИзЭкселя(Команда)
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
		ФайлХЛС=Excel.Application.Workbooks.Open(ПутьКФайлу);
		Состояние("Обработка файла Microsoft Excel...");
		ExcelЛист = Excel.Sheets(1);
	Исключение
		Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
		Возврат;		
	КонецПопытки;
	
	КонечнаяСтрокаДанных=ФайлХЛС.ActiveSheet.UsedRange.Rows.Count; 
	КоличествоКолонокДанных=ФайлХЛС.ActiveSheet.UsedRange.Columns.Count; 
	Состояние("Загрузка в память данных Excel...");
	ExcelЛист=ФайлХЛС.ActiveSheet;
	Область = Excel.Range(ExcelЛист.Cells(1,1), ExcelЛист.Cells(КонечнаяСтрокаДанных,КоличествоКолонокДанных));
	МассивДанныхEXEL = Область.Value.Выгрузить();
	Excel.WorkBooks.Close();
	
	ЗаполнитьТаблицу(МассивДанныхEXEL,КонечнаяСтрокаДанных);
	Excel.Quit();

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