Быстрая выгрузка в Excel с оформлением (числа, даты, колонтитулы, гиперссылки) через OpenXML

28.07.22

Интеграция - Загрузка и выгрузка в Excel

–

> > > > > > > > > > > >

У заказчика есть особые требования к оформлению стандартных выгрузок в Excel? Вы не можете использовать COM Объект Excel? Требуется высокая производительность и ваши выгрузки объемны? Или Вам просто интересно узнать немного о хранении данных XLSX изнутри...

Скачать файлы

	Наименование	Файл	Версия	Размер
	Быстрая выгрузка в Excel с оформлением (числа, даты, колонтитулы, гиперссылки) через OpenXML: .epf 12,89Kb 15	.epf		12,89Kb	15	Скачать

Цель

В рамках импортозамещения (не используя COM), сохранить текущую функциональность выгрузок в Excel:

Преобразование чисел и дат к внутреннему формату Excel (фильтры по диапазонам чисел, дат)
Добавление колонтитулов (Распечатано оттуда-то тогда-то)
Преобразование ссылок из обычной строки в Гиперссылку
Сохранение множества листов в одну книгу Excel

НЕМНОГО О РЕАЛИЗАЦИИ

Числа и даты

1. Числа

Исследуем, как сохраняется форматирование числа при использовании метода ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLSX)

Для этого сгенерируем небольшой файл со следующим содержимым:

Код генерации табличного документа с числами разрядностью от 0 до 19

ТабличныйДокумент = Новый ТабличныйДокумент;
Для Разрядность = 0 По 19 Цикл
	
	Область = ТабличныйДокумент.Область(Разрядность+1, 1, Разрядность+1, 1);
	Область.Текст = СтрШаблон("Число разрядность %1", Разрядность);
	
	Область = ТабличныйДокумент.Область(Разрядность+1, 2, Разрядность+1, 2);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(25,Разрядность));
	Область.Значение = Окр(42.01234567890123456789, Разрядность);
	
КонецЦикла;
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLSX);

Распакуем файл XLSX

исследуем содержимое файла \xl\worksheets\sheet1.xml

<worksheet...>
	<sheetData>
		<row r="1" ht="11" customHeight="true">
			<c r="A1" s="1" t="s">
				<v>0</v>
			</c>
			<c r="B1" s="2" t="n">
				<v>42</v>
			</c>
		</row>
		...
		<row r="4" ht="11" customHeight="true">
			<c r="A4" s="1" t="s">
				<v>3</v>
			</c>
			<c r="B4" s="5" t="n">
				<v>42.012</v>
			</c>
		</row>
		...
		<row r="20" ht="11" customHeight="true">
			<c r="A20" s="1" t="s">
				<v>19</v>
			</c>
			<c r="B20" s="21" t="n">
				<v>42.0123456789012</v>
			</c>
		</row>
	</sheetData>
	...
</worksheet>

Разберем вхождение

<c r="B4" s="5" t="n">
	<v>42.012</v>
</c>

Каждая ячейка описывается тэгом "c", и содержит следующие атрибуты (см. стандарт ecma-376):

r (Reference) - содержит ссылку на местоположение ячейки (например: "B4", "A20" и т.п.)

s (Style Index) - содержит индекс стиля данной ячейки, s="5" указывает, что 5-е (отсчитываемое от нуля) вхождение тэга <xf> в <cellXfs> файла "\xl\styles.xml"

t (Cell Data Type) - содержит тип ячейки, в нашем случае "n"

Доступные типы ячеек представлены в таблице ниже:

