закрытие excel

собственно вопрос: сама книга закрывается но не срабатывает закрытие приложения, в чем может быть проблема?

.......
    ОбъектЭксель = Новый COMОбъект("Excel.Application");
    ОбъектЭксель.Visible = Истина;
    ОбъектЭксель.WindowState = 2;
    ОбъектЭксель.WindowState = 1;
    ОбъектЭксель.DisplayAlerts = 0;
    //ОбъектЭксель.AutomationSecurity = 3;
    ОбъектЭксель.WorkBooks.Open(ПолноеИмяФайла);

    ДобавитьОбработчик ОбъектЭксель.WorkbookBeforeClose, ПередЗакрытиемДокументаExcel;
.......
КонецПроцедуры

Процедура ПередЗакрытиемДокументаExcel(Документ, Отмена)
    ДокументИзменен = Истина;
    Попытка
        Если (НЕ Документ.Saved) ИЛИ (ДокументИзменен) Тогда
            ОбъектЭксель = Документ.Application;

            Документ.Save();

            УдалитьОбработчик ОбъектЭксель.WorkbookBeforeClose, ПередЗакрытиемДокументаExcel;

            ПолноеИмяФайла = Документ.FullName;
            ИмяФайла = Сред(Документ.Name,40);
            id = Прав(Лев(Документ.Name,37),36);

            Документ.Close();


            Запрос = Новый Запрос;
            Запрос.Текст =
                "ВЫБРАТЬ
                |    ХранилищеДополнительнойИнформации.Ссылка,
                |    ХранилищеДополнительнойИнформации.ВерсияДанных,
                |    ХранилищеДополнительнойИнформации.ПометкаУдаления,
                |    ХранилищеДополнительнойИнформации.Предопределенный,
                |    ХранилищеДополнительнойИнформации.Наименование,
                |    ХранилищеДополнительнойИнформации.ВидДанных,
                |    ХранилищеДополнительнойИнформации.ИмяФайла,
                |    ХранилищеДополнительнойИнформации.Объект,
                |    ХранилищеДополнительнойИнформации.Хранилище,
                |    ХранилищеДополнительнойИнформации.ТекстФайла,
                |    ХранилищеДополнительнойИнформации.Представление
                |ИЗ
                |    Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
                |ГДЕ
                |    ХранилищеДополнительнойИнформации.Наименование = &Наименование";

            Запрос.УстановитьПараметр("Наименование", id);
            РезультатЗапроса = Запрос.Выполнить();
            ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

            Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                ТекОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
                ТекОбъект.Хранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ПолноеИмяФайла), Новый СжатиеДанных);
                ТекОбъект.ИмяФайла = ИмяФайла;
                ТекОбъект.Наименование = id;
                ТекОбъект.Записать();
            КонецЦикла;
            ОбъектЭксель.DisplayAlerts = 1;
            ОбъектЭксель.Quit();
        КонецЕсли;
    Исключение
        Сообщить("" + ОписаниеОшибки());
    КонецПопытки;

КонецПроцедуры