Выгрузка данных в Excel

15.06.12

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

Часто в ходе работы в 1С требуется выбирать данные одновременно из разных источников (справочников, документов, регистров и т.д.) и сохранять эту сводную информацию в формате Excel (*.xls) или Табличных документов 1С (*.mxl). Затем, с помощью универсальной обработки "Загрузка данных из табличного документа", можно загрузить данные, например, в другую базу. В данной статье представлен метод выгрузки информации во внешнюю таблицу через Табличный Документ с сохранением форматов данных.

Итак, требуется выгрузить данные из Таблицы Значений, полученной в результате запроса, в таблицу *.xls или *.mxl.

Сделать это можно посредством OLE:

     Эксель = СоздатьОбъект("Excel.Application");

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

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

В статье представлены 2 процедуры. Первая формирует Табличный Документ, переменная ТабЗначений - Таблица Значений, полученная в результате выполнения запроса. Вторая осуществляет сохранение Табличного Документа в таблицу формата *.xls или *.mxl.

Процедура СформироватьТД(ТабЗначений)
    
    ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
    ОбластьЗаголовка = ТабДок.ПолучитьОбласть(1, , 1, );
    ДетальнаяСтрока = ТабДок.ПолучитьОбласть(1, , 1, );
    КоличествоКолонок = ТабЗначений.Колонки.Количество();
    
    Для КолонкаТЗ = 0 По КоличествоКолонок - 1 Цикл //Формирование заголовков колонок
        Область = ОбластьЗаголовка.Область(1, КолонкаТЗ + 1);
        Область.Текст = ТабЗначений.Колонки[КолонкаТЗ].Имя;
        Область.ЦветФона = WEBЦвета.СветлоЖелтый;
    КонецЦикла;
    ТабДок.Вывести(ОбластьЗаголовка);
        
    Для Каждого СтрокаТЗ Из ТабЗначений Цикл  //Заполнение Табличного Документа данными из Таблицы Значений
        Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл
            Область = ДетальнаяСтрока.Область(1, ТекущееПоле + 1);
            Область.СодержитЗначение = Истина;
            
            КС = Новый КвалификаторыСтроки(20);
            Массив = Новый Массив;
            Массив.Добавить(ТипЗнч(СтрокаТЗ[ТекущееПоле]));
            ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);

            Область.ТипЗначения = ОписаниеТиповС;
            Область.Значение = СтрокаТЗ[ТекущееПоле];
       КонецЦикла;
       ТабДок.Вывести(ДетальнаяСтрока);
    КонецЦикла;          
    ТабДок.ОтображатьСетку = Истина;
    
    ЗаписатьТабДок(ТабДок);
    
    ТабДок.Показать();
    
КонецПроцедуры
Процедура ЗаписатьТабДок(ТабличныйДокумент)
    
    ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
                                      
    ДиалогВыбора.Заголовок = "Сохранение документа";
    ДиалогВыбора.МножественныйВыбор = Ложь;
    ДиалогВыбора.ИндексФильтра               = 0;
    ДиалогВыбора.Фильтр = "Табличный документ (*.mxl)|*.mxl|Лист Excel (*.xls)|*.xls";
    ИмяФайла = "\МатериалыВЭксплуатации" + СтрЗаменить(Строка(Подразделение), " ", "");
    ДиалогВыбора.ПолноеИмяФайла = ИмяФайла;
    
    Если ДиалогВыбора.Выбрать() Тогда
        
        ФайлНаДиске = Новый Файл(ДиалогВыбора.ПолноеИмяФайла);
        Если нРег(ФайлНаДиске.Расширение) = ".mxl" Тогда
            ТабличныйДокумент.Записать(ДиалогВыбора.ПолноеИмяФайла,ТипФайлаТабличногоДокумента.MXL);
        ИначеЕсли нРег(ФайлНаДиске.Расширение) = ".xls" Тогда
            ТабличныйДокумент.Записать(ДиалогВыбора.ПолноеИмяФайла,ТипФайлаТабличногоДокумента.XLS);
        ИначеЕсли нРег(ФайлНаДиске.Расширение) = ".txt" Тогда
            ТабличныйДокумент.Записать(ДиалогВыбора.ПолноеИмяФайла,ТипФайлаТабличногоДокумента.TXT);
        КонецЕсли;
        
    КонецЕсли;
    
