Выгрузка в Excel с использованием формата OpenXML

18.09.18

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

По работе приходится часто выгружать данные в Excel формате. При большом количестве строк и формул этот процесс достаточно длительный. Решил написать для своих целей небольшую библиотечку для выгрузки данных. Используется технология open-xml. Никаких библиотек не надо, пишу напрямую в xml файлики. Платформа 8.3.11 Для теста обычных форм брал УТ 10.3

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Excel: создание в формате xlsx без COM технологии(обычные формы)
.epf 18,16Kb
12
12 Скачать (1 SM) Купить за 1 850 руб.
Выгрузка в Excel с использованием формата OpenXML(УФ ):
.epf 25,82Kb
33
33 Скачать (1 SM) Купить за 1 850 руб.
Выгрузка в Excel с использованием формата OpenXML(cf):
.cf 36,23Kb
24
24 Скачать (1 SM) Купить за 1 850 руб.

Обработка демонстрирует возможности библиотеки

Процедура Рамки(Книга)
	рамки =   Книга.рамки;
	рамки.Добавить(	"1000", "<border><left style='thin'><color indexed='64'/></left><right/><top/><bottom/><diagonal/></border>");
	рамки.Добавить(	"1100", "<border><left style='thin'><color indexed='64'/></left><right style='thin'><color indexed='64'/></right><top/><bottom/><diagonal/></border>");
	рамки.Добавить(	"0010", "<border><left/><right/><top style='thin'><color indexed='64'/></top><bottom/><diagonal/></border>");
	рамки.Добавить( "0011", "<border><left/><right/><top style='thin'><color indexed='64'/></top><bottom style='thin'><color indexed='64'/></bottom><diagonal/></border>");
	рамки.Добавить(	"1111", "<border><left style='thin'><color indexed='64'/></left><right style='thin'><color indexed='64'/></right><top style='thin'><color indexed='64'/></top><bottom style='thin'><color indexed='64'/></bottom><diagonal/></border>");
	рамки.Добавить( "0111", "<border><left/><right style='thin'><color indexed='64'/></right><top style='thin'><color indexed='64'/></top><bottom style='thin'><color indexed='64'/></bottom><diagonal/></border>");
	рамки.Добавить(	"2122", "<border><left style='medium'><color indexed='64'/></left><right style='thin'><color indexed='64'/></right><top style='medium'><color indexed='64'/></top><bottom style='medium'><color indexed='64'/></bottom><diagonal/></border>");
	рамки.Добавить(	"1122", "<border><left style='thin'><color indexed='64'/></left><right style='thin'><color indexed='64'/></right><top style='medium'><color indexed='64'/></top><bottom style='medium'><color indexed='64'/></bottom><diagonal/></border>");
	рамки.Добавить(	"2211", "<border><left style='medium'><color indexed='64'/></left><right style='medium'><color indexed='64'/></right><top style='thin'><color indexed='64'/></top><bottom style='thin'><color indexed='64'/></bottom><diagonal/></border>");
	рамки.Добавить( "2222", "<border><left style='medium'><color indexed='64'/></left><right style='medium'><color indexed='64'/></right><top style='medium'><color indexed='64'/></top><bottom style='medium'><color indexed='64'/></bottom><diagonal/></border>");
КонецПроцедуры

Процедура шрифты(Книга)
	шрифты =   Книга.Шрифты; 
	шрифты.Добавить("Arial_6"  , "<font><sz val='6'/><name val='Arial'/><family val='2'/></font>"    );
	шрифты.Добавить("Arial_8"  , "<font><sz val='8'/><name val='Arial'/><family val='2'/></font>"    );
	шрифты.Добавить("Arial_8_b", "<font><b/><sz val='8'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_9"  , "<font><b/><sz val='9'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_10" , "<font><sz val='10'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_11" , "<font><sz val='11'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_11_b", "<font><b/><sz val='11'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_11_FF413003", "<font><sz val='11'/><color rgb='FF413003'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_11_b_i", "<font><b/><i/><sz val='11'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_11_b_FF413003", "<font><b/><sz val='11'/><color rgb='FF413003'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_12", "<font><sz val='12'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_12_b", "<font><b/><sz val='12'/><name val='Arial'/><family val='2'/></font>");
	шрифты.Добавить("Arial_12_b_FF413003","<font><b/><sz val='12'/><color rgb='FF413003'/><name val='Arial'/><family val='2'/></font>");
