Быстрое заполнение данными файла MS EXCEL

13.07.17

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

Процедура для 1С быстрого заполнения данными произвольного файла MS Excel. Источник данных - текст с разделителями.

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

Наименование Файл Версия Размер
Быстрое заполнение данными файла MS EXCEL.:
.epf 24,42Kb
16
.epf 24,42Kb 16 Скачать

Одна из самых ненавидимых мной фраз: "и еще сделай, пожалуйста, выгрузку это всего в Excel так чтобы..." Хоть я и начинал кодить в Экселе переносить в него все, что уже наворотили и еще навротят в 1С занятие нудное и не благодарное. Но еще хуже, когда готовый и устоявшийся шаблон экселя просят заполнить / дополнить данными из 1С.

Довольно долго и по разному я решал задачу заполнения файла Excel данными из 1С пока наконец не догадался использовать объект рабочего листа QueryTables. По сравнению с записью в Value ячеек это на порядки быстрее, а кроме того позволяет задать форматы заполняемых данных.

В сравнении с ADO этот способ имеет такие преимущества как то, что заполнение идет не в цикле и позволяет адресоваться на место вставки, вместо того, чтобы вставлять записи с самого начала листа.

Недостатком в сравнении с ADO является то, что нам нужен установленный Excel, так как работа идет через COM. 

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

Выгружаем в EXCEL с помощью ADO //infostart.ru/public/65045/ 

Выгружаем в EXCEL с помощью ADO (часть 2) //infostart.ru/public/69248/

Чтобы не утомлять читателей приведу сразу код процедуры. Работает на клиенте и на сервере.

//ПараметрыЭкселя - Структура
//		.ФайлДляВставки - Строка. Полное имя файла Excel куда вставляются данные.
//		.НомерЛиста		- Целое. Порядковый номер листа для вставки данных в книге.
//		.НачСтрока 		- Целое. Номер строки верхней левой ячейки дипазона вставки.
//		.НачСтолбец		- Целое. Номер столбца верхней левой ячейки дипазона вставки.
//ПараметрыОбмена - Структура
//		.ТекстДляВставки 	- Строка/Текстовый документ. Многострочный текст с разделителями для вставки в эксель.
//		.МассивФорматов 	- Массив. Состоит из целых чисел, определяющих формат для каждого столбца вставляемых данных
//								1 - число/формула, 2 - текст, 4 - дата, 9 - пропустить столбец
//		.СимволРазделитель 	- Символ, используемый в тексте для разделения столбцов.
Процедура ПоместитьВЭксельПоСтолбцам(ПараметрыЭкселя,ПараметрыОбмена)
	
	ExcelCOM 	= Новый COMОбъект("Excel.Application");
	КнигаExcel 	= ExcelCOM.WorkBooks.Open(СокрЛп(ПараметрыЭкселя.ФайлДляВставки));
	ЛистExcel 	= ExcelCOM.WorkSheets(ПараметрыЭкселя.НомерЛиста);
	
	ExcelCOM.DisplayAlerts = 1;

 	ТекстовыйФайл = ПолучитьИмяВременногоФайла("txt");

	Если ТипЗнч(ПараметрыОбмена.ТекстДляВставки) = Тип("ТекстовыйДокумент") ТОгда
		ТекстовыйФайл = ПолучитьИмяВременногоФайла("txt");
		ПараметрыОбмена.ТекстДляВставки.Записать(ТекстовыйФайл, "windows-1251");
	ИначеЕсли ТипЗнч(ПараметрыОбмена.ТекстДляВставки) = Тип("Строка") Тогда
		тф = Новый ТекстовыйДокумент;
		тф.УстановитьТекст(ПараметрыОбмена.ТекстДляВставки);
		тф.Записать(ТекстовыйФайл, "windows-1251");
	Иначе
		Возврат;
	КонецЕсли;	
			
	МассивФорматов = Новый COMSafeArray(ПараметрыОбмена.МассивФорматов,"VT_UINT");
	
	QueryTable = ЛистExcel.QueryTables.Add("TEXT;" + ТекстовыйФайл, ЛистExcel.Cells(ПараметрыЭкселя.НачСтрока,ПараметрыЭкселя.НачСтолбец));
    QueryTable.Name = "Text_to_Excel";
    QueryTable.FieldNames = True;
    QueryTable.RowNumbers = False;
    QueryTable.FillAdjacentFormulas = False;
    QueryTable.PreserveFormatting = True;
    QueryTable.RefreshOnFileOpen = False;
    QueryTable.RefreshStyle = 0;
    QueryTable.SavePassword = False;
    QueryTable.SaveData = True;
    QueryTable.AdjustColumnWidth = True;
    QueryTable.RefreshPeriod = 0;
    QueryTable.TextFilePromptOnRefresh = False;
    QueryTable.TextFilePlatform = 1252;
    QueryTable.TextFileStartRow = 1;
    QueryTable.TextFileConsecutiveDelimiter = False;
    QueryTable.TextFileTabDelimiter = True;
    QueryTable.TextFileSemicolonDelimiter = False;
    QueryTable.TextFileCommaDelimiter = False;
    QueryTable.TextFileSpaceDelimiter = False;
    QueryTable.TextFileOtherDelimiter = ПараметрыОбмена.СимволРазделитель;
    QueryTable.TextFileColumnDataTypes = МассивФорматов;
    QueryTable.TextFileTrailingMinusNumbers = True;
    Успех = QueryTable.Refresh(false);
	
	КнигаExcel.Save();		
	
	ExcelCOM.DisplayAlerts = 0; 
	ExcelCOM.ActiveWorkbook.Close(); 
	ExcelCOM.Quit();
	ExcelCOM.DisplayAlerts = 1;
	
КонецПроцедуры

Вот почти и все.

В приложении демо обработка, если понадобится пример использования. Работает на всех формах.

выгрузка вставка заполнить заполнение Эксель Excel MS 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    210185    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    150727    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    31897    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    101385    296    173    

312
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. unichkin 1559 14.07.17 00:04 Сейчас в теме
Про скорость - еще через диапазоны (range) удобно читать\заливать инфу..
2. Altair777 644 14.07.17 10:23 Сейчас в теме
(0) Хорошо бы еще ТЗ подавать на входе.
3. dusha0020 1103 14.07.17 11:09 Сейчас в теме
(2) Ага. И переменную для выгружать с заголовками или без:)
Спасибо за идею. Может и допилю когда-нибудь.
Altair777; +1 Ответить
4. Altair777 644 14.07.17 11:14 Сейчас в теме
(3) и тогда форматы можно брать прямо из типа значения. С вариациями - типизированы ли колонки ТЗ?
Оставьте свое сообщение