Отчёт на разных листах (а-ля EXCEL), управляемые формы + выгрузка в Excel без COM

15.01.19

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

Столкнулся с задачей вывода отчёта на разных листах (а-ля Excel), предлагаю мини статью со своим скромным опытом по этому вопросу. Если есть решение лучше, напишите об этом в комментариях.

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

Наименование Файл Версия Размер
Отчёт на разных листах (а-ля EXCEL) управляемые формы:
.erf 11,83Kb
103
.erf 11,83Kb 103 Скачать

Для примера сделаем простейший отчёт, который будет выводить содержимое групп номенклатуры на разные листы.

1

Добавим на форму кнопку «сформировать» реквизит Список групп с типом значений «СправочникСсылка.Номенклатура»

(можно и без реквизита обойтись, но так проще) Листов у нас будет столько, сколько элементов списка. Всё остальное будем добавлять (и удалять) на форму программно.

Отчёту добавим схему СКД, в которой будем получать список номенклатуры переданной группы (через параметр «ГруппаТоваров».)

Создаём группу формы «листы» (для начала проверим, если она уже создана, то удалим её)

Если Элементы.Найти("Листы") <> Неопределено Тогда 
  Элементы.Удалить(Элементы.Листы);
КонецЕсли;
ЭлементЛисты = Элементы.Добавить("Листы",Тип("ГруппаФормы"));
ЭлементЛисты.Вид = ВидГруппыФормы.Страницы;
ЭлементЛисты.Заголовок = "Листы";
ЭлементЛисты.ОтображениеСтраниц = ОтображениеСтраницФормы.ЗакладкиСнизу; //По фэншую, как в Экселе

Дальше перебираем группы номенклатуры,  формируем отчёт из скд, создаём листы (удаляем, если нужно, старые),  создаём табличные документы на листах и выводим туда сформированные отчёты.

Для Каждого  ЭлСписка Из СписокГрупп Цикл
		массивДляУдаления = Новый Массив;  
		МассивДобавляемыхРеквизитов = Новый Массив; 
		НаимГруппы=ЭлСписка.Значение.Наименование;
		Если Не ЗначениеЗаполнено(НаимГруппы)  Тогда 
			Продолжить;   //Не люблю я группы без наименовния 
		КонецЕсли;
		НомерЛиста=(СписокГрупп.Индекс(ЭлСписка)+1);	
		ИДЛиста="Результат"+НомерЛиста;
		НовыйЭлемент = Элементы.Добавить("Лист"+НомерЛиста,Тип("ГруппаФормы"),ЭлементЛисты);
		НовыйЭлемент.Вид = ВидГруппыФормы.Страница;
		НовыйЭлемент.Заголовок = НаимГруппы;
		МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(ИДЛиста,Новый ОписаниеТипов("ТабличныйДокумент"))); 
		//Проверяем, еть ли уже такой реквизит формы, если есть, добавим его в список для удаления
		РеквФормы= ПолучитьРеквизиты();	
		Для Каждого Рекв Из РеквФормы Цикл
			Если Рекв.Имя=ИДЛиста Тогда
				массивДляУдаления.Добавить(ИДЛиста);
				прервать;
			КонецЕсли;
		КонецЦикла;
		
		ИзменитьРеквизиты(МассивДобавляемыхРеквизитов,массивДляУдаления); //добавляем и удаляем
		ЭлементТД = Элементы.Добавить(ИДЛиста, Тип("ПолеФормы"),НовыйЭлемент); 
		ЭлементТД.ПутьКДанным = ИДЛиста; 
		//Формируем отчёт из СКД
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; 
		НастройкиКомп=Отчет.КомпоновщикНастроек.ПолучитьНастройки();
		//Находим и устанавливаем параметр СКД
		ГруппаТоваров=НастройкиКомп.ПараметрыДанных.Элементы.Найти("ГруппаТоваров");
		ГруппаТоваров.Значение= ЭлСписка.Значение;
		ГруппаТоваров.Использование=Истина;
		ДР = Новый ДанныеРасшифровкиКомпоновкиДанных;
		СхемаКомпоновкиДанных = РеквизитФормыВЗначение("Отчет").ПолучитьМакет("СКД");
		МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных,НастройкиКомп,ДР); 
		ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; 
		ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ,ДР); 
		ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; 
		ЭтаФорма[ИДЛиста].Очистить();
		//Выводим результат в созданный табличный документ (во вновь созданный лист)
		ПроцессорВывода.УстановитьДокумент(ЭтаФорма[ИДЛиста]); 
		ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); 	
КонецЦикла;

 Готовый отчёт  можно скачать ниже. В качестве бонуса туда я прикрутил кнопку, которая сохраняет результат в Excel так же на разные листы.

И добавил выгрузку в эксель без COM объекта с помощью объекта ПакетОтображаемыхДокументов   описанная в этой замечательной статье

2

Приветствуются комментарии. Доброй ночи и удачи.