Значение	Описание
b (Boolean)	Ячейка, содержащая булево
d (Date)	Ячейка, содержащая дату
e (Error)	Ячейка, содержащая число
inlineStr (Inline String)	Ячейка, содержащая строку, используется при сложном форматировании строки. В остальных случаях используются Общие строки
n (Number)	Ячейка, содержащая число
s (Shared String)	Ячейка, содержащая Общую строку (отсчитываемый от нуля индекс вхождения тэга <si> в <sst> в файле \xl\\xl\worksheets\sheet1.xml
str (String)	Ячейка, содержащая формулу

исследуем содержимое файла \xl\styles.xml

<styleSheet ...>
	<numFmts count="19">
		<numFmt numFmtId="50" formatCode=""/>
		<numFmt numFmtId="51" formatCode="0.0"/>
		<numFmt numFmtId="52" formatCode="0.000"/>
		<numFmt numFmtId="53" formatCode="0.0000"/>
		<numFmt numFmtId="54" formatCode="0.00000"/>
		<numFmt numFmtId="55" formatCode="0.000000"/>
		<numFmt numFmtId="56" formatCode="0.0000000"/>
		<numFmt numFmtId="57" formatCode="0.00000000"/>
		<numFmt numFmtId="58" formatCode="0.000000000"/>
		<numFmt numFmtId="59" formatCode="0.0000000000"/>
		<numFmt numFmtId="60" formatCode="0.00000000000"/>
		<numFmt numFmtId="61" formatCode="0.000000000000"/>
		<numFmt numFmtId="62" formatCode="0.0000000000000"/>
		<numFmt numFmtId="63" formatCode="[=42.01234567890123]&quot;42,01234567890123&quot;"/>
		<numFmt numFmtId="64" formatCode="[=42.012345678901235]&quot;42,012345678901235&quot;"/>
		<numFmt numFmtId="65" formatCode="[=42.0123456789012346]&quot;42,0123456789012346&quot;"/>
		<numFmt numFmtId="66" formatCode="[=42.01234567890123457]&quot;42,01234567890123457&quot;"/>
		<numFmt numFmtId="67" formatCode="[=42.012345678901234568]&quot;42,012345678901234568&quot;"/>
		<numFmt numFmtId="68" formatCode="[=42.0123456789012345679]&quot;42,0123456789012345679&quot;"/>
	</numFmts>
	...
	<cellXfs count="22">
		<xf/>
		<xf applyAlignment="true">
			<alignment horizontal="left"/>
		</xf>
		<xf numFmtId="1" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="51" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="2" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="52" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="53" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="54" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="55" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="56" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="57" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="58" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="59" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="60" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="61" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="62" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="63" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="64" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="65" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="66" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="67" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
		<xf numFmtId="68" applyNumberFormat="true" applyAlignment="true">
			<alignment horizontal="right"/>
		</xf>
	</cellXfs>
	...
</styleSheet>

Разберем 5-е (отсчитываемое от нуля) вхождение тэга <xf> в <cellXfs>

<xf numFmtId="52" applyNumberFormat="true" applyAlignment="true">
	<alignment horizontal="right"/>
</xf>

Нас интересует numFmtId, который указывает на числовой формат ячейки, описываемый в тэге <numFmts> файла "\xl\styles.xml"

<numFmt numFmtId="52" formatCode="0.000"/>

Таким образом, чтобы получить форматную строку ячейки, нужно:

1. Получить атрибут s ячейки <c> в файле листа (например, \xl\worksheets\sheet1.xml)

2. Получить соответствующее атрибуту s (отсчитываемое от нуля) вхождение тэга <xf> в <cellXfs> в файле "\xl\styles.xml" и получить атрибут numFmtId

3. Найти тэг <numFmt> в <numFmts> в том же файле "\xl\styles.xml" и получить атрибут formatCode

Выводы по числам и выявленные особенности:

1. При выгрузке табличного документа в Excel 1С сохраняет числа как числа, если в ячейке было установлен соответствующий ТипЗначения и Значение (см. "код генерации табличного документа с числами разрядностью от 0 до 19"). При выгрузке отчетов из СКД ТипЗначения и Значение для чисел устанавливаются автоматически.

2. Номера числовых форматов в тэге <numFmts> файла "\xl\styles.xml" начинаются с 50

3. Для чисел с разрядностью 0 используется numFmtId="1", для чисел с разрядностью 2 используется numFmtId="2", описание встроенных форматов не нашел, но номера сходятся с номером (отсчитываемым от нуля) перечисления в разделе "(все форматы)"

Картинка

4. Для чисел, с разрядностью больше 13, при выгрузке создается "свой" формат для каждого числа, например, <numFmt numFmtId="63" formatCode="[=42.01234567890123]"42,01234567890123""/>

5. Формат чисел (formatCode) с заданной разрядностью равен "0."+ "0", повторенный [Разрядность] раз

2. Даты

сгенерируем небольшой файл, содержащий:

в колонке 1 - текстовое представление даты

в колонке 2 - значение "Дата" (Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.Дата)))

в колонке 3 - значение "ДатаВремя" (Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя)))

Код генерации табличного документа с датами

ТабличныйДокумент = Новый ТабличныйДокумент;
Для Индекс = 0 По 19 Цикл
	
	Если Индекс = 0 Тогда
		Дата = '00010101';
	ИначеЕсли Индекс = 1 Тогда
		Дата = '19000101';
	Иначе
		Дата = '20220101' + Индекс *15 * 86400 - Индекс * 60 - 30
	КонецЕсли;
	Область = ТабличныйДокумент.Область(Индекс+1, 1, Индекс+1, 1);
	Область.Текст = Дата;
	
	Область = ТабличныйДокумент.Область(Индекс+1, 2, Индекс+1, 2);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.Дата));
	Область.Значение = НачалоДня(Дата);
	
	Область = ТабличныйДокумент.Область(Индекс+1, 3, Индекс+1, 3);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя));
	Область.Значение = Дата;
	
КонецЦикла;
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLSX);

Распакуем файл XLSX

И убедимся, что все ячейки в файле "\xl\worksheets\sheet1.xml" имеют одинаковый формат в атрибуте s

<c r="A2" s="1" t="s">
<c r="B2" s="1" t="s">
<c r="C2" s="1" t="s">

А так же в файле "\xl\styles.xml" присутствует только один стиль для ячеек

<xf applyAlignment="true">
	<alignment horizontal="left"/>
</xf>

Сделаем вывод, что 1С не поддерживает сохранение дат во внутренний формат Excel.