КонецПроцедуры

Процедура Заливки(Книга)
	Заливки =   Книга.Заливки;
	Заливки.Добавить("fill_FFFFFF00","<fill><patternFill patternType='solid'><fgColor rgb='FFFFFF00'/><bgColor indexed='64'/></patternFill></fill>");
КонецПроцедуры

//  Создание книг
   // создание 1 книги с заданным числом листов
Процедура СоздатьПустуюКнигу(КоличествоЛистов)
    книга = СоздатьКнигу(КоличествоЛистов);	
	Записать_книгу(книга, папка + "\ПустаяКнига.xlsx")
КонецПроцедуры

   // создание 2 книг и работа с ней
Процедура СоздатьПустуюКнигу_2(КоличествоЛистов)
    книга = СоздатьКнигу(КоличествоЛистов);	
	ДобавитьСтроку(книга, 1, "B" ,"1", "ооо веснушка_1111"            , 0);

    книга1 = СоздатьКнигу(1);
	ДобавитьСтроку(книга1, 0, "B" ,"1", "ооо веснушка_2222"            , 0);

	Записать_книгу(книга, папка + "\ПустаяКнига_1.xlsx");
	Записать_книгу(книга1, папка + "\ПустаяКнига_2.xlsx");
КонецПроцедуры

    // создание книги с  о стилями
Процедура СоздатьКнигуПроба()
	книга = СоздатьКнигу();
	
	Рамки(Книга);
	Заливки(Книга);
	шрифты(Книга);
	
    ЛистНомер =0 ;

	Заголовок11             = ДобавитьСтиль(книга, 0, книга.шрифты.Индекс(книга.шрифты.НайтиПоЗначению("Arial_11"))  , 0, 0, "vertical='center'");
	Заголовок11_рамка_центр = ДобавитьСтиль(книга, 0, книга.шрифты.Индекс(книга.шрифты.НайтиПоЗначению("Arial_12_b")), 0, книга.рамки.Индекс(книга.рамки.НайтиПоЗначению("1111")), "horizontal='center'");
	// https://msdn.microsoft.com/ru-ru/library/office/documentformat.openxml.spreadsheet.numberingformat.aspx
	Заголовок11_рамка_дата  = ДобавитьСтиль(книга,14, книга.шрифты.Индекс(книга.шрифты.НайтиПоЗначению("Arial_11"))  , 0, книга.рамки.Индекс(книга.рамки.НайтиПоЗначению("1111")), "horizontal='center'");	
	ПодСтрокой              = ДобавитьСтиль(книга, 0, книга.шрифты.Индекс(книга.шрифты.НайтиПоЗначению("Arial_6"))   , 0, 0, "horizontal='center' vertical='top'");	
	Заголовок12             = ДобавитьСтиль(книга, 0, книга.шрифты.Индекс(книга.шрифты.НайтиПоЗначению("Arial_12"))  , 0, 0, "");	
	
	Рамка_верх_низ          = ДобавитьСтиль(книга, 0, 0, 0, книга.рамки.Индекс(книга.рамки.НайтиПоЗначению("0011")), "");  
	Рамка_верх_низ_право    = ДобавитьСтиль(книга, 0, 0, 0,	книга.рамки.Индекс(книга.рамки.НайтиПоЗначению("0111")), "");
	Рамка_верх              = ДобавитьСтиль(книга, 0, 0, 0,	книга.рамки.Индекс(книга.рамки.НайтиПоЗначению("0010")), "");
	Рамка_л                 = ДобавитьСтиль(книга, 0, 0, 0,	книга.рамки.Индекс(книга.рамки.НайтиПоЗначению("1000")), "");
	хмл = "";
	ДобавитьСтроку(книга, ЛистНомер, "B" ,"1", "ооо веснушка"            , Заголовок12);
	ДобавитьСтроку(книга, ЛистНомер, "B" ,"2", "наименование организации", ПодСтрокой);
	ДобавитьСтроку(книга, ЛистНомер, "B" ,"3", "ооо радость"             , Заголовок12);
	ДобавитьСтроку(книга, ЛистНомер, "B" ,"4", "наименование конрагента" , ПодСтрокой);
	ДобавитьСтроку(книга, ЛистНомер, "D" ,"5", "Номер документа"       , Заголовок11_рамка_центр);
	ДобавитьСтроку(книга, ЛистНомер, "F" ,"5", ""                        , Рамка_верх_низ);
    ДобавитьСтроку(книга, ЛистНомер, "G","5", Формат(НачалоМесяца(Текущаядата()),"ДФ=dd.MM.yyyy"), Заголовок11_рамка_дата); 
	Книга.Листы[ЛистНомер].ОбъединенныеЯчейки.Добавить("<mergeCell ref=""D5:F5""/>");

	Записать_книгу(книга, папка + "\Книга.xlsx")