КонецПроцедуры

См. также

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    210180    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    150726    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    31894    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    214930    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    15080    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    101380    296    173    

312
Отзывы
11. margo_m09 08.01.14 11:35 Сейчас в теме
мне пригодилась, очень полезная статья))))))
Остальные комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. evgefremov 44 15.06.12 11:08 Сейчас в теме
интересная информация, плохо что рассчитано только на эксель.
может автор рассмотреть вариант с использованием бесплатных программ, типа опенофиса?
baracuda; +1 Ответить
7. volconok27 46 21.06.12 21:01 Сейчас в теме
(1) evgefremov, спасибо за идею, будет время рассмотрю этот вариант
TopZlodey; +1 Ответить
2. WKBAPKA 214 15.06.12 12:01 Сейчас в теме
на инфостарте этих статей о обработок для работы с эксель куча
3. Jonny_wk 17.06.12 18:12 Сейчас в теме
4. brunet 39 17.06.12 18:51 Сейчас в теме
лучше всего заполнить нужную информацию в таблицу значений а затем выгружать в excel.
ГердаКай; +1 Ответить
8. volconok27 46 21.06.12 21:03 Сейчас в теме
(4) brunet, так и есть - результат запроса выгружается в ТЗ, просто здесь рассмотрен альтернативный метод выгрузки в Excel
5. ГердаКай 5 20.06.12 12:37 Сейчас в теме
Действительно зачем все так усложнять, когда в 1С везде предусмотрено сохранять любую информацию в Excel.
9. volconok27 46 21.06.12 21:07 Сейчас в теме
(5) ГердаКай, что вы имеете в виду - "в 1С везде предусмотрено сохранять любую информацию в Excel"? Здесь рассмотрен метод выгрузки в Excel из временной таблицы - таблицы значений
6. lsp71 21.06.12 15:22 Сейчас в теме
Всегда пользовался (и продолжаю сейчас) выводом в Excel через OLE: запускаем Excel и выводим в активную (автоматически создаваемую пустую) Workbook нужную ТЗ из 1С. Далее результат можно отформатировать средствами Excel (программирую это при наличии времени и терпения). Все работает как часы, вывод ТЗ в Excel оформлен отдельной процедурой в общем модуле. Есть маленькая хитрость: при выводе больших таблиц (более 2000 строк) 1С пишет данные в dbf-файл, который затем открывается в Excel. Это сделано для скорости и надежности (особенно на слабых компах).
Но вот мне понадобилось не просто показать табличку в Excel на экране, а записать ее в файл и отправить по e-mail. И делает все это автоматически запускаемый раз в неделю отчет. Так вот, на записи xls-файла на диск он (или Excel) повисает (не всегда, но часто) с сообщением от Винды о недостатке системных ресурсов. Диспетчер задач показывает, что жрет ресурсы (время процессора) именно EXCEL.EXE. При запуске отчета в отладчике ошибка не проявляется.
Так что спасибо за идею. Попробую описанным способом.
almaz84; OPrikazchikov; +2 Ответить
10. volconok27 46 21.06.12 21:11 Сейчас в теме
(6) lsp71, Пожалуйста. Поделитесь потом успехами? Тоже всегда пользовалась выводом в Excel через OLE. Идея этого метода родилась из-за необходимости сохранения формата данных
11. margo_m09 08.01.14 11:35 Сейчас в теме
мне пригодилась, очень полезная статья))))))
12. MrFlanker 219 30.10.17 19:02 Сейчас в теме
Вот так формировать табличный документ не проще ?
Процедура _ПоказатьТаблицуЗначений(ТаблЗнач) // Выводит отчет с содержимым Запроса выгруженным в таблицу значений (для целей отладки)
	// Выводит отчет с содержимым Запроса выгруженным в таблицу значений (для целей отладки)
	// Пример использования: _ПоказатьТаблицуЗначений(Запрос.Выполнить().Выгрузить());
	ТабДокумент = Новый ТабличныйДокумент;
	Построитель = Новый ПостроительОтчета;
	Построитель.ИсточникДанных=Новый ОписаниеИсточникаДанных(ТаблЗнач);       
	Построитель.Вывести(ТабДокумент);
	ТабДокумент.Показать();   
КонецПроцедуры
Показать
Оставьте свое сообщение