СКД Листы EXCEL Отчёт

См. также

SALE! 10%

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

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

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

10560 9504 руб.

29.10.2014    210154    620    524    

439

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

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

13200 руб.

20.11.2015    150708    367    375    

501

Маркетплейсный загрузчик для 12-ти маркетплейсов в "БП 3", "УТ 11", "КА 2", ERP, УНФ

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

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

1800 руб.

12.08.2021    31893    226    63    

117

SALE! 20%

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

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

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

5000 4000 руб.

09.11.2016    214909    925    886    

939

Загрузка данных отчета о реализации товаров из Excel файла СберМегаМаркет

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

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

4800 руб.

07.06.2022    15071    79    0    

60

SALE! 30%

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

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

6000 5520 руб.

04.06.2019    101368    296    173    

312
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Ibrogim 1311 07.04.17 13:47 Сейчас в теме
Жду комментариев и конструктивной критики )
12. Asmody 21.04.17 17:59 Сейчас в теме
Рекомендую при сохранении книги вставить нечто такое:

		win = book.Windows.item(1);
		win.TabRatio = 0.6;
		win.ScrollWorkbookTabs(, 0);
		book.Sheets(1).Select();
		book.SaveAs(ДиалогВыбораФайла.ПолноеИмяФайла,-4143);
		xlsApp.DisplayAlerts = 1;
		xlsApp.Workbooks.Close();
		xlsApp.Quit();
Показать

и "развернуть" вставку листов в книгу.

Тогда при открытии книги в Excel листы будут в "правильном" порядке и будут видны "ярлычки".
IvanR3S; Ibrogim; +2 Ответить
13. Ibrogim 1311 22.04.17 19:21 Сейчас в теме
(12) ок, спасибо, попробую
17. DoReMu 3 27.05.22 07:39 Сейчас в теме
(1) Скажите, а кнопка выгрузки в Эксель снова делает запрос к базе или есть способ обойти все листы и выгрузить информацию из них?
2. v3rter 07.04.17 14:00 Сейчас в теме
3. Ibrogim 1311 07.04.17 14:13 Сейчас в теме
(2)Это принцип (схема), будет работать на любых управляемых формах. А если вы про прикреплённый отчёт, то он будет в любой конфигурации на УФ работать, где есть иерархический справочник "номенклатура"
4. Dmitri93 12 10.04.17 09:39 Сейчас в теме
Круто) интересная задумка) а типового механизма подобного разве нет?
5. Ibrogim 1311 10.04.17 11:31 Сейчас в теме
(4),Типового не нашёл, если есть, расскажите о нём
6. necropunk 9 10.04.17 11:51 Сейчас в теме
Удобно. Типового такого тоже ничего подобного не припомню, интересный пример, спасибо.
7. rhtr 90 12.04.17 06:42 Сейчас в теме
8. serega_new 12.04.17 10:33 Сейчас в теме
9. Ibrogim 1311 12.04.17 12:16 Сейчас в теме
10. RinGo 91 14.04.17 06:33 Сейчас в теме
Красиво! Сам думал над этой темой... Спасибо за сэкономленное время!
11. vlastapov 49 14.04.17 21:49 Сейчас в теме
Да, для пользователей будет привычнее, да еще и выгрузка в EXEL
14. jaroslav.h 180 13.02.20 13:25 Сейчас в теме
Решение скачал, работает, спасибо.

Вопрос, через ПакетОтображаемыхДокументов я могу и назад прочитать из разных листов екселя?

Мне нужно сформировать ексель файл с разными страницами.
Данный файл будет отредактирован (колонки).
И теперь нужно из отредактированного файла получить данные назад в 1С.
15. Ibrogim 1311 13.02.20 13:49 Сейчас в теме
(14)
ПакетОтображаемыхДокументов

Думаю, что через этот объект не получится.

С недавних пор листы при загрузке через ТабличныйДокумент являются областями, поэтому удобно загружать както так
ТабличныйДокумент.Прочитать(ФайлEXCEL);	
	Для Каждого ОбластьТД ИЗ ТабличныйДокумент.Области Цикл
		СписокЛистов.Добавить(ОбластьТД.Имя);
	КонецЦикла;
user1951539; jaroslav.h; +2 Ответить
16. jaroslav.h 180 13.02.20 14:08 Сейчас в теме
(15) Спасибо за оперативность
18. aret99 8 12.05.23 16:53 Сейчас в теме
Отчет очень помог быстро решить задачу, поставленную руководством: Выгрузка телефонного справочника в эксель по подразделениям во вкладках. Отчет требует функций из общего модуля типовых конфигураций "СтандартныеПодсистемыКлиент", который успешно заработал после копирования из ЗУП в мою рукописную телефонную книгу. И пришлось немного подшаманить, чтобы при выгрузке в эксель вкладки наименовались по подразделениям, а не лист_2 Лист_3.
Оставьте свое сообщение