Из Excel в Таблицу значений в 1С

Попытка
	Application = СоздатьОбъект("Excel.Application");
Исключение
	Сообщить(ОписаниеОшибки(),"!!!");
	Сообщить("Возможно, MS Excel не установлен на этом компьютере.");
	Возврат;
КонецПопытки;

wbs = Application.workbooks;
WorkBook = wbs.open(trimAll(ИмяФайлаЗагрузки));
Window = WorkBook.Windows(1);
Worksheet = WorkBook.Worksheets(1);
НачалоВыгрузки = Число(2); //Начало выгрузки всегда 2 строка
КоличествоСтрокВыгрузки = Число(16); //Будем получать из служебного поля или по условию пустоты

ТЗ = Новый ТаблицаЗначений;

Для Ш = НачалоВыгрузки по КоличествоСтрокВыгрузки + НачалоВыгрузки - 1 Цикл
	НовСтрТЗ = ТЗ.Добавить();
	НовСтрТЗ.НомерПП = Ш - НачалоВыгрузки + 1;
	
	НовСтрТЗ.Номер  = СокрЛП(Worksheet.Range("B" + Строка(Ш)).Value);
	НовСтрТЗ.Дата  = Дата(СокрЛП(Worksheet.Range("C" + Строка(Ш)).Value));
	НовСтрТЗ.ДатаПроводки  = Дата(СокрЛП(Worksheet.Range("E" + Строка(Ш)).Value));
	НовСтрТЗ.Сумма  = Окр(Число(СокрЛП(Worksheet.Range("T" + Строка(Ш)).Value)),2);
КонецЦикла;

Window.Visible = 1;
Application.DisplayAlerts = 0;
WorkBook.Close();
Application.DisplayAlerts = 1;
Application = 0;