Перенос данных из Excel в 1С

Как выгрузить данные из 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;