КонецПроцедуры

     // создание отчета с формулами на основании документа
Процедура СоздатьКнигуДокумент()
	книга = СоздатьКнигу();
	
	Рамки(Книга);
	Заливки(Книга);
	шрифты(Книга);
	
	ЛистНомер =0 ;
	
	СформироватьШапку(книга,ЛистНомер,документ);
	СформироватьШапкуТаблицы(книга, ЛистНомер);
	след = СформироватьСтроки(книга, ЛистНомер);
	ДобавитьФормулу(книга,ЛистНомер,"E" , "E",строка( след),строка( след+11), "SUM(E10:E" + строка(след-1)+")",200,истина,13);

	Колонки(Книга.Листы[ЛистНомер]) ;
	Записать_книгу(книга, папка + "\КнигаДокумент.xlsx")
КонецПроцедуры

    // создание отчета с формулами на основании документа  и выводом тч в таблицу
Процедура СоздатьКнигуДокументТаблица()
	книга = СоздатьКнигу();
	
	Рамки(Книга);
	Заливки(Книга);
	шрифты(Книга);
	
	ЛистНомер =0 ;
	
	СформироватьШапку(книга,ЛистНомер,документ);
	СформироватьШапкуТаблицы(книга, ЛистНомер);
	след = СформироватьСтроки(книга, ЛистНомер);
	tableStyleInfo = "<tableStyleInfo name=""TableStyleLight2"" showFirstColumn=""0"" showLastColumn=""0"" showRowStripes=""1"" showColumnStripes=""0""/>";
	ст = массив_букв[Шапка.Количество()-1];
    СоздатьТаблицу(книга,ЛистНомер, "rr","A10:" + ст+  стрзаменить(строка(след-1),Символы.НПП,""),Шапка,tableStyleInfo);
	
	Колонки(Книга.Листы[ЛистНомер]) ;
	
	Записать_книгу(книга, папка + "\КнигаДокументТаблица.xlsx")
КонецПроцедуры

Функции для работы с библиотекой

СоздатьКнигу(КоличествоЛистов);

Записать_книгу(книга, путь)

Рамки(Книга); //заполнение списка значений
    Заливки(Книга); //заполнение списка значений
    шрифты(Книга); //заполнение списка значений

ДобавитьСтроку(книга,ЛистНомер,столбец,строка, Значение,стиль);

ДобавитьЧисло( книга,ЛистНомер,столбец,строка, Значение,стиль);

ДобавитьФормулу(книга, ЛистНомер, СтолбецНач, СтолбецКон,строкаНач,строкаКон, Значение,НомерФормулы,первая,номер_стиль)

 ДобавитьСтиль(книга,numFmtId, fontId, fillId, borderId, Alignment="")

СоздатьТаблицу(Книга,лист, имя, диапазон, колонки,tableStyleInfo)

19.09.2018

добавил функцию: ДобавитьЗаморозку(книга,лист, колонка, строка)

Excel openxml

См. также

SALE! 20%

Загрузка и выгрузка в Excel Оптовая торговля Печатные формы Бухгалтер Пользователь Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 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С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Забудьте о ручном вводе: загружайте документы из Excel в 1С за секунды! Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С.

6000 5100 руб.

09.11.2016    237696    1076    904    

1012

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