Excel имеет собственный формат даты, дата представляется в виде числа, которое содержит количество суток, прошедших с 01 января 1900 года, увеличенных на единицу.

При этом Excel считает 1900 год високосным, т.е. в Excel существует дата 29 февраля 1900 года.

Вероятно, 1С не стало реализовывать преобразование даты во внутренний формат Excel из-за невозможности преобразования дат меньших, чем 01 января 1900 года. Хотя, будем надеяться, что в ближайших версиях платформы данная возможность появится, а даты ранее 01 января 1900 года будут выгружаться как строки.

С учетом вышеизложенного, можно реализовать функцию преобразования дат следующим образом:

Функция ДатаВФорматеЭксель(Дата)
	
	Если Дата = '00010101' Тогда
		Возврат 0;
	КонецЕсли;
	
	//Excel считает 1900 год високосным
	Если Дата < '19000301' Тогда
		Значение = 1;
	Иначе
		Значение = 2;
	КонецЕсли;
	
	Возврат Значение + (Дата - '19000101') / 86400
	
КонецФункции

Дополним Код генерации табличного документа с датами 2мя колонками (с "Дата" и "ДатаВремя" во внутреннем формате Excel).

Дополненный код генерации табличного документа с датами

ТабличныйДокумент = Новый ТабличныйДокумент;
Для Индекс = 0 По 19 Цикл
	
	Если Индекс = 0 Тогда
		Дата = '00010101';
	ИначеЕсли Индекс = 1 Тогда
		Дата = '19000101';
	Иначе
		Дата = '20220101' + Индекс *15 * 86400 - Индекс * 60 - 30
	КонецЕсли;
	Область = ТабличныйДокумент.Область(Индекс+1, 1, Индекс+1, 1);
	Область.Текст = Дата;
	
	Область = ТабличныйДокумент.Область(Индекс+1, 2, Индекс+1, 2);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.Дата));
	Область.Значение = НачалоДня(Дата);
	
	Область = ТабличныйДокумент.Область(Индекс+1, 3, Индекс+1, 3);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Дата",,, Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя));
	Область.Значение = Дата;
	
	ДатаВФорматеЭксель = ДатаВФорматеЭксель(Дата);
	Область = ТабличныйДокумент.Область(Индекс+1, 4, Индекс+1, 4);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,8));
	Область.Значение = Цел(ДатаВФорматеЭксель);
	
	Область = ТабличныйДокумент.Область(Индекс+1, 5, Индекс+1, 5);
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,9));
	Область.Значение = ДатаВФорматеЭксель;
	
КонецЦикла;
ТабличныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLSX);

И убедимся, что после установки формата, колонки 1 (дата текстом) и 5 (дата в формате dd.mm.yyyy hh:mm:ss) равны.

После преобразования дат достаточно поменять стили в файле "\xl\styles.xml"

Предлагается следующий подход:

1. Для ячеек содержащих дату и время устанавливать разрядность 9, для даты - 8.

2. После сохранения XLSX, распаковывать архив, заменять

"#,##0.000000000" на "dd.mm.yyyy hh:mm:ss", а

"#,##0.00000000" на "dd.mm.yyyy"

Для выгрузки дат из СКД предлагается вместо использования функции ДатаВФорматеЭксель создавать следующее выражение:

ВЫБОР
    КОГДА Дата = ДАТАВРЕМЯ(1, 1, 1)
        ТОГДА 1
    КОГДА Дата < ДАТАВРЕМЯ(1900, 3, 1)
        ТОГДА 1 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1900, 1, 1), Дата, "ДЕНЬ")
    ИНАЧЕ 2 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1900, 1, 1), Дата, "ДЕНЬ")
КОНЕЦ + (ЧАС(Дата) * 60 * 60 + МИНУТА(Дата) * 60 + СЕКУНДА(Дата)) / 86400

Функция УстановитьСтилиДатXLSXВПапкеOpenXML

Функция УстановитьСтилиДатXLSXВПапкеOpenXML(ПапкаOpenXML)
	
	ФорматДатаВремя = НСтр("ru = 'dd\.mm\.yyyy\ hh:mm:ss'; en = 'yyyy-mm-dd h:mm:ss AM/PM'");
	ПсевдоФорматДатаВремя	= "#,##0.000000000";
	
	ФорматДата = НСтр("ru = 'dd\.mm\.yyyy'; en = 'yyyy-mm-dd'");
	ПсевдоФорматДата		= "#,##0.00000000";
	
	ИмяФайлаСтилей = ПапкаOpenXML + "\xl\styles.xml";
	
	ТекстовыйДокумент = Новый ТекстовыйДокумент;
	
	ТекстовыйДокумент.Прочитать(ИмяФайлаСтилей);
	
	Текст = ТекстовыйДокумент.ПолучитьТекст();
	Текст = СтрЗаменить(Текст, ПсевдоФорматДатаВремя, ФорматДатаВремя);
	Текст = СтрЗаменить(Текст, ПсевдоФорматДата, ФорматДата);
	
	ТекстовыйДокумент.УстановитьТекст(Текст);
	
	ТекстовыйДокумент.Записать(ИмяФайлаСтилей);
	
	Возврат ПапкаOpenXML;

