Не выполняется регл.задание

        Каталог = "\\it-file\--\ФайлыПроверки\";
	КаталогАрхив = "\\it-file\--\ФайлыПроверки\Архив\";
	
	

	Расш = ".xlsx";
	
	//подключаемся к эксел
	
	Excel = Новый COMОбъект("Excel.Application");
	
	НайденныеФайлы = НайтиФайлы(Каталог,"*.xls",);
	ТекДата = Формат((ТекущаяДата() - 60*60*24), "ДФ=dd.MM.yyyy"); //т.к. выгрузка будет производиться ночью, то отнимаю день, т.к. данные вчерашние
	
	Для каждого ТекФайл Из НайденныеФайлы Цикл
	
	
		   Попытка
				//Excel.WorkBooks.Open(Дир + (ИмяФайла+Строка(х)) + Расш);
				Excel.WorkBooks.Open(ТекФайл.ПолноеИмя);
			Исключение
				Продолжить;
			КонецПопытки;
		
				
	Попытка 
		//Открываем необходимый лист
		Excel.Sheets(1).Select();  // лист 1, по умолчанию  
	Исключение
		//Закрываем Excel
		Excel.ActiveWorkbook.Close(); 	
		Excel = 0;
		
		Возврат;
	КонецПопытки;	
	

	//Получим количество строк и колонок.
	//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
	Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
	Если Версия = "8" тогда
		ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
		ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
	Иначе
		ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
		ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;   
	Конецесли;
	
	//вначале циклом я пробегаю по датам и строкам водозабор и сохраняю в тз
	ТЗ = Новый ТаблицаЗначений;
	ТЗ.Колонки.Добавить("Водозабор");
	ТЗ.Колонки.Добавить("ДатаДо");
	Стр = ТЗ.Добавить();
	
	Для НС = 2 по ФайлСтрок Цикл
-------------------------много кода-----------------
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
	 
	 //закрою лист excell
	 		Попытка
				Excel.WorkBooks.Close();
			Исключение
				Продолжить;
			КонецПопытки;

	
	 КопироватьФайл(ТекФайл.ПолноеИмя, КаталогАрхив + ТекФайл.ИмяБезРасширения + "_" + ТекДата + ТекФайл.Расширение);  //перемещение файла в архивную папку
	 
	 //печать отчетов для каждого водозабора
	 Для каждого Строк Из ТЗ Цикл
		 СуточныеПоказания(Строк.Водозабор, Строк.ДатаДо);
     КонецЦикла;
	 
 КонецЦикла;

	 	Excel.Application.Quit();
		Excel = 0;