Реальный помощник, с помощью которого Вы преобразуете необходимые документы для Wildberries, OZON, ЯндексМаркет, Мегамаркет, Aliexpress, Детский мир, МагнитЭкспресс (быв.Казань-Экспресс), Леруа Мерлен, ЭНФАНТА (Акушерство), ЛаМода, Летуаль, Твой дом, Золотое Яблоко в документы "Отчет комиссионера (агента) о продажах" и другие. Работает в 1С:БП 3.0, 1С:БП 3.0 КОРП, 1С:УТ 11, 1С:УНФ, 1С:КА 2, 1С:ERP Управление предприятием. Возможность подключить любые маркетплейсы. Анализ продаж ОZON. 30 дней БЕСПЛАТНОГО пользования!

3600 руб.

12.08.2021    36429    368    68    

160

SALE! 30%

Загрузка и выгрузка в 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С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания сканов или фото товарных документов в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить".

8400 5880 руб.

04.06.2019    108281    315    173    

327

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

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

11100 руб.

29.10.2014    217487    662    527    

457

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

Загрузка данных отчета о реализации товаров из сервиса "Детский мир" для конфигурации 1С: Бухгалтерия предприятия, редакция 3.0; Управление торговлей, редакция 11; Управление торговлей, редакция 10.3; Управление нашей фирмой, редакция 3.0 и Розница, редакция 3.0 в документ "Отчет комиссионера (агента) о продажах".

4800 руб.

23.01.2022    11402    56    0    

38

Загрузка и выгрузка в 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.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

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

16800 руб.

20.11.2015    157280    379    378    

514
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. sytkosa 119 18.09.18 23:56 Сейчас в теме
(0) Есть несколько вопросов.
1. Под управляемые формы переделать возможно быстро ?
2. Возможно ли сделать обработку в виде библиотеки например для вызова в oscript ?
3. Вы проводили замеры по скорости записи файла. Можно ли ускорить запись текста ?
4. Умеет ли обработка работать с графикой ?
3. user1045404 168 19.09.18 10:57 Сейчас в теме
(1) сегодня выложу по УФ тестировал на Бухгалтерии.
(2) завтра сделаю конфу с общим модулем.
(3) в статье писал: Делал выгрузку шапка 10 строк тч 4000 строк, 67 столбцов 20 формул в строке. форматирование(шрифты, рамки, ширина столбцов, заливка) времени заняло 135 секунд.
Реально табель с данными который выгружался порядка 30 мин. выгружается 15 мин. с выгрузкой эксперементировал разными способами(шаблона в Excel, вывод с форматировнием, последний вариант вывод в mxl. Сохранение в Excel. Установка формул.)
(4) вставку изображений не делал. Дня два работы. Несколько файлов нужно создавать и установку связей сделать.
2. TMV 14 19.09.18 05:59 Сейчас в теме
Записать_иксель
жесть
user797130; ltfriend; +2 Ответить
4. user1045404 168 19.09.18 11:01 Сейчас в теме
(2) переименую в записать_книгу. (раз так слух режет). в самой обработке использую название функций таким образом
Записать_Content_Types_xml
Записать_styles_fonts
Записать_styles_fills
Записать_workbook_xml_rels
Записать_sheet1_xml_rels

Подчеркивание и два языка.....
5. user1045404 168 19.09.18 11:28 Сейчас в теме
(2) кстати видел еще в названиях функций и переменных "экзель"
6. Serj1C 483 22.10.18 12:01 Сейчас в теме
чем не устроило сохранение табличного документа в формат эксель типовыми методами платформы?
7. user1045404 168 24.10.18 10:58 Сейчас в теме
(6) формулы долго устанавливаются. бывает и офис не установлен.
JenniferOnLine; user797130; +2 Ответить
10. Дмитрий74Чел 238 06.06.24 10:49 Сейчас в теме
(7) разве можно сохранить формулу при сохранении табличного докумемента в xlsx средствами платформы?
11. user1045404 168 12.06.24 11:20 Сейчас в теме
(10) Нельзя. Можно потом Excel = Новый COMОбъект("Excel.Application"); и установить формулы. А это долго.
8. user1045404 168 24.10.18 11:07 Сейчас в теме
(6)плюс выгружаю в таблицу, что пользователю удобно(полосатость, сортировка, фильтрация..)
user797130; +1 Ответить
9. rabid_otter 134 20.11.19 10:58 Сейчас в теме
Используйте СтрСоединить, СтрШаблон вместо конкатенаций в цикле.
user797130; +1 Ответить
Оставьте свое сообщение