0
Папа Гапа
23.03.20
✎
08:34
|
Есть сервер, на нем прописано сохранение в формат экселя в сетевую папку. Однако самого экселя на сервере нет и не будет.
Проблема: все хорошо, но имя листа создается "TDSheet", а надо "1". Иначе потом другой робот листы читать не будет.
Все отлично работает, но как не имея экселя переименовать лист? Экселя на серваке точно не будет никогда.
Код уже есть, надо только лист переименовать:
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСтрочка = Макет.ПолучитьОбласть("Строчка");
ТабДок.Очистить();
ТабДок.НачатьАвтогруппировкуСтрок();
Выб = РезультатЗапроса.Выбрать();
Пока Выб.Следующий() Цикл
Если ТабДок.Области.Количество() = 0 Тогда
ОбластьШапка.Параметры.Заполнить(Выб);
ТабДок.Вывести(ОбластьШапка);
КонецЕсли;
ОбластьСтрочка.Параметры.Заполнить(Выб);
ТабДок.Вывести(ОбластьСтрочка, Выб.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
Файл = Новый Файл(перем_Локальный_Каталог);
Если не Файл.Существует() Тогда
СоздатьКаталог(перем_Локальный_Каталог);
КонецЕсли;
ТабДок.Записать(перем_Локальный_Каталог + "\" + Формат(ТекущаяДата,"ДФ=dd_MM_yyyy") + "_334246.xls", ТипФайлаТабличногоДокумента.XLS);
|
|