Не сохраняется формируемый отчет в Excel 2013

ExcelObject = Новый ComОбъект("Excel.Application");

    // Выгружается карточка учета сырья
    Попытка

        ExcelObject.Displayalerts = 0;

        // 1 сформировать отчет качественного сырья ------------
        ИмяЛиста1            = "Отчет о движении сырья";
        ИмяВременногоФайла    = КаталогВременныхФайлов() + "Temp1.xls";


        ТабДок = Новый ТабличныйДокумент;
        ПечатьКарточкаУчетаСырья(ПостроительОтчетаКарточкаУчетаСырья, ТабДок, Неопределено, , "ЧГ=");
        КарточкаУчетаСырьяИнициализация(ПостроительОтчетаКарточкаУчетаСырья);


        ТабДок.Записать(ИмяВременногоФайла, ТипФайлаТабличногоДокумента.HTML);

        ExcelObject.Workbooks.Open(ИмяВременногоФайла);
        ExcelObject.ActiveSheet.Name = СформироватьИмяЛистаExcel(ИмяЛиста1);

        // сохранение ------------------------------------------
        Fileformat            = -4143;
        Password            = "";
        WriterPassword        = "";
        ReadonlyRecommended    = 0;
        CreateBackup        = 0;

        ExcelObject.Range(ExcelObject.Cells(4, 2), ExcelObject.Cells(ТабДок.ВысотаТаблицы, 10)).Select();
        ExcelObject.Selection().NumberFormat = "# ##0,00";

        ExcelObject.ActiveWorkbook.SaveAs(ТекущийКаталог + ИмяФайла, Fileformat, Password, WriterPassword, ReadonlyRecommended, CreateBackup);


        // 3 сформировать отчеты сырья по группам --------------
        Расшифровка = Истина;
        ПостроительОтчетаКарточкаУчетаСырья.Выполнить();
        ВыборкаПоГруппам = ПостроительОтчетаКарточкаУчетаСырья.Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Группа");

        Сч = 3;
        Пока ВыборкаПоГруппам.Следующий() Цикл

            ИмяЛистаН = ?(ЗначениеЗаполнено(ВыборкаПоГруппам.Группа) И ЗначениеЗаполнено(ВыборкаПоГруппам.Группа.Наименование), ВыборкаПоГруппам.Группа.Наименование, "Вне группы");

            Если Сч = 3 Тогда ИмяЛиста2 = ИмяЛистаН КонецЕсли;

            ИмяВременногоФайла = КаталогВременныхФайлов() + "Temp" + Сч + ".xls";

            Настройка                    = ПостроительОтчетаКарточкаУчетаСырья.ПолучитьНастройки(Истина, Ложь, Ложь, Ложь, Ложь);
            КарточкаУчетаСырьяИнициализация(ПостроительОтчетаКарточкаУчетаСырья, Истина);
            ПостроительОтчетаКарточкаУчетаСырья.УстановитьНастройки(Настройка, Истина, Ложь, Ложь, Ложь, Ложь);
            ЭлементОтбора                = ПостроительОтчетаКарточкаУчетаСырья.Отбор.Добавить("Группа");
            ЭлементОтбора.Установить(?(ВыборкаПоГруппам.Группа = NULL, Справочники.ГруппыВзаимозаменяемыхОбъектов.ПустаяСсылка(), ВыборкаПоГруппам.Группа));
            ЭлементОтбора.ВидСравнения    = ВидСравнения.Равно;
            ТабДок                        = Новый ТабличныйДокумент;
            ПечатьКарточкаУчетаСырья(ПостроительОтчетаКарточкаУчетаСырья, ТабДок, Истина, Истина, "ЧГ=");
            ПостроительОтчетаКарточкаУчетаСырья.УстановитьНастройки(Настройка, Истина, Ложь, Ложь, Ложь, Ложь);
            ТабДок.Записать(ИмяВременногоФайла, ТипФайлаТабличногоДокумента.HTML);

            ExcelObject.Workbooks.Open(ИмяВременногоФайла);
            ExcelObject.ActiveSheet.Name = СформироватьИмяЛистаExcel(ИмяЛистаН);

            ExcelObject.Range(ExcelObject.Cells(4, 6), ExcelObject.Cells(ТабДок.ВысотаТаблицы, 10)).Select();
            ExcelObject.Selection().NumberFormat = "# ##0,00";

            Before = ExcelObject.Workbooks(ИмяФайла).Sheets(ИмяЛиста1);
            ExcelObject.ActiveSheet.Copy(Before);
            //УдалитьФайлы(ИмяВременногоФайла);
            Состояние(ВыборкаПоГруппам.Группа);

            Сч = Сч + 1;

        КонецЦикла;

        Расшифровка = Неопределено;

        Before = ExcelObject.Workbooks(ИмяФайла).Sheets(ИмяЛиста2);
        ExcelObject.Sheets(ИмяЛиста1).Move(Before);

        ExcelObject.Windows(ИмяФайла).DisplayWorkbookTabs = Истина;
        ExcelObject.Windows(ИмяФайла).TabRatio = 0.6;

        ExcelObject.Workbooks(ИмяФайла).SaveAs(ТекущийКаталог + ИмяФайла);

        Предупреждение("Файл сформирован.");