1С обработка выдает ошибку - Произошла исключительная ситуация (0x800a03ec)

Процедура Сформировать()
	Книга = Новый COMОбъект("Excel.Application");
	Лист  = Книга.Workbooks.Open(ЭлементыФормы.ФайлПереноса.Значение);
	
	
	НомерСтр = 0;
	//НаименованиеЛиста="Март!";
	НаименованиеЛиста=СокрЛП(ЭлементыФормы.Месяц.Значение)+"!";
	
	СтрНач = 5;
	СтрКон = 719;
	
	//СтрНач = 10;
	//СтрКон = 10;
	
	Стр = СтрНач;
	
	
	
	Пока Стр<=СтрКон Цикл
		//Выборка данных с листа Exel
		НомСтр = Формат (Стр,"ЧГ=0");
		НомСтр1 = Формат (Стр+1,"ЧГ=0");
		НомСтр2 = Формат (Стр+2,"ЧГ=0");
		НомСтр3 = Формат (Стр+3,"ЧГ=0");
		НомСтр4 = Формат (Стр+4,"ЧГ=0");
		НомСтр5 = Формат (Стр+5,"ЧГ=0");
		
		
		Бензин92Дробин=0;
		ГазДробин =0;
		Бензин76Дробин =0;
		ДТДробин =0;
		Бензин92Астра=0;
		ГазАстра=0;
		Бензин76Астра=0;
		ДТАстра=0;
		Бензин92Смарт=0;
		Бензин95Смарт=0;
		ГазСмарт =0;
		Бензин76Смарт=0;
		ДТСмарт=0;
 		Бензин92Приход=0;
		Бензин95Приход=0;
		ГазПриход=0;
		Бензин76Приход =0;
		ДТПриход=0;
		Бензин92Расход=0;
		Бензин95Расход=0;
		ГазРасход =0;
		Бензин76Расход =0;
		ДТРасход =0;
		БензинНормальПриход=0; 
		БензинНормальРасход=0;
		//газ природный
		КПГГГТ=0;
		КПГПриход=0; 
		КПГРасход=0;
		
		Сообщить(СТР);	
		
		КодТранспорта	= СокрЛП(Книга.Range(НаименованиеЛиста+"A"+НомСтр).Value);
		ВидДеятельности = СокрЛП(Книга.Range(НаименованиеЛиста+"T"+НомСтр).Value);
		ПутевыеЛисты    = СокрЛП(Книга.Range(НаименованиеЛиста+"U"+НомСтр).Value);
		
		Бензин92Дробин	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр).Value)));
		ГазДробин		= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр2).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр2).Value)));
		Бензин76Дробин	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр3).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр3).Value)));
		ДТДробин		= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр4).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"P"+НомСтр4).Value)));
		
		Бензин92Астра	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр).Value)));
		ГазАстра		= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр2).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр2).Value)));
		Бензин76Астра	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр3).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр3).Value)));
		ДТАстра			= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр4).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"Q"+НомСтр4).Value)));

		Бензин92Смарт	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр).Value)));
		Бензин95Смарт	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр1).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр1).Value)));
		ГазСмарт		= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр2).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр2).Value)));
		
		///////////////
		КПГГГТ			= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр3).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"S"+НомСтр3).Value)));
		///////////////
		Бензин76Смарт	= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр4).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр4).Value)));
		ДТСмарт			= ?(ПустаяСтрока(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр5).Value)),0,Число(СокрЛП(Книга.Range(НаименованиеЛиста+"R"+НомСтр5).Value)));



Процедура КнопкаВыполнитьНажатие(Кнопка)
	Сформировать();
КонецПроцедуры

Процедура ПриОткрытии()
	// Вставить содержимое обработчика.
	ЭлементыФормы.ДатаЗагрузки.Значение = Дата("201112311800");
	ЭлементыФормы.ДатаЗагрузки2.Значение = Дата("201112311830");
	ЭлементыФормы.ФайлПереноса.Значение="\\tsclient\C\Переделаный Учёт путевых листов  2011 г\!СВОДНАЯ1.xlsx";
КонецПроцедуры

Процедура ФайлОстатковНачалоВыбора(Элемент, СтандартнаяОбработка)
	ДиалогФыбораФайла	=	Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	
	ДиалогФыбораФайла.Фильтр						        =	"Файл (*.xlsx)|*.xlsx|Все файлы |*.*";
	ДиалогФыбораФайла.Расширение					      	=	"xlsx";
	ДиалогФыбораФайла.Каталог								=   "C:\";
	ДиалогФыбораФайла.Заголовок						     	=	"Выберите файл";
	ДиалогФыбораФайла.ПредварительныйПросмотр				=	Ложь;
	ДиалогФыбораФайла.ИндексФильтра					    	=	0;
	ДиалогФыбораФайла.ПолноеИмяФайла				    	=	Элемент.Значение;
	
	Если ДиалогФыбораФайла.Выбрать() Тогда
		Элемент.Значение = ДиалогФыбораФайла.ПолноеИмяФайла;
	КонецЕсли;
КонецПроцедуры