КонецФункции

Достоинства метода - высокая скорость:

1. Не используется ЧтениеXML, ЗаписьXML, ПостроительDOM

2. Вне зависимости от количества листов в книге, замена происходит только в одном месте (файл "\xl\styles.xml")

Недостатки:

1. Нет гарантии, что в следующих версиях платформы не изменится формат выгрузки в XLSX

2. Числа с разрядностью 8 и 9 нельзя использовать в выгрузках (во избежание пересечения с датами)

Гиперссылки

Для добавления ссылки, например, на сайт "ya.ru", в ячейке "A1" необходимо:

1. в разметку в файле Листа "\xl\worksheets\sheet1.xml" добавить разметку следующего содержания:

<hyperlinks>
    <hyperlink ref="A1" r:id="rId4"/>
</hyperlinks>

Где

ref - содержит ссылку на местоположение ячейки (например: "B4", "A20" и т.п.)

r:id - содержит идентификатор связи в соответствующем файле связей "\xl\worksheets\_rels\sheet1.xml.rels"

2. В разметку в файле связей "\xl\worksheets\_rels\sheet1.xml.rels" добавить разметку следующего содержания:

<Relationships ...>
	...
	<Relationship Id="rId4" Target="http://ya.ru" TargetMode="External" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/hyperlink"/>
</Relationships>

Где

Id - содержит идентификатор связи

Target - href ссылки, например "http://ya.ru"

TargetMode и Type - для гиперссылок имеют значения "External" и "http://schemas.openxmlformats.org/officeDocument/2006/relationships/hyperlink" соответственно

Общий алгоритм работы:

1. Устанавливаем у ячеек в табличном документе стиль гиперссылки (синий шрифт и подчеркивание)

2. Устанавливаем в шапке (в обработке анализируется первая строка) табличного документа синий шрифт

3. Для всех колонок, у которых в шапке установлен синий шрифт, обходятся ячейки и генерируется текст для тэгов <hyperlinks> и <Relationships>. Если в ячейке задана расшифровка, то "href ссылки" получается из поля "Расшифровка", в противном случае, "href ссылки" и представление ссылки получаются из текста ячейки

4. Быстрая вставка сгенерированного текста тэгов <Relationships> в файлы связей \xl\worksheets\_rels\sheetN.xml.rels осуществляется в конец файлового потока, предварительно отступив закрывающий тэг </Relationships>

5. Остается проблема быстрой вставки сгенерированного текста тэгов <hyperlinks> в файл Листа "\xl\worksheets\sheetN.xml", он должен быть вставлен между тэгами <sheetData> и <pageMargins>, в противном случае книга не открывается

При выгрузке 100 000 строк в Excel и открытии файла через ПостроительDOM, сервер 1С съедает несколько ГБ оперативной памяти.

В обработке реализовано решение, основанное на фиксации содержимого файла, начиная с pageMargins. Перед сохранением табличного документа всем полям (сверху, снизу, слева, справа) устанавливается значение 0. Ожидается что в табличном документе не изменены масштаб и ориентация страниц, т.е. при выгрузке рассчитываем, что окончание XML каждого листа - константа. Запись осуществляется в конец файлового потока, предварительно отступив "окончание XML листа".

	<pageMargins left="0" top="0" right="0" bottom="0" header="0" footer="0"/>
	<pageSetup blackAndWhite="false" scale="100" pageOrder="overThenDown" orientation="portrait"/>
	<headerFooter alignWithMargins="true" scaleWithDoc="true"/>
	<drawing r:id="rId1"/>
	<legacyDrawing r:id="rId2"/>
</worksheet>

При записи поля устанавливаются жестко (по 10 мм с каждого края).

Достоинства метода - высокая скорость:

1. Не используется ЧтениеXML, ЗаписьXML, ПостроительDOM

Недостатки:

1. Нет гарантии, что в следующих версиях платформы не изменится формат выгрузки в XLSX

2. Решение не подходит, если необходимо выгружать картинки (тэг drawing).

Функция ДобавитьГиперссылкиXLSXВПапкеOpenXML

