Экспорт нескольких MXL в один XLS на несколько листов

12.03.12

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

В ходе одного из проектов всплыло задание: отчёты должны быть скомпонованы в пачки и сохраняться в эксель вместе, каждый отчёт — на отдельный лист в файле. После некоторых происков с экселем и поисков с гуглом появилась обработка.

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

Наименование Файл Версия Размер
MXLMultypage
.epf 17,79Kb
65
.epf 17,79Kb 65 Скачать

Алгоритм прост:

  • * открываем эксель,
  • * создаём новый файл,
  • * перебираем в цикле табличные документы:
    • - каждый документ сохраняем в эксель штатными средствами 1С,
    • - открываем файл экселем и
    • - копи-пастим оттуда первый (единственный) лист в наш сводный файл.
  • * сохраняемся, закрываем эксель

Разрабатывалось и тестировалось в условиях MS Office 2007 Standart. Под старые офисы можно и самим допилить. 

В приложенном файле нижеприведённый код и пример его использования.

Исходный код:

// СохранитьМногостраничныйФайл() Создаёт XLSX-файл с несколькими листами
//
// Параметры
//      ИмяФайла            - Имя выходного файла
//      СоответствиеЛистов  -
//                          (1) Соответствие:
//          Ключ            - Строка - Имя листа
//          Значение        - Табличный документ - Содержимое листа
//                          (2) Таблица значений с колонками Ключ и Значение.
//                              Может понадобиться, если требуется строгий порядок листов.
Процедура СохранитьМногостраничныйФайл(ИмяФайла, СоответствиеЛистов) Экспорт

   
Х = ПолучитьCOMОбъект("", "Excel.Application");
   
Х.SheetsInNewWorkbook = 1; // в новой книге создавать только 1 лист
   
Книга = Х.Workbooks.Add();

   
Первый = Истина; // у нас уже есть один лист, надо использовать его
   
ПрошлыйЛист = Неопределено;

    Для Каждого
мЛист Из СоответствиеЛистов Цикл

       
// Сохраняем табличный документ во временный файл
       
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xlsx");
       
ТабДок = мЛист.Значение;
       
ТабДок.Записать(ИмяВременногоФайла, ТипФайлаТабличногоДокумента.XLSX);

       
Х.CutCopyMode = False; // Сбрасываем старое копирование

        // Копируем первый (единственный) лист временного файла
       
мКнига = Х.Workbooks.Open(ИмяВременногоФайла);
       
мКнига.Worksheets(1).Cells.Select();
       
Х.Selection.Copy();

        Если
Первый Тогда // Используем созданный автоматически
           
НовыйЛист = Книга.Worksheets(1);
           
Первый = Ложь;
        Иначе
// добавляем новый
           
НовыйЛист = Книга.Worksheets.Add(, ПрошлыйЛист); // Добавляем новый лист после прошлого
       
КонецЕсли;

       
НовыйЛист.Name = мЛист.Ключ; // Задаём имя
       
НовыйЛист.Paste(); // Вставляем содержимое

        // Сбрасываем выделение с добавленного листа
       
НовыйЛист.Activate();
       
Х.Range("A1").Select();

       
ПрошлыйЛист = НовыйЛист;

    КонецЦикла;
// Для Каждого мЛист Из СоответствиеЛистов Цикл

   
Х.DisplayAlerts = False; // Отключаем вывод предупреждений типа "Заменить файл?"
   
Книга.Worksheets(1).Activate(); // Активируем 1 лист из списка
   
Книга.SaveAs(ИмяФайла);

   
Х.Quit();

   
Х = Неопределено;

КонецПроцедуры
// СохранитьМногостраничныйФайл()

См. также

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    210160    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    150711    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    214918    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    15073    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    101372    296    173    

