Жутко зависает выгрузка в эксель

&НаКлиенте
Процедура СохранитьВExcel(Команда)
        ФайлДанных = "\обмен\Номенклатура.xlsx";
        Попытка
            Excel = Новый COMОбъект("Excel.Application");
        Исключение
            Сообщить(ОписаниеОшибки());
            Возврат;
        КонецПопытки;
        Попытка
            Книга                             = Excel.WorkBooks.Add();
            //Зададим первому листу имя
            Лист                             = Книга.WorkSheets(1);
            Лист.Name                       = "Выгрузка данных";
            Excel.ActiveWindow.View         = 2;     // Режим страничного просмотра
            Excel.ActiveWindow.Zoom         = 100;  // Масштаб
            Лист.PageSetup.Orientation         = 2;     // Альбомная ориентация
            СчетчикСтрок = 1; //Заполнение ТЧ начинаем со второй строки
            Для Каждого ТекСтрока Из ТЗ Цикл
                Лист.Cells(СчетчикСтрок, 1).Value             = Строка(ТекСтрока.ВерсияДанных);
                Лист.Cells(СчетчикСтрок, 2).Value             = Строка(ТекСтрока.Родитель);
                Лист.Cells(СчетчикСтрок, 3).Value             = Строка(ТекСтрока.ЭтоГруппа);
                Лист.Cells(СчетчикСтрок, 4).Value             = Строка(ТекСтрока.Код);
                Лист.Cells(СчетчикСтрок, 5).Value             = Строка(ТекСтрока.Наименование);
                Лист.Cells(СчетчикСтрок, 6).Value             = Строка(ТекСтрока.АлкогольнаяПродукция);
                Лист.Cells(СчетчикСтрок, 7).Value             = Строка(ТекСтрока.Артикул);
                Лист.Cells(СчетчикСтрок, 8).Value             = Строка(ТекСтрока.Вес);
                Лист.Cells(СчетчикСтрок, 9).Value             = Строка(ТекСтрока.Весовой);
                Лист.Cells(СчетчикСтрок, 10).Value             = Строка(ТекСтрока.ВидАлкогольнойПродукцииЕГАИС);