Скрипт импорта XLS через ADO DB
подойдет скрипт на VBA или на 1с 7.7
исходные данные
через ADO DB в 1С 7.7 импортируется построчно большой прайс лист (35К строк).
задача:
по ходу импорта в этом XLS прайсе, заполнять колонку "статус" (изначально её в прайсе нет)
т.е.
1. открыли файл
2. добавили крайней справа колонку "статус" (если в прайсе 10 колонок, то статус будет 11-ой)
3. импортируем построчно, результат импорта пишем в колонку "статус" (для каждой строки в прайсе)
4. закрыли файл, сохранив изменения.
сам парсинг прайса делать не надо, нужно сделать чтобы писалась и сохранялась инфа в XLS файле.
пример скрипта, который пишет, но данные не сохраняются в файле после закрытия Recordset.
Connection = СоздатьОбъект("ADODB.Connection");
файл_прайс="d:\1.xls";
СтрокаПодключения = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+СокрЛП(файл_прайс)+";Extended Properties=""Excel 12.0 Xml;Mode=ReadWrite;ReadOnly=0;HDR=No;IMEX=1;""";
Connection.Open(СтрокаПодключения);
rs = CreateObject("ADODB.Recordset");
rs.ActiveConnection = Connection;
rs.CursorLocation = 3;
rs.CursorType = 3;
rs.LockType = 4;
cat = СоздатьОбъект("ADOX.Catalog");
cat.ActiveConnection = Connection;
rs.Source = "Select * from ["+cat.Tables(0).Name+"]";
rs.Open();
Пока Число(rs.EOF()) = 0 цикл
rs.Fields(1).Value=111;
rs.Update();
rs.MoveNext();
КонецЦикла;
rs.Close()
-
Если не обязательно через ado, то можно сделать легко. Но скорость чтения будет гораздо ниже.. На большом файле будет ощутимо. Сегодня ближе к вечеру поэкспериментирую с ado , вроде когда-то делал подобное.
-
ado как раз для скорости и используется
поэтому нужно него через него
-
спасибо, буду ждать
-
спасибо, буду ждать
-
Наш МХ позволяет быстро работать с очень большими файлами и сложной логикой. Предлагаю вне конкурса и бесплатно сделать Ваш заказ (как запасной дополнительный вариант). Нам важно протестировать свой инструмент на реальных задачах. Нужен образец или весь файл.
-
MX это что ?
-
Виртуальный ексцел, интегрированный в сервер, и отображаемый пользователям как обычный ексцел. Возможности и скорость на порядок выше.
Поэтому легко тянет миллионы строк и любую логику. На нем мы в Латвии сделали и продаем аналог российской 1с-бух (но бухучет заточен под еврорегулы). Хотелось бы раскрутить что нибудь и в СССР. Свободно на гитхабе MX.
-
понятно, спасибо
мне это не подойдет, потому что у меня стоит 1с и надо в ней импорт проводить
слишком сложно в данном случае
-
Здравствуйте,
перед rs.close, надо сохранить рекордсет в файл.на VBA: .Range("A1").CopyFromRecordset rs
-
попробую спасибо
-
Актуальные фриланс-проекты в категории Десктопные приложения
Модификация в работе эмулятора
2000 UAH
Здравствуйте. Я скачал с Интернета эмулятор игрового автомата gaminator cf final. Он мне очень понравился, но там есть недочёты. Есть админ панель, но она открывается свободно, но не закрывается вообще. Закрывается только вместе с приложением. А данные, после изменения в админ… Десктопные приложения ∙ 22 часа 34 минуты назад ∙ 10 ставок |
Разработка кастомного ПО (Android-приложения + CMS) для киосков самообслуживания SUNMI K2 (Фастфуд)
1000 UAH
Ищем опытную команду или Middle/Senior Android-разработчика (возможно, с Full-stack навыками) для создания собственного программного обеспечения для киосков самообслуживания сети заведений быстрого питания. Сейчас наши терминалы работают на базе готового облачного интегратора,… CMS, Десктопные приложения ∙ 5 дней 18 часов назад ∙ 22 ставки |
Нужно сделать миграцию текущей рабочей программы с foxpro на C#Всем привет! у нас есть программа на foxpro (в ней есть несколько модулей, программа для учета), есть исходники программы, при острой необходимости можно проконсультироваться с людьми по поддержке текущей программы что нужно сделать: 1. аналитику, что и как работает, составить… C#, Десктопные приложения ∙ 11 дней 2 часа назад ∙ 19 ставок |
ПО Мастер-программа «KONSTRUCTOR»
186 007 UAH
Мы ищем очень опытного C++ разработчика для модернизации существующего ПО (мастер-программы). Программа отвечает за создание производного ПО представляющего аудио-визуальные сеансы психологической коррекции. Текущая версия написана на чистом WinAPI (Visual Studio 2019/2022).… C и C++, Десктопные приложения ∙ 13 дней 14 часов назад ∙ 20 ставок |
Настройка ODOO Enterprise для строительства
Необхідно побудувати картки та налаштувати зручний імпорт, інтеграцію з ЕДО і загалом Workflow ODOO Компанія займається системною інтеграцією: маємо поставки обладнання В2В або з прямою маржинальністю, або з рібейтами в подальшому. Крім того, ведемо будівельні роботи на об'єктах… Автоматизация управления предприятием, Десктопные приложения ∙ 13 дней 23 часа назад ∙ 7 ставок |
Киев