312
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. AlX0id 12.03.12 15:30 Сейчас в теме
А копипаст зачем? Чтобы не дышали при этом? )
У меня вот так вполне работает..
	Колво = ЭлементыФормы.ПанельРезультат.Страницы.Количество()-1;
	Попытка
		
		Excel = Новый COMОбъект("Excel.Application");
		Excel.Application.WorkBooks.Add(-4167);
		
		КнигаРез = Excel.ActiveWorkBook;
		Лист = Excel.ActiveSheet;
		
	Исключение
	
		Сообщить("Не удалось создать файл Microsoft Excel!!!",СтатусСообщения.ОченьВажное);
		Возврат;
		
	КонецПопытки;
	
	Для Сч = 1 По Колво Цикл
	
		ЭлементыФормы["ПолеТД" + (Колво - Сч + 1)].Записать(ПутьКФайлам + "Лист.xls", ТипФайлаТабличногоДокумента.XLS);
		Excel.Application.WorkBooks.Add(ПутьКФайлам + "Лист.xls");
		КнигаТмп = Excel.ActiveWorkBook;
		ЛистBefore = КнигаРез.Sheets(1);
		КнигаТмп.Sheets(1).Name = ЭлементыФормы.ПанельРезультат.Страницы[Колво - Сч + 1].Заголовок;
		КнигаТмп.Sheets(1).Copy(ЛистBefore);
		КнигаТмп.Close(Ложь);
	
	КонецЦикла;
	
	КнигаРез.SaveAs(ПутьКФайлам + ИмяФайла);
	Excel.Application.Quit();
Показать
_Vanda_; klinval; kansler; +3 Ответить
2. dmpas 417 12.03.12 15:54 Сейчас в теме
(1) AlX0id, согласен. Тоже дошёл до копирования листов, но уже позже. А копипаст вполне себе быстро работает, так что над "не дышать" никто даже и не задумался за все 2 дня эксплуатации. Хотя это не срок, конечно.
9. ilya005 123 15.07.16 05:24 Сейчас в теме
excel выдает сообщение если много данных,
что бы отключить перед закрытием книги использовать это:

КнигаТмп.Sheets(1).Range("A1").Copy();

12. AllexSoft 29.10.19 11:14 Сейчас в теме
(1) эх еще бы пример нормальный, сохранение какой нибудь коллекции (список значения, соответствие) с табличными документами, как у ТС. У вас какой то больно специфичный пример, сколько не вглядывался так и не понял как оно работает.
Например ЛистBefore = КнигаРез.Sheets(1); - почему здесь строго единица? всегда вставляете в первую страницу? остальные сдвинутся автоматом назад ?
Excel.Application.WorkBooks.Add(-4167); - добавить книгу без листов ?

КнигаТмп.Sheets(1).Copy(ЛистBefore); а точно так, а не на оборот? типа ЛистBefore.Copy(КнигаТмп.Sheets(1)); ?
3. NoRazum 29 11.09.12 11:51 Сейчас в теме
Отличная разработка.
Сэкономило мне кучу времени.
Плюс однозначна!!!
4. Kesr 15.11.12 15:53 Сейчас в теме
Мне тоже пригодилась. Спасибо. Вот еще бы формулы из Excel файлов перекидывать. Буду копать в этом направлении.
5. nnurik 16.01.13 13:01 Сейчас в теме
Пригодилось, спасибо. Только цвета преобразились в Excel у меня... Буду искать, как исправить.
6. dmpas 417 16.01.13 18:34 Сейчас в теме
(5) nnurik!
да, есть в 1С такая проблема :)
7. marksheder 1 27.02.15 12:15 Сейчас в теме
Спасибо, очень пригодилась обработка!!!
8. Mialex 02.03.15 21:25 Сейчас в теме
Спасибо!
Хорошая обработка! Облегчила мне сегодня жизнь.
10. тшл 6 19.10.17 16:49 Сейчас в теме
Спасибо.
Было по другому сделано(непонятно что и откуда), переделал на этот текст.
11. lhfrjy 53 19.10.18 07:30 Сейчас в теме
Хорошая, только временные файлы нужно удалять обязательно!!
Оставьте свое сообщение