Не закрывается Excel.Application

	Функция ПолучитьКоннектExcel( пИмяФайла, пВызватьИсключение = Ложь ) Экспорт
	
	лРез = Новый COMОбъект("ADODB.Connection");
    СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " + пИмяФайла + 
		"; Extended Properties = " + """Excel 8.0"+";HDR=NO;IMEX=1"";";
    
    //подключение к источнику данных
    Попытка
        лРез.Open(СтрокаПодключения);
		Возврат лРез;
	Исключение
		Если пВызватьИсключение Тогда         
			лТекстОшибки = ОписаниеОшибки();
			лФайл = Новый Файл( пИмяФайла );
			Если ВРег( лФайл.Расширение )=".XLSX" Тогда 
				лТекстОшибки = лТекстОшибки + Символы.ПС + "Сохраните загружаемый файл в формате MS Excel 97-2003 (*.XLS) и попробуйте выполнить загрузку снова.";
			КонецЕсли;
			ВызватьИсключение( лТекстОшибки );
		Иначе 
			Возврат Неопределено;
		КонецЕсли;
	КонецПопытки;
	
КонецФункции

// функция возвращает список значений листов книги Excel
// на входе передается коннект к файлу (см. ПолучитьКоннектExcel)
Функция ПолучитьСписокЛистов( пКоннект ) Экспорт
	
	лСписок = Новый СписокЗначений;
 	лКаталог = Новый COMОбъект("ADOX.Catalog");                                                
    лКаталог.ActiveConnection = пКоннект;
    
    Для Каждого лЛист ИЗ лКаталог.Tables Цикл
		лСписок.Добавить( лЛист, Лев( лЛист.Name, СтрДлина( лЛист.Name ) - 1 ) );
	КонецЦикла;	
	
	Возврат лСписок;
	
КонецФункции

Функция ПолучитьДанныеЛиста( пКоннект, пЛист ) Экспорт
	
	лКоманда = Новый COMОбъект("ADODB.Command");
	лКоманда.ActiveConnection = пКоннект;

	лКоманда.CommandText = "SEL ECT * FR OM ["+ пЛист.Name + "]";
	лКоманда.CommandType = 1;
	лНаборДанных = Новый COMОбъект("ADODB.RecordSet");				
	лНаборДанных = лКоманда.Execute();
	лНаборДанных.MoveFirst();
	
	Возврат лНаборДанных;
	
КонецФункции

Процедура ПерейтиКСтроке( пНаборДанных, пНомерСтроки ) Экспорт
	
	пНаборДанных.MoveFirst();
	Для лНомерСтр = 1 По пНомерСтроки - 1 Цикл 
		пНаборДанных.MoveNext();	
	КонецЦикла;
	
КонецПроцедуры

Процедура ПерейтиКСледующейСтроке( пНаборДанных ) Экспорт 
	пНаборДанных.MoveNext();	
КонецПроцедуры

Функция ДостигнутКонецНабора( пНаборДанных ) Экспорт
	Возврат пНаборДанных.EOF <> 0;
КонецФункции

// функция возвращает соответствие с данными строки
Функция ПолучитьДанныеСтроки( пНаборДанных ) Экспорт
	
	лРез = Новый Соответствие;
	
	Для Каждого лПоле из пНаборДанных.fields цикл
		лРез.Вставить( лПоле, лПоле.value );
	КонецЦикла;
	
	Возврат лРез;
	
КонецФункции

Функция ПолучитьПоляЛиста( пНаборДанных ) Экспорт 
	
	лРез = Новый Массив;
	Для Каждого лПоле из пНаборДанных.fields цикл
		лРез.Добавить( лПоле );
	КонецЦикла;
	
	Возврат лРез;
	
КонецФункции

Попытка
		Excel = Новый COMОбъект("Excel.Application");
		Excel.WorkBooks.Open(Файл);
		Состояние("Обработка файла Microsoft Excel...");
Исключение
		Сообщить("Ошибка при открытии файла с помощью Exel!Загрузка не будет произведена!");
		Сообщить(ОписаниеОшибки());
		Возврат;
КонецПопытки;
	
....

Excel = Undefined;