Еще один способ загрузки из Екселя

07.04.10

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

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

 В екселе есть возможность выбрать только выделенные строки: Windows.Application.Selection.Value

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

Если ПолеВвода="" Тогда
    Предупреждение("Не выбран файл загрузки!");
       возврат;
КонецЕсли;
 ФС = Новый Файл(ПолеВвода);
 Если ФС.Существует()=Истина Тогда
    Попытка
         XLSОбъектОсновной = Новый COMОбъект("Excel.Application");
    Исключение
       Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");
       Возврат;
   КонецПопытки;
   
  XLSОбъектКниги = XLSОбъектОсновной.WorkBooks;
  
  Попытка
       XLSОбъект = XLSОбъектКниги.Open(ПолеВвода);
  Исключение
       Предупреждение("Невозможно открыть файл " + ПолеВвода + " !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");
       XLSОбъект.Application.Quit();
       Возврат;
  КонецПопытки;
  
  ExcellОткрыт=истина;
  XLSОбъект.Application.Caption = "Открыто из 1С";
  Лист = XLSОбъект.ActiveSheet;
  МассивЕкселя = XLSОбъект.Windows.Application.Selection.Value;
  Для СтрокаСДанными = 1  по МассивЕкселя.GetLength(1) цикл
   ОбработкаПрерыванияПользователя();
   Состояние("Обрабатывается строка № "+СтрокаСДанными);
   Если не ПустаяСтрока(МассивЕкселя.GetValue(2,СтрокаСДанными))тогда
    НоваяСтрока=ТабличнаяЧастьОС.Добавить();
    НоваяСтрока.Номер   = МассивЕкселя.GetValue(1,СтрокаСДанными);
    .............................................

    КонецЕсли;
 КонецЦикла;
     XLSОбъект.Application.Quit();
     ExcellОткрыт=Ложь;
     Предупреждение("Получение данных успешно завершено!");
 Иначе
     Возврат;
 КонецЕсли; 

 

См. также

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    210189    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    150732    365    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    31899    220    63    

117

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

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

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

4800 руб.

07.06.2022    15081    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    101397    296    173    

312

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    214936    923    886    

939
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. artem666 29 25.03.10 21:03 Сейчас в теме
Я открою тебе секрет, через ADO можно делать запрос по определенным ячейкам.
2. Vit aka proger 105 26.03.10 07:29 Сейчас в теме
artem666, а как ты определишь, какие ячейки нужны пользователю в каждом документе?
или ты заставишь их редактировать екселевский документ по нужному тебе шаблону?
3. gaglo 26.03.10 11:19 Сейчас в теме
... а почему бы не удалить ненужные строки в ексели, сохранить файл с новым именем и потом загрузить в 1С целиком?
4. Vit aka proger 105 26.03.10 12:41 Сейчас в теме
gaglo, обычно так и делают, но у меня была особая ситуация: были очень большие екселевские документы, на их основе создавалось много 1с документов, строки которые шли в отдельный 1с документ, как правило шли подряд, друг за другом, но были исключения.
Конечно, я не спорю, можно было создавать из 1 екселя десяток других, но это более трудоемкая работа, чем выделить нужные строки.
5. Vit aka proger 105 26.03.10 13:15 Сейчас в теме
я не утверждаю, что изложенный мной способ лучше стандартного
Для СтрокаСДанными=5 по Лист.Cells(1,1).SpecialCells(11).Row цикл,
мой способ немного отличается и кому-то будет полезен, я думаю.
6. gaglo 29.03.10 09:29 Сейчас в теме
(5) С трудом, но понял. Автор считает стандартным способом цикл получения по одному значению ячейки за одно обращение к COM-объекту. Для меня же давно стало стандартным способом получение COMSafeArray (личная благодарность от меня за это астральному духу по имени Шепот теней ;-]), только я пишу XXX.UsedRange.Value и получаю все значения с листа; а автор довел до меня, что можно написать XXX.Selection.Value, и получить только выделенные! Уговорил.
8. WellMaster 104 31.03.10 09:20 Сейчас в теме
9. пользователь 31.03.10 09:31
Сообщение было скрыто модератором.
...
10. imagoman 83 07.04.10 07:31 Сейчас в теме
текст только бы раскрасить, было бы читаемей
11. Vit aka proger 105 07.04.10 10:12 Сейчас в теме
(10) попытался, подскажите кто знает, как раскрасить текст не вручную
Оставьте свое сообщение