Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 04:46

Удаление лишних страниц в эксель, при помощи 1С

Автор Freed96, 25 фев 2022, 09:53

0 Пользователей и 1 гость просматривают эту тему.

Freed96

Добрый день.
Есть файл эксель, в нём несколько страниц, после загрузки данных в тч из определенной страницы, этот же файл эксель, должен закрепится за данным документом, но уже без этого листа, с которого взяли данные.
Так как у клиента нет COM соединений и использовать они их не хотят, загрузку в тч сделал через построитель запроса с выводом в ТЗ.
Вопрос, как без com объекта, удалить из экселя страницу?

Попробовал такой метод, получаю текущий файл, далее копирую от туда области в новый табдок, далее записываю в новый файл, прикрепляю его, но он открывается пустой, там нет моих скопированных страниц.

ИмяВременногоФайла = ПолучитьИмяВременногоФайла(РасширениеФайла); //"xlsx"
ДанныеФайла = ПолучитьИзВременногоХранилища(ВременноеХранилище);
ДанныеФайла.Записать(ИмяВременногоФайла);

ТабличныйДокументЭксельВесь = Новый ТабличныйДокумент;
ТабличныйДокументЭксельВесь.Прочитать(ИмяВременногоФайла, СпособЧтенияЗначенийТабличногоДокумента.Значение);

ТабличныйДокумент_СтраницаСчет = Новый ТабличныйДокумент;


Для Каждого ОбластьТД ИЗ ТабличныйДокументЭксельВесь.Области Цикл

Если ОбластьТД.Имя <> "Лист1" Тогда
ТабличныйДокумент_СтраницаСчет.ВставитьОбласть(ТабличныйДокументЭксельВесь.Область(ОбластьТД.Имя));
КонецЕсли;
КонецЦикла;

ИмяВременногоФайлаНовый = ПолучитьИмяВременногоФайла(РасширениеФайла); //"xlsx"
ТабличныйДокумент_СтраницаСчет.Записать(ИмяВременногоФайлаНовый, РасширениеФайла);


ДвоичДанные = Новый ДвоичныеДанные(ИмяВременногоФайлаНовый);
Адрес = ПоместитьВоВременноеХранилище(ДвоичДанные, Новый УникальныйИдентификатор);

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск