v7: подскажите как можно ускорить запись в excel

Процедура СохранитьExcel()
Попытка
Excel = СоздатьОбъект("Excel.Application");
Состояние("Создание Excel");
Исключение
КонецПопытки;

Книга = Excel.WorkBooks.Add();
Лист = Книга.WorkSheets(1);
Лист = Книга.Sheets.Add();

//Обработка т.з.
//ТбЗн.
Состояние("Заполение Ексел файла");
ТбЗн.Сортировать("TypeRef,New");
ТбЗн.ВыбратьСтроки();
Пока ТбЗн.ПолучитьСтроку()=1 Цикл
Для п=2 по ТбЗн.КоличествоКолонок() Цикл
лИмяРеквизита ="";
ТбЗн.ПолучитьПараметрыКолонки(п,,,,лИмяРеквизита);
Значение = ТбЗн.получитьЗначение(ТбЗн.НомерСтроки,лИмяРеквизита);
Лист.Cells(1,п-1).Value = лИмяРеквизита;
лШирина = СтрДЛина(Значение);
Если лШирина < 10 Тогда
лШирина = 10;
КонецЕсли;
Лист.Columns(п-1).ColumnWidth = лШирина;
Лист.Cells(ТбЗн.НомерСтроки,п-1).Value =Строка(Значение);
//Спр.УстановитьАтрибут(лИмяРеквизита,Значение);
КонецЦикла;
КонецЦикла;
лПуть = "c:\temp\JDEto1CMod_"+Лев(Прав(ИмяФайла,13),9)+"_"+СтрЗаменить(ТекущаяДата(),":","")+".xls";
Попытка
Книга.SaveAs(лПуть);
Состояние("Запись в файл Ексел");
Сообщить("Файл Сохранен -"+лПуть);
Исключение
КонецПопытки;

Excel.QUIT();
КонецПроцедуры