40
Рейтинг

AzagTot



  •   Регистрация: 11.08.2009 (14 лет назад)

  •   Был(а) на сайте: 25.04.2024

Друзья
  • Дмитрий Малышев
  • Евгений Комиссаров
  • Сергей
  • Дмитрий Петров
  • Андрей Карпов
  • Андрей Волин
  • Александр Окулов
Подписчики 7
Группы

Премиум-аккаунт 2017 (Автоматизатор) (до 30.04.2025 14:02:00)

Карта покупателя SILVER

IE 2017 Участник

Участник Meetup

Рейтинг 40

Выгрузка Таблицы значений из 1С 8 в Excel с помощью MS ADO
+41 –

Статья Системный администратор Программист Платформа 1С v8.3 Конфигурации 1cv8 Windows Бесплатно (free) Нет файла Загрузка и выгрузка в Excel

Функции для выгрузки Таблицы значений из 1С 8 в таблицу Excel с использованием объектов Microsoft ActiveX Data Objects (ADO) и Microsoft ActiveX Data Objects Extensions (ADOX).

10.06.2013    27690    AzagTot    17       

41
Смотреть все

Комментарии

Публикации › Групповое создание актов сверки "Бухгалтерии предприятия" ред. 3.0 › #10 11.07.23 13:37
Лучше все ошибки за один раз выявлять:

ЕстьОшибки = Ложь;
Если НЕ ЗначениеЗаполнено(Организация) Тогда
ЕстьОшибки = Истина;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не выбрана организация!");
КонецЕсли;
Если НЕ ЗначениеЗаполнено(НачПериода) Тогда
ЕстьОшибки = Истина;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не выбрана дата начала периода сверки расчетов!");
КонецЕсли;
Если НЕ ЗначениеЗаполнено(КонПериода) Тогда
ЕстьОшибки = Истина;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не выбрана дата конца периода сверки расчетов!");
КонецЕсли;
Если КонПериода < НачПериода Тогда
ЕстьОшибки = Истина;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Неверно задан период сверки расчетов!");
КонецЕсли;
Если ЕстьОшибки Тогда
Возврат;
КонецЕсли;
Admin › Загрузка ОКОФ ошибки › #8 10.01.23 15:49
На всей линейке 8.3.22 редактирование объектов XDTO в принципе перестало работать.
Каждый раз выдаёт ошибку несовпадения фабрики XDTO, даже если фабрика была создана по одной и той же схеме.
БУ › Проверка корректности адресов физлиц в ЗУП 3.1 › #13 31.03.22 16:45
Коллеги, какие идеи есть по автоматическому исправлению некорректных адресов?
Admin › Ограничение доступа к 70 счету для БП 3.0 › #20 28.09.21 11:30
На ERP будет работать данное расширение ?
Новости › Infostart Event 2021: 11-12 ноября встречаемся в Москве › #8 03.06.21 18:06
(7) А вы финдира с собой зовите, тогда и средства найдутся)
Dev › Перенос остатков на склад. БП 3.0 › #36 14.04.21 20:54
Спасибо за обработку! Помогла навести порядок, когда включили складской учёт и куча остатков на "ёжиках" оказалась)
Admin › Ошибка при создании объекта V83.COMConnector, или класс не зарегистрирован › #3 23.01.21 10:40
У меня с регистрацией COMConnector никогда не было проблем.
1.Нужно запускать консоль, в которой выполняется команда регистрации dll, с правами админа.
2.Выбрать правильную версию (разрядность) regsvr, соответствующую разрядности установленной платформы 1С.
Dev › Отбор строк динамического списка › #32 24.09.20 1:39
А точнее так:

Код
СхемаКД     = Элементы.СписокНаФорме.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
   НастройкиКД = Элементы.СписокНаФорме.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
   
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
   МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКД, НастройкиКД,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
   
   ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
   ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
   
   Результат = Новый ТаблицаЗначений;
   
   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
   ПроцессорВывода.УстановитьОбъект(Результат);
   ПроцессорВывода.Вывести(ПроцессорКомпоновки);
Dev › Отбор строк динамического списка › #31 24.09.20 1:01
В модуле формы:

Код
СхемаКД = Элементы.СписокНаФорме.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
   НастройкиКД = Элементы.СписокНаФорме.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
   
   КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
   МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКД, НастройкиКД);
   
   ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
   ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
   
   ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
   Результат = ПроцессорВывода.Вывести(ПроцессорКомпоновки);

Результат - это дерево или таблица значений, сформированная по данным динамического списка с текущими настройками и отборами.
Dev › Сходство Джаро - Винклера. Нечеткое сравнение строк › #11 03.03.20 17:21
Отличная работа! Спасибо!
Добавьте файл в раздел "Скачать файлы" за SM.
Уверен, что многие в качестве благодарности скачают)