Открывая отчет в 1С, мы можем насладиться многими удобствами просмотра, среди которых и фиксирование шапки отчета, которое дает понимание, какие данные мы видим в ячейках. Но как только мы добавляем отчет в рассылку, большинство удобств пропадает. И если отсутствие расшифровки и возможности сразу открыть документ понятно, то пропажа фиксации шапки отчета не выглядит логичным в тех вариантах, где это должно работать. И тут каждый начинает искать решение по форумам и после изобретает свой велосипед. Сегодня рассмотрим два велосипеда, работающих с самыми распространенным форматом Excel.
Вариант первый. Самый распространенный
Вариант требует установленного Excel на компьютере, на котором будет выполняться. Из-за запуска всего приложения Excel работает медленнее и при не корректном кодировании может приводить к невозможности выполнения операций и пожиранию им памяти. Плюс этого варианта в том, что он работает с форматами XLS и XLSX. Кроме того, на сервере требует дополнительной настройки безопасности. Инструкция по настройке.
Функция, реализующая данный алгоритм.
// Добавляет в файл XLSX фиксацию колонок с помощью "Excel.Application"
//
// Параметры:
// ИмяФайла - Строка - Имя обрабатываемого файла
// ФиксацияСверху - Число - Количество зафиксированных строк
// ФиксацияСлева - Число - Количество зафиксированных колонок
//
Процедура ФиксацияШапкиЛистаXlsxExcel(ИмяФайла, Знач ФиксацияСверху, Знач ФиксацияСлева) Экспорт
Попытка
ФиксЭ_Эксель = Новый COMОбъект("Excel.Application");
ФиксЭ_Эксель.MergeInstances = Ложь;
ФиксЭ_Эксель.DisplayAlerts = Ложь;
ФиксЭ_Эксель.DefaultSaveFormat = 50;
ФиксЭ_Книга = ФиксЭ_Эксель.Workbooks.Open(ИмяФайла);
ФиксЭ_Окно = ФиксЭ_Книга.Windows(1);
ФиксЭ_Окно.SplitRow = ФиксацияСверху;
ФиксЭ_Окно.SplitColumn = ФиксацияСлева;
ФиксЭ_Окно.FreezePanes = Истина;
ФиксЭ_Книга.Save();
ФиксЭ_Книга.Close();
ФиксЭ_Окно = Неопределено;
ФиксЭ_Книга = Неопределено;
ФиксЭ_Эксель.Quit();
ФиксЭ_Эксель = Неопределено;
Исключение
ФиксЭ_Окно = Неопределено;
ФиксЭ_Книга = Неопределено;
Если ФиксЭ_Эксель <> Неопределено Тогда
ФиксЭ_Эксель.Quit();
КонецЕсли;
ФиксЭ_Эксель = Неопределено;
ФиксЭ_СтруктураСобытий = Новый Структура("ИмяСобытия, ПредставлениеУровня, Комментарий, ДатаСобытия");
ФиксЭ_СтруктураСобытий.ИмяСобытия = "Не возможно установить фиксацию колонок";
ФиксЭ_СтруктураСобытий.ПредставлениеУровня = "Предупреждение";
ФиксЭ_СтруктураСобытий.Комментарий = "Не возможно установить фиксацию колонок, возможно не установлен Excel на сервере";
ФиксЭ_СтруктураСобытий.ДатаСобытия = ТекущаяДата();
ФиксЭ_СобытияДляЖурналаРегистрации = Новый СписокЗначений();
ФиксЭ_СобытияДляЖурналаРегистрации.Добавить(ФиксЭ_СтруктураСобытий);
ЖурналРегистрации.ЗаписатьСобытияВЖурналРегистрации(ФиксЭ_СобытияДляЖурналаРегистрации);
КонецПопытки;
КонецПроцедуры // ФиксацияШапкиЛистаXlsxExcel()
В параметрах передаются полный путь к сохраненному файлу, и сколько строк/столбцов зафиксировать.
Список констант для свойства "DefaultSaveFormat".
Вариант второй. Редкий, но меткий
Этот вариант работает только с форматом XLSX. Не требует дополнительных настрое и программ. Использует особенность формата XLSX, в том, что он является zip-архивом XML-файлов. Возможность работы с zip-архивами в самой платформе 1C, а для удобства работы с XML-файлами используем компонент системы Msxml2.DOMDocument. Это не потребует запуска тяжелого приложения Excel, и вообще его наличия на компьютере. Исполняется быстрее, и при ошибках влечет меньшие последствия.
Будем напрямую редактировать нужный нам XML-файл, после разархивирования файла XLSX он находится по относительному пути "\xl\worksheets\sheet1.xml". Нас интересует нода "sheetView". В нее нам нужно добавить ноду "pane" с атрибутами для фиксации шапки. Атрибуты "xSplit" и "ySplit" содержат количество фиксируемых колонок и строк. Атрибут "topLeftCell" содержит адрес первой не зафиксированной ячейки, адрес должен быть в формате "А3", "С6", при указании ячейки в формате "RxCx" Excel при открытии файла ругается на ошибки формата.
Вот и сама функция этого алгоритма.
// Добавляет в файл XLSX фиксацию колонок с помощью "Msxml2.DOMDocument"
//
// Параметры:
// ИмяФайла - Строка - Имя обрабатываемого файла
// ФиксацияСверху - Число - Количество зафиксированных строк
// ФиксацияСлева - Число - Количество зафиксированных колонок
//
Процедура ФиксацияШапкиЛистаXlsxXml(ИмяФайла, Знач ФиксацияСверху, Знач ФиксацияСлева) Экспорт
Каталог = ПолучитьИмяВременногоФайла("");
Попытка
// Разархивируем XSLX
ФайлZIP = Новый ЧтениеZipФайла(ИмяФайла);
ФайлZIP.ИзвлечьВсе(Каталог);
// Путь до файла с параметрами фиксации
ПутьФайла = Каталог + "\xl\worksheets\sheet1.xml";
// Читаем XML документ
ХМЛДокумент = Новый COMОбъект("Msxml2.DOMDocument");
ХМЛДокумент.validateOnParse = true;
ХМЛДокумент.load(ПутьФайла);
// Схема по умолчанию
XMLNS = ХМЛДокумент.selectSingleNode("//worksheet").getAttribute("xmlns");
// Получаем родительскую ноду ноду документа для параметров фиксации
ХМЛНоде = ХМЛДокумент.selectSingleNode("//sheetView");
// Создаем ноду с параметрами фиксации
НоваяХМЛНода = ХМЛДокумент.createNode(1, "pane", XMLNS);
// Фиксация по горизонтали
ФиксацияСлева = ?(ФиксацияСлева > 25, 25, ФиксацияСлева);
Если ФиксацияСлева > 0 Тогда
НовыйХМЛАттрибут = ХМЛДокумент.createNode(2, "xSplit", XMLNS);
НовыйХМЛАттрибут.value = Строка(ФиксацияСлева);
НоваяХМЛНода.setAttributeNode(НовыйХМЛАттрибут);
КонецЕсли;
// Фиксация по вертикали
Если ФиксацияСверху > 0 Тогда
НовыйХМЛАттрибут = ХМЛДокумент.createNode(2, "ySplit", XMLNS);
НовыйХМЛАттрибут.value = Строка(ФиксацияСверху);
НоваяХМЛНода.setAttributeNode(НовыйХМЛАттрибут);
КонецЕсли;
// Фиксация ячейка
БуквыДляКонвертации = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
БукваКолонки = Сред(БуквыДляКонвертации, ФиксацияСлева + 1, 1);
АдресЯчейки = Сред(БуквыДляКонвертации, ФиксацияСлева + 1, 1) + Строка(ФиксацияСверху + 1);
НовыйХМЛАттрибут = ХМЛДокумент.createNode(2, "topLeftCell", XMLNS);
НовыйХМЛАттрибут.value = АдресЯчейки;
НоваяХМЛНода.setAttributeNode(НовыйХМЛАттрибут);
// Фиксация направление
НовыйХМЛАттрибут = ХМЛДокумент.createNode(2, "activePane", XMLNS);
НовыйХМЛАттрибут.value = "bottomLeft";
НоваяХМЛНода.setAttributeNode(НовыйХМЛАттрибут);
// Фиксация включена
НовыйХМЛАттрибут = ХМЛДокумент.createNode(2, "state", XMLNS);
НовыйХМЛАттрибут.value = "frozen";
НоваяХМЛНода.setAttributeNode(НовыйХМЛАттрибут);
// Добавляем в родительскую ноду подготовленную ноду с параметрами фиксации
ХМЛНоде.appendChild(НоваяХМЛНода);
ХМЛДокумент.save(ПутьФайла);
// Архивируем XLSX
ФайлZIP = Новый ЗаписьZipФайла(ИмяФайла, , , МетодСжатияZIP.Сжатие);
ФайлZIP.Добавить(Каталог + "\[Content_Types].xml", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ФайлZIP.Добавить(Каталог + "\xl\", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ФайлZIP.Добавить(Каталог + "\_rels\", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
ФайлZIP.Записать();
УдалитьФайлы(Каталог);
Исключение
УдалитьФайлы(Каталог);
КонецПопытки;
КонецПроцедуры // ФиксацияШапкиЛистаXlsxXml()
Параметры такие же, как и в первом варианте.
А что же у нас с рассылкой отчетов
Для того, чтобы это работало при рассылке отчетов, нам нужно добавить код в функцию "ПередСохранениемТабличногоДокументаВФормат" модуля "РассылкаОтчетовПереопределяемый". Или добавить ее в расширение.
&После("ПередСохранениемТабличногоДокументаВФормат")
Процедура ФиксЭ_ПередСохранениемТабличногоДокументаВФормат(СтандартнаяОбработка, ТабличныйДокумент, Формат, ПолноеИмяФайла)
Если ОбщегоНазначения.ЭтоWindowsСервер() И Формат = Перечисления.ФорматыСохраненияОтчетов.XLSX И (ТабличныйДокумент.ФиксацияСверху > 0 Или ТабличныйДокумент.ФиксацияСлева > 0) Тогда
ТабличныйДокумент.Записать(ПолноеИмяФайла, ТипФайлаТабличногоДокумента.XLSX);
ФиксЭ_ОбработкаФайловЭксель.ФиксацияШапкиЛистаXlsxXml(ПолноеИмяФайла, ТабличныйДокумент.ФиксацияСверху, ТабличныйДокумент.ФиксацияСлева);
СтандартнаяОбработка = Ложь;
КонецЕсли;
КонецПроцедуры
Вот теперь стало выглядеть лучше
Расширение
В расширении реализованы оба эти варианта решения в модуле "ФиксЭ_ОбработкаФайловЭксель". И переопределение процедуры сохранения отчета в формате XLSX. Расширение реализовано для 1С:ERP Управление предприятием 2. Проверено на версии 2.5.10.52, 2.5.12.53.
В остальных типовых конфигурациях, содержащих подсистему "Рассылка отчетов", реализуется аналогично.
К сожалению, в стандартной общей форме отчета не реализована возможность переопределения функции сохранения отчета в файл, поэтому тут все еще каждый будет изобретать свой велосипед. Но я надеюсь, что теперь это будет гораздо проще сделать.
