Кэширование файла Excel (без загрузки в базу данных).

21.10.14

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

Способ работы с большим файлом Excel, так же быстро, как с обычной таблицей (при помощи кэширования).

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

Наименование Файл Версия Размер
Работа с файлом excel
.epf 7,59Kb
6
.epf 7,59Kb 6 Скачать

При первом открытии обработки видим надпись Файл не загружен

Загрузим вот такой файл Excel  для примера

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

В дальнейшем при открытии обработки можно сразу жать кнопку Выполнить.

Сделал это с помощью выгрузки ТаблицыЗначений в файл и последующего использования этого файла.

По нажатию кнопки обновить:

Если Не ЗначениеЗаполнено(ПутьКФайлу) Тогда
		Сообщить("Выберите файл для загрузки!");	
		Возврат;
	КонецЕсли;	
	
	Док = ПолучитьCOMОбъект(ПутьКФайлу); 
	
	НомерЛиста = 1;
	ВсегоСтрок = Док.Sheets.Item(НомерЛиста).UsedRange.Rows.Count();
	
	КЧ = Новый КвалификаторыЧисла(10,0);
	КС = Новый КвалификаторыСтроки(200);
	Массив = Новый Массив;
	Массив.Добавить(Тип("Строка"));
	ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);
	Массив.Очистить();
	Массив.Добавить(Тип("Число"));
	ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);
	
	ТЗЕксель = Новый ТаблицаЗначений;
	ТЗЕксель.Колонки.Добавить("Наименование",ОписаниеТиповС);
	ТЗЕксель.Колонки.Добавить("Количество",ОписаниеТиповЧ);
		
	Для сч = 1 По ВсегоСтрок Цикл
        Наименование    =СокрЛП(Док.Sheets(НомерЛиста).Cells(сч, 1).Value);	
		Количество =СокрЛП(Док.Sheets(НомерЛиста).Cells(сч, 2).Value);
		НовСтр = ТЗЕксель.Добавить();
		НовСтр.Наименование = Наименование;
		НовСтр.Количество = Количество;
	КонецЦикла;
	
	УдалитьФайлы(ВремХранилище, "*.sel");
	ИмяФайла = СтрЗаменить(ТекущаяДата(),":",".");
	ЗначениеВФайл(ВремХранилище+ИмяФайла+".sel",ТЗЕксель);
	ЭлементыФормы.НадписьФайл.Заголовок = "Файл Excel последний раз обновлялся: " + ИмяФайла;

При открытии:

ВремХранилище = КаталогВременныхФайлов() + "excel\";
	Файл = Новый Файл(ВремХранилище);
	Если Не Файл.Существует() Тогда
		СоздатьКаталог(ВремХранилище);
	Иначе
		МассивНайденных = НайтиФайлы(ВремХранилище, "*.sel"); 

		Если МассивНайденных.Количество() > 0 Тогда
        	ЭлементыФормы.НадписьФайл.Заголовок = "Файл Excel последний раз обновлялся: " + МассивНайденных[0].ИмяБезРасширения;  
			ТЗЕксель = ЗначениеИзФайла(ВремХранилище + МассивНайденных[0].Имя);
		Иначе
			ЭлементыФормы.НадписьФайл.Заголовок = "Файл 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    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
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Yashazz 4709 30.09.14 19:34 Сейчас в теме
Тю... Я-то понадеялся на ADODB...
2. Gureev 01.10.14 10:42 Сейчас в теме
ерунда какая-то... ладно нет АДОДВ, так можно хотя бы область выгрузить! а не считывать поячеечно документ.
а если колонок 100, а строк 100тыщ ? этот алгоритм будет работать вечно.

ничего быстрого. заголовок не соответствует содержимому.
4. John_d 5277 01.10.14 10:53 Сейчас в теме
(2) Gureev, смысл не в том как загрузить ексель в ТаблицуЗначений.
А в том, что загрузить можно всего один раз. А дальше пользоваться уже сохраненной ТаблицейЗначений.
3. ander_ 01.10.14 10:45 Сейчас в теме
хм, "(без загрузки в базу данных)"...
а это что?

Для сч = 1 По ВсегоСтрок Цикл
        Наименование    =СокрЛП(Док.Sheets(НомерЛиста).Cells(сч, 1).Value);    
        Количество =СокрЛП(Док.Sheets(НомерЛиста).Cells(сч, 2).Value);
        НовСтр = ТЗЕксель.Добавить();
        НовСтр.Наименование = Наименование;
        НовСтр.Количество = Количество;
 КонецЦикла;


или надо понимать фразу как "мы же в справочники/документы/регистры не сохраняем" ? :)
5. DrAku1a 1679 01.10.14 14:41 Сейчас в теме
Если XLSX - то его можно безо всяких драйверов читать (на ИС есть примеры прямого чтения) - это ж набор XML, обжатых в ZIP.
А вообще, статью правильнее назвать например "Кэширование читаемых Excel-файлов"...
6. Yashazz 4709 01.10.14 14:47 Сейчас в теме
А как тут минуснуть можно?
7. mihast 68 21.10.14 07:55 Сейчас в теме
Нда... Кэширование входного файла... Это ж только при разработке/отладке один и тот же файл по 20 раз загружаешь... Да и там у меня, например, основные косяки с тем, что из Excel в 1С что-то не так загрузилось, а значит надо файл по новой загружать...
Короче - не могу даже придумать когда ЭТО реально может быть нужно...
8. John_d 5277 21.10.14 10:02 Сейчас в теме
(7) mihast, Например когда типовая конфа и она такой должна остаться. Нужно написать дополнительную обработку которая часть данных берет из Excel.
Оставьте свое сообщение