Функция ДобавитьГиперссылкиXLSXВПапкеOpenXML(ПапкаOpenXML, СписокЛистов)
	
	ЦветГиперссылки = Новый Цвет(51, 102, 255);
	ФайлыЛистов = НайтиФайлы(ПапкаOpenXML + "\xl\worksheets", "*.xml");
	
	Для Каждого ФайлЛиста Из ФайлыЛистов Цикл
		
		СвязиГиперссылок = Новый Массив;
		Гиперссылки = Новый Массив;
		Гиперссылки.Добавить("<hyperlinks>");
		
		НомерСвязи = 4;
		
		НомерЛиста = НомерЛистаOpenXML(ФайлЛиста.ИмяБезРасширения);
		ИмяФайлаСвязей = ИмяФайлаСвязейOpenXML(ФайлЛиста.ПолноеИмя);
		
		ТабличныйДокумент = СписокЛистов.Получить(НомерЛиста-1).Значение;
		
		Для НомерКолонки = 1 По ТабличныйДокумент.ШиринаТаблицы Цикл
			Если Не ТабличныйДокумент.Область(1, НомерКолонки, 1, НомерКолонки).ЦветТекста = ЦветГиперссылки Тогда
				Продолжить;
			КонецЕсли;
			СимвольныйНомерКолонки = СимвольныйНомерКолонкиExcel(НомерКолонки);
			Для НомерСтроки = 2 По ТабличныйДокумент.ВысотаТаблицы Цикл
				Область = ТабличныйДокумент.Область(НомерСтроки, НомерКолонки, НомерСтроки, НомерКолонки);
				Если ЗначениеЗаполнено(Область.Расшифровка) Тогда
					Гиперссылка = Область.Расшифровка;
				Иначе
					Гиперссылка = Область.Текст;
				КонецЕсли;
				Гиперссылка = СтрЗаменить(Гиперссылка, "&", "&amp;");
				
				Гиперссылки.Добавить(ГиперссылкаOpenXML(СимвольныйНомерКолонки, НомерСтроки, НомерСвязи));
				СвязиГиперссылок.Добавить(СвязьГиперссылкиOpenXML(НомерСвязи, Гиперссылка));
				НомерСвязи = НомерСвязи + 1;
			КонецЦикла;
		КонецЦикла;
		
		Гиперссылки.Добавить("</hyperlinks>");
		
		Если СвязиГиперссылок.Количество() = 0 Тогда
			Продолжить;
		КонецЕсли;
		
		//ПотокФайлаЛиста
		ПотокФайлаЛиста = Новый ФайловыйПоток(ФайлЛиста.ПолноеИмя, РежимОткрытияФайла.Дописать);
		
		ЗакрывающийТэг = ЗакрывающийТэгЛистаOpenXML();
		РазмерЗакрывающегоТэга = СтрДлина(ЗакрывающийТэг);
		
		ПотокФайлаЛиста.Перейти(-РазмерЗакрывающегоТэга, ПозицияВПотоке.Конец);
		ДобавляемыйXML = СтрСоединить(Гиперссылки, Символы.ВК +Символы.ПС) + ЗакрывающийТэг;
		ЗаписатьСтрокуВПоток(ПотокФайлаЛиста, ДобавляемыйXML);
		
		ПотокФайлаЛиста.Закрыть();
		
		//ПотокФайлаСвязей
		ПотокФайлаСвязей = Новый ФайловыйПоток(ИмяФайлаСвязей, РежимОткрытияФайла.Дописать);
		
		ЗакрывающийТэг = ЗакрывающийТэгСвязейOpenXML();
		РазмерЗакрывающегоТэга = СтрДлина(ЗакрывающийТэг);
		
		ПотокФайлаСвязей.Перейти(-РазмерЗакрывающегоТэга, ПозицияВПотоке.Конец);
		ДобавляемыйXML = СтрСоединить(СвязиГиперссылок, Символы.ВК +Символы.ПС) + ЗакрывающийТэг;
		ЗаписатьСтрокуВПоток(ПотокФайлаСвязей, ДобавляемыйXML);
		
		ПотокФайлаСвязей.Закрыть();
	КонецЦикла;
	
	Возврат ПапкаOpenXML;

КонецФункции

Колонтитулы

1С не сохраняет колонтитулы в Excel, несмотря на наличие соответствующих реквизитов у табличного документа.

Суть метода сводится к замене сгенерированного 1С тэга <headerFooter> в файле Листа "\xl\worksheets\sheetN.xml"

<headerFooter alignWithMargins="true" scaleWithDoc="true"/>

на

    <headerFooter alignWithMargins="true" scaleWithDoc="true">
        <oddHeader>&amp;L[Верхний колонтитул]</oddHeader>
        <oddFooter>&amp;L[Нижний колонтитул]</oddFooter>
    </headerFooter>

Функции КолонтитулыOpenXML и ДобавитьКолонтитулыXLSXВПапкеOpenXML


Функция КолонтитулыOpenXML(ВерхнийКолонтитул, НижнийКолонтитул)
	
	Если Не ЗначениеЗаполнено(ВерхнийКолонтитул) И
		Не ЗначениеЗаполнено(НижнийКолонтитул) Тогда	
		Возврат "	<headerFooter alignWithMargins=""true"" scaleWithDoc=""true""/>";
	КонецЕсли;
	
	ВерхнийКолонтитулOpenXML = ?(Не ЗначениеЗаполнено(ВерхнийКолонтитул), "",
		СтрШаблон("		<oddHeader>&amp;L%1</oddHeader>", ВерхнийКолонтитул));
		
	НижнийКолонтитулOpenXML = ?(Не ЗначениеЗаполнено(НижнийКолонтитул), "",
		СтрШаблон("		<oddFooter>&amp;L%1</oddFooter>", НижнийКолонтитул));
	
	Возврат СтрШаблон("	<headerFooter alignWithMargins=""true"" scaleWithDoc=""true"">%1%2</headerFooter>",
		ВерхнийКолонтитулOpenXML,
		НижнийКолонтитулOpenXML);
	
КонецФункции

Функция ДобавитьКолонтитулыXLSXВПапкеOpenXML(ПапкаOpenXML, ВерхнийКолонтитул, НижнийКолонтитул)
	
	Если Не ЗначениеЗаполнено(ВерхнийКолонтитул) И
		Не ЗначениеЗаполнено(НижнийКолонтитул) Тогда
		Возврат ПапкаOpenXML;
	КонецЕсли;
	
	ФайлыЛистов = НайтиФайлы(ПапкаOpenXML + "\xl\worksheets", "*.xml");
	Для Каждого ФайлЛиста Из ФайлыЛистов Цикл
		
		Поток = Новый ФайловыйПоток(ФайлЛиста.ПолноеИмя, РежимОткрытияФайла.Дописать);
		
		ЗакрывающийТэг = ЗакрывающийТэгЛистаOpenXML();
		РазмерЗакрывающегоТэга = СтрДлина(ЗакрывающийТэг);
		
		Поток.Перейти(-РазмерЗакрывающегоТэга, ПозицияВПотоке.Конец);
		ПолученнаяСтрока = ПрочитатьСтрокуИзПотока(Поток, РазмерЗакрывающегоТэга);
		Если ПолученнаяСтрока = ЗакрывающийТэг Тогда
			Поток.Перейти(-РазмерЗакрывающегоТэга, ПозицияВПотоке.Конец);
			ДобавляемыйXML = ИзмененныйЗакрывающийТэгЛистаOpenXML(КолонтитулыOpenXML(ВерхнийКолонтитул, НижнийКолонтитул));
			ЗаписатьСтрокуВПоток(Поток, ДобавляемыйXML);
		КонецЕсли;
		
		Поток.Закрыть();
		
	КонецЦикла;
	
	Возврат ПапкаOpenXML;

КонецФункции

Сохранение множества листов

Данный функционал реализован в 1С через ПакетОтображаемыхДокументов.

Также функционал полезно использовать при необходимости отображения наименования листа в нижнем левом углу книги Excel (сохранение одного листа через ПакетОтображаемыхДокументов см. СохранитьТабличныйДокументВXLSXOpenXML в приведенных функциях ниже).

Функция СохранитьСписокТабличныхДокументовВXLSX(СписокЛистов)
	
	Книга = Новый ПакетОтображаемыхДокументов;
	Для Каждого Лист Из СписокЛистов Цикл
		ТабличныйДокумент = Лист.Значение;
		ЛистExcel = Книга.Состав.Добавить();
		ЛистExcel.Данные = ПоместитьВоВременноеХранилище(ТабличныйДокумент);
		ЛистExcel.Наименование = Лист.Представление;
	КонецЦикла;
	
	ПутьКФайлу = ПолучитьИмяВременногоФайла("XLSX");
	Книга.Записать(ПутьКФайлу, ТипФайлаПакетаОтображаемыхДокументов.XLSX);
	
	Возврат ПутьКФайлу;
	
КонецФункции

Функция СохранитьСписокТабличныхДокументовВXLSXOpenXML(ИмяФайла, СписокЛистов,
	ВерхнийКолонтитул = Неопределено,
	НижнийКолонтитул = Неопределено) Экспорт
	
	НастроитьОформлениеСпискаДокументовДляВыгрузкиOpenXML(СписокЛистов);
	ПутьКФайлу = СохранитьСписокТабличныхДокументовВXLSX(СписокЛистов);
	
	Если ВерхнийКолонтитул = Неопределено Тогда
		ВерхнийКолонтитул = "";
	КонецЕсли;
	
	Если НижнийКолонтитул = Неопределено Тогда
		НижнийКолонтитул = НижнийКолонтитулПоУмолчанию(ИмяФайла);
	КонецЕсли;
	
	ПрименитьСтилиXLSXВФайлеOpenXML(ПутьКФайлу, СписокЛистов, ВерхнийКолонтитул, НижнийКолонтитул);
	
	ДвоичныеДанные = Новый ДвоичныеДанные(ПутьКФайлу);
	УдалитьФайлы(ПутьКФайлу);

	Возврат ДвоичныеДанные;
	
КонецФункции

Функция СохранитьТабличныйДокументВXLSXOpenXML(ИмяФайла, ТабличныйДокумент, НаименованиеЛиста = "", ВерхнийКолонтитул = Неопределено, НижнийКолонтитул = Неопределено) Экспорт
	
	СписокЛистов = Новый СписокЗначений;
	СписокЛистов.Добавить(ТабличныйДокумент, ?(ЗначениеЗаполнено(НаименованиеЛиста),
		НаименованиеЛиста,
		НСтр("ru = 'Лист1'; en = 'Sheet1'")));
	
	Возврат СохранитьСписокТабличныхДокументовВXLSXOpenXML(ИмяФайла, СписокЛистов, ВерхнийКолонтитул, НижнийКолонтитул);
	
КонецФункции

Реализация тестировалась на платформе 8.3.14.2032 (z), win64

Кому подойдет данная реализация

1. У вашего заказчика есть одно из вышеперечисленных требований (см. Цели)
2. Вы не можете использовать COM Объект Excel
3. Требуется высокая производительность и ваши выгрузки объемны (или использование ПостроительDOM вызывает проблемы)
4. Вы готовы к тому, что при обновлении платформы, функционал может перестанет работать, т.к. может измениться формат и последовательность тэгов XML, формируемых при выгрузке в Excel платформой 1С, и готовы инвестировать время в расследование причин
5. Вы не используете при выгрузке картинки, либо готовы самостоятельно реализовать альтернативный механизм вставки тэгов <hyperlinks> в файлы листов "\xl\worksheets\sheetN.xml"

Производительность в разрезе используемых функций в зависимости от количества строк, мс

Функция / Количество строк в таблице	1000 строк	10000 строк	20000 строк	50000 строк
РаспаковатьXLSX	250	531	1015	1766
ДобавитьГиперссылкиXLSXВПапкеOpenXML	328	2938	6250	14813
ДобавитьКолонтитулыXLSXВПапкеOpenXML	16	16	16	16
УстановитьСтилиДатXLSXВПапкеOpenXML	16	16	31	16
ЗапаковатьXLSX	234	484	1000	1344

Использование в СКД

1. Для полей ДатаИВремя создаем вычисляемые поля с типом Число(15,9) со следующем выражением:

ВЫБОР
    КОГДА Дата = ДАТАВРЕМЯ(1, 1, 1)
        ТОГДА 1
    КОГДА Дата < ДАТАВРЕМЯ(1900, 3, 1)
        ТОГДА 1 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1900, 1, 1), Дата, "ДЕНЬ")
    ИНАЧЕ 2 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1900, 1, 1), Дата, "ДЕНЬ")
КОНЕЦ + (ЧАС(Дата) * 60 * 60 + МИНУТА(Дата) * 60 + СЕКУНДА(Дата)) / 86400

для полей Дата устанавливаем тип - Число(15,8) и не добавляем дробную часть ((ЧАС(Дата) * 60 * 60 + МИНУТА(Дата) * 60 + СЕКУНДА(Дата)) / 86400)

2. Для ссылок - делаем макет поля (Параметр - текст ссылки, например "Товар 1", Параметр расшифровки - href ссылки, например, "http://myshop.ru/?id=1"), оформление - произвольное (например ЦветТекста = Новый Цвет(51, 102, 255), Шрифт - подчеркнутый). В условном оформлении поля со ссылкой добавляем ЦветТекста = Новый Цвет(51, 102, 255), Область применения = "В заголовке полей" (обязательно, т.к. по этому признаку определяется будет ли колонка отформатирована как гиперссылка)

Использование при формировании табличного документа "вручную" (например, при использовании макета)

1. Ячейки с датами обрабатываем следующим образом (текст функции ДатаВФорматеЭксель см. ниже)

	//Для Дата
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,8));
	Область.Значение = Цел(ДатаВФорматеЭксель(Дата));
	
	//Для ДатаИВремя
	Область.СодержитЗначение = Истина;
	Область.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,9));
	Область.Значение = ДатаВФорматеЭксель(Дата);

2. Ссылки оформляем аналогично СКД (заголовок колонки: обязательно ЦветТекста = Новый Цвет(51, 102, 255), в ячейках Параметр - текст ссылки, например, "Товар 1", Параметр расшифровки - href ссылки, например, "http://myshop.ru/?id=1")

Сохранение табличного документа в Excel


	//Один лист
	ДвоичныеДанные = СохранитьТабличныйДокументВXLSXOpenXML(
		"Имя файла в нижний колонтитул",
		ТабличныйДокумент,
		"ПервыйЛист", //Необязательный параметр
		"Верхний колонтитул", //Необязательный параметр
		//Необязательный параметр НижнийКолонтитул, если Неопределено используется НижнийКолонтитулПоУмолчанию()
	);
	ДвоичныеДанные.Записать(ИмяФайлаXLSX); //При необходимости
	
	//Несколько листов
	СписокЛистов = Новый СписокЗначений;
	СписокЛистов.Добавить(ТабличныйДокумент1, "ПервыйЛист");
	СписокЛистов.Добавить(ТабличныйДокумент2, "ВторойЛист");
	
	ДвоичныеДанные = СохранитьСписокТабличныхДокументовВXLSXOpenXML(
		"Имя файла в нижний колонтитул",
		СписокЛистов,
		"Верхний колонтитул", //Необязательный параметр
		//Необязательный параметр НижнийКолонтитул, если Неопределено используется НижнийКолонтитулПоУмолчанию()
	);
	ДвоичныеДанные.Записать(ИмяФайлаXLSX); //При необходимости

Функция НижнийКолонтитулПоУмолчанию(ИмяФайла)
	
	Возврат СтрШаблон(НСтр(
		"ru = '%1 дата выгрузки %2
		|Распечатано из такой-то системы';
		|en = '%1 created on %2
		|Printed from such-and-such system)'"),
		ИмяФайла,
		Формат(ТекущаяДата(), НСтр("ru = 'ДФ=''dd.MM.yyyy hh:mm:ss'''; en = 'ДФ=''yyyy-dd-MM h:mm:ss tt'''")));
	
КонецФункции

Внедрение

1. Вынести область OpenXML в любой серверный общий модуль

2. Найти по тексту конфигурации вхождения ТипФайлаТабличногоДокумента.XLSX и, если производится сохранение табличного документа, реализовать вызов функции СохранитьТабличныйДокументВXLSXOpenXML

Обработка Excel OpenXML hyperlink гиперссылки колонтитулы формат даты

–

См. также

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 14.05.2023, версия 9.4 - 9.8)

5988 руб.

20.11.2015 144655 337 366

473

SALE! 35%

Распознавание и загрузка сканов в 1С "одним нажатием": УПД, ТОРГ-12, накладные, счета, номенклатура, заказы и т.д.

Загрузка и выгрузка в Excel Документооборот и делопроизводство (СЭД) Учет документов Распознавание документов и образов Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания ЛЮБЫХ СКАНОВ ИЛИ ФОТО ТОВАРНЫХ ДОКУМЕНТОВ в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML и т.д.) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить". Программа сама находит таблицу в файле, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает товарные документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, накладную, заказ клиента и т.д.). Содержит модуль работы с электронной почтой. Для поиска таблиц используются новейшие методы OCR-нейросети. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д.

~~5400~~ 4968 руб.

04.06.2019 95933 276 169

287

Загрузка данных о продажах WildBerries из API Статистики и Отчетов в формате *.xlsx в документ "Отчет комиссионера"

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 Бухгалтерский учет Оперативный учет 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Платные (руб)

Обработки предназначены для следующих конфигураций: Бухгалтерия предприятия, редакция 3.0; Управление нашей фирмой, редакция 1.6 - 3.0; Управление торговлей, редакция 10.3; Управление торговлей, редакция 11; Комплексная автоматизация 2; ERP Управление предприятием 2

3600 руб.

11.12.2019 50471 857 3

162

SALE! 20%

Загрузка документов и номенклатуры из Excel в 1С "одним нажатием": УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы

Загрузка и выгрузка в Excel Оптовая торговля Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, заказ, отчет комиссионера и т.д.). Не требует MS Office. Для поиска таблиц используются методы эвристического поиска. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д. Содержит модуль работы с электронной почтой и api-загрузчик отчетов о продажах маркетплейсов.

~~5000~~ 4000 руб.

09.11.2016 208453 763 882

919

Загрузка номенклатуры из Excel в УТ11, КА 2, ERP 2, Розница 2. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

Загрузка и выгрузка в Excel Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Прайсы Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Загрузка из файлов xls, xlsx, ods, csv, mxl в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

9460 руб.

29.10.2014 204067 570 521

405

Загрузка данных о продажах ОЗОН из API Ozon и Отчетов в формате *.xlsx в документ "Отчет комиссионера"

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

3600 руб.

26.11.2020 34198 593 4

126

Загрузка документов поступления в 1С из XML формата 820 (Контур.Диадок) для УТ10, УТ11, Бух3, КА2, КА2.5, УПП1.3 и обработка выгрузки УПД в Контур Диадок и СБИС для 1С:Бухгалтерии 3

ЭДО и ОФД Загрузка и выгрузка в Excel Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Кто получает документы через Контур.ДиаДок (XML файл формат 820) и набивает их вручную в 1С, тот наверняка хотел бы автоматизировать этот процесс. Поддержка конфигураций: Бухгалтерии 3, УПП 1.3, 1С:КА 2.4 и 1С:КА 2.5, УТ10, УТ11.4 и УТ11.5. Выгрузка XML в формате 820 для диадок из БУХ3

3600 руб.

11.02.2020 84854 259 155

176

Загрузка данных по сотрудникам и физическим лицам из файла XLS (xlsx, mxl, ods) в ЗУП/ЗиКГУ редакция 3.1

Загрузка и выгрузка в Excel Зарплата Кадровый учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Обработка позволяет загрузить из структурированного файла данные по физическим лицам, сотрудникам. Предусмотрено создание документов "Прием на работу". Данные загружаются не только в справочники и документы, но и в регистры сведений. Обработка разработана для конфигураций "Зарплата и Управление Персоналом, редакция 3.1"/"Зарплата и кадры государственного учреждения, редакция 3.1" на платформе 8.3.

6000 руб.

15.07.2015 61700 83 47

Комментарии

В избранное Подписаться на ответы

Свернуть все

1. user1650208 30.08.22 17:02 Сейчас в теме

Добрый день! Возможно ли с вашей помощью сделать модуль автоматической выгрузки регистра (определенного) из 1С ЗУП 3 на адрес почты или фтп в виде таблицы эксель?