Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771677 Sat, 09 Jun 2018 12:27:33 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771677 Цитата Marchello @ 09.06.18, 12:01

А вот ТЧ надо перебирать, например, в цикле.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771674 Sat, 09 Jun 2018 12:01:16 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771674
А в табличнуючасть как залезть?
Cells(n, 9).Value = Выборка.ТабличныеЧасти.КонтактнаяИнформация.Город (имя и наименование не подходит)]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771672 Sat, 09 Jun 2018 11:29:51 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771672 Цитата Marchello @ 09.06.18, 10:37

Cells(n, 8).Value = Выборка.СтранаРегистрации

Попробуй написать так

Cells(n, 8).Value = Выборка.СтранаРегистрации.Наименование

]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771666 Sat, 09 Jun 2018 10:37:21 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771666 Что-то работает, а что-то не работает с какого-то перепуга.
До строки СтранаРегистрации работает.
А она уже не работает.
Хотя в справочнике стоят на одном уровне.
С чем такое связано?
Я так подозреваю, что там ссылка стоит на СтраныМирв, но как обращаться к таким полям?

9 строка тоже не работает.

Set Справочник = Base.Справочники.Контрагенты

Set Выборка = Справочник.Выбрать()

n = 1

While Выборка.следующий() = True

Cells(n, 1).Value = Выборка.Код

Cells(n, 2).Value = Выборка.ИНН

Cells(n, 3).Value = Выборка.КПП

Cells(n, 4).Value = Выборка.Наименование

Cells(n, 5).Value = Выборка.НаименованиеПолное

Cells(n, 6).Value = Выборка.ДатаРегистрации

Cells(n, 7).Value = Выборка.КодПоОкпо

Cells(n, 8).Value = Выборка.СтранаРегистрации

Cells(n, 9).Value = Выборка.ТабличныеЧасти.КонтактнаяИнформация.НомерТелефона

Блин.
Вытащить-то надо фигню какуюто - несколько таблиц, а времени чую убью немерянно.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771572 Fri, 08 Jun 2018 11:55:37 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771572 Цитата Marchello @ 08.06.18, 09:44

Можно ли как-то вывести имена полей или вообще всю структуру справочника?

Программно через метод Метаданные требуемого объекта. В СП почитай.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771571 Fri, 08 Jun 2018 11:37:57 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771571 Цитата ^D^ima @ 08.06.18, 10:13

открой конфигуратор и посмотри.

Не могу.
Доступа нет к конфигу.
Имел бы давно бы уже посмотрел.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771568 Fri, 08 Jun 2018 11:05:41 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771568 Цитата ^D^ima @ 08.06.18, 11:01

Но это делать крайне сложно, все таблицы поименованы так что не поймешь что за что отвечает.

Это еще и нарушает лицензионное соглашение.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771567 Fri, 08 Jun 2018 11:01:05 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771567 Цитата kosten @ 08.06.18, 10:17

Ты сейчас научишь плохому

Хорошо. Из БД. Но это делать крайне сложно, все таблицы поименованы так что не поймешь что за что отвечает.

Цитата Marchello @ 08.06.18, 10:55

Может ещё какие понимает язычки?

Я не слышал.]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771566 Fri, 08 Jun 2018 10:55:59 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771566
Если база на postgre, то я так понимаю что можно к ней законектиться стандартными средствами эксель?
Может ещё какие понимает язычки?
В инете ничего про пост и 1с не нашел. Только что серваки н нём делают.

Цитата ^D^ima @ 08.06.18, 10:13

2 Напрямую в БД

БД имеешь ввиду в обход конфига напрямую с таблами?

Добавлено 08.06.18, 10:59

Цитата kosten @ 08.06.18, 10:17

Ты сейчас научишь плохому >:(

Для того мы тут и есть. ;)]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771564 Fri, 08 Jun 2018 10:17:13 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771564 Цитата ^D^ima @ 08.06.18, 10:13

2 Напрямую в БД

Ты сейчас научишь плохому >:(]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771561 Fri, 08 Jun 2018 10:13:01 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771561 Цитата Marchello @ 08.06.18, 09:44

Кроме COM есть ещё варианты запросов делать в 1С?

1 Через веб сервисы
2 Напрямую в БД
3 Через файлы

Цитата Marchello @ 08.06.18, 09:44

Можно ли как-то вывести имена полей или вообще всю структуру справочника?

открой конфигуратор и посмотри.

тестовую базу можно к себе на локальный ПК поставить.]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771554 Fri, 08 Jun 2018 09:44:07 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771554 Можно ли как-то вывести имена полей или вообще всю структуру справочника?

Темповую базу пока не поставили, а в рабочую лезть пока страшновато.

Кроме COM есть ещё варианты запросов делать в 1С?

В 16 excel куча разных вариантов языков на основе которых можно сделать запрос и вывести в PQ.

Читал статейку сейчас, что com это чисто поддержка для старых версий и она через какое-то время наверно исчезнет.

У нас сервачная версия на PostgreSQL.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771546 Fri, 08 Jun 2018 08:02:43 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771546 Цитата Marchello @ 08.06.18, 07:02

(n, 5) как не корёжил из того, что в инете нарыл - ничё не подходит.

Дергай запросом. Табличные части отдельные таблицы. Ещё раз - делай вначале в 1С, затем переноси в vba]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771526 Fri, 08 Jun 2018 07:02:08 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771526

Public Sub v8connect()

Set Base = v8con.Connect(StrConnectBase)

Dim cntr As Object

Dim Справочник As Object

Dim Выборка As Object

Dim n As Integer

Set Справочник = Base.Справочники.Контрагенты

Set Выборка = Справочник.Выбрать()

n = 1

While Выборка.следующий() = True

Cells(n, 1).Value = Выборка.Код

Cells(n, 2).Value = Выборка.ИНН

Cells(n, 3).Value = Выборка.КПП

Cells(n, 4).Value = Выборка.Наименование

Cells(n, 5).Value = Выборка.ЮрЛица.Наименование

n = n + 1

Wend

End Sub

(n, 5) как не корёжил из того, что в инете нарыл - ничё не подходит.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771442 Thu, 07 Jun 2018 14:16:18 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771442 Marchello
открой конфигуратор в 1с и у каждого документа\справочника смотри как называются реквизиты для обращения к ним.

Цитата Marchello @ 07.06.18, 11:41

Например
Выборка.ФактическийАдрес
не работает

А какой запрос ты делаешь?

Ты в начале код на 1с пиши и смотри что получается, затем сможешь без труда перенести в вба. Структуру я писал дл справочника и абстрактный запрос. + ты всегда можешь из 1С в эксель писать.]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771416 Thu, 07 Jun 2018 11:41:26 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3771416 Побороли косяк с конектом.
Что было хз.
Делали перенастройку сети из-за смены провайдера и новый комп поставили.
Косяк исчез.

Пример Дмитрия работает.
Начал писать другие названия элементов справочника - ошибка.
Факт, юрадрес, телефон и прочее.

Может есть мегашпаргалка какаянить как обращаться к элементам 1С по структуре их расположения через vba?
Или как-то можно из инструментов внутри 1с понять.

В универсальном отчете есть структура, но что-то не получается по ней.
Гдето не правильно пишу.

Например

Выборка.ФактическийАдрес

не работает

Можно как-то перебрать названия элементов справочника, чтоб получить типа названий столбцов и путь, чтоб явно указывать (ИНН,Телефон,Email....)]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3759109 Mon, 05 Feb 2018 05:44:48 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3759109 Цитата kosten @ 03.02.18, 07:00

Цитата evGenius @ 03.02.18, 06:25

А вообще, это ошибка, что в коде везде я вижу имя базы "SRV-BUH", а на скриншоте "KRIZ-BUH"???

Я уже спрашивал об этом, но ответа не получил.

Касательно названия, то это я просто проверял ошибки подключения к реальной базе и не существующей.
Без разницы.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3759033 Sun, 04 Feb 2018 09:57:15 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3759033 Цитата evGenius @ 03.02.18, 06:25

А вообще, прощу прощения за оффтоп

:D]]> Bas VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758811 Sat, 03 Feb 2018 07:00:00 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758811 Цитата evGenius @ 03.02.18, 06:25

А вообще, это ошибка, что в коде везде я вижу имя базы "SRV-BUH", а на скриншоте "KRIZ-BUH"???

Я уже спрашивал об этом, но ответа не получил.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758810 Sat, 03 Feb 2018 06:25:26 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758810 Цитата Bas @ 02.02.18, 16:43

Я может и ошибаюсь. но... 1С это надстройка над MS SQL, так сказать "движок". И доступы они не могли ограничить на уровне Базы, только на уровне интерфейса 1С.

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

А вообще, прощу прощения за оффтоп :lol:

Добавлено 03.02.18, 06:31
А вообще, это ошибка, что в коде везде я вижу имя базы "SRV-BUH", а на скриншоте "KRIZ-BUH"???]]> evGenius VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758764 Fri, 02 Feb 2018 16:43:20 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758764 PS Надо изучить 1С , можкт работу найду :'(]]> Bas VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758690 Fri, 02 Feb 2018 09:27:17 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758690 Цитата MIF @ 01.02.18, 18:16

Блин, я WithEvents никогда не юзал.
Бум лопатить буквы.

Добавлено 02.02.18, 09:43

Цитата kosten @ 02.02.18, 09:18

В этом окне что-то ещё должно быть?]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758687 Fri, 02 Feb 2018 09:18:43 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758687 kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758686 Fri, 02 Feb 2018 09:14:20 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758686 ____________________2.png (, : 758) ]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758681 Fri, 02 Feb 2018 09:03:22 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758681 Цитата evGenius @ 01.02.18, 17:08

А в чем вообще исходная задача? Может проще из 1С соответствующие данные в Excel выгрузить, а не наоборот. Обычно так попроще.

Задача фулдуплекс с экселем сделать.
Сам фейс в екселе для продаж, закупок, логистов и возможно еще для склада.
Бухгалтерия и финансы в 1с остаются.

Добавлено 02.02.18, 09:04

Цитата kosten @ 02.02.18, 08:58

У мя открывается скрин.
МОжет глюкануло у тя?

Добавлено 02.02.18, 09:05

Цитата kosten @ 02.02.18, 08:58

Это та которая у меня стоит, клиентка.

Добавлено 02.02.18, 09:13

Цитата MIF @ 01.02.18, 18:16

Дебагер экселя или цеплять надо отдельной какойнить прогой?]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758680 Fri, 02 Feb 2018 08:58:30 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758680 Цитата Marchello @ 01.02.18, 11:06

На всех одна и та же.

Скриншот с ошибкой это из рабочего варианты, который ты пытаешься сделать?]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758677 Fri, 02 Feb 2018 08:54:50 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758677 Цитата kosten @ 01.02.18, 11:54

. Выложи сюда.

____________________2.png (, : 741) ]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758658 Fri, 02 Feb 2018 06:15:59 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758658 Цитата evGenius @ 01.02.18, 17:08

Можно через Метаданные() все имена реквизитов вытянуть.

будем знать. Спасибо]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758626 Thu, 01 Feb 2018 18:16:41 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758626 2. Проведи анализ переменной коннектора после инициализатора в дебаггере. Есть ли у обьекта аттрибут Error? Есть ли свойства, выбрасывающие исключения?
2. Попробуй раннее связывание. Работает ли инициализасия? Можно ли обьявить обьект коннекторa WithEvents? Ест. Ли у обьекта событие OnError?]]> MIF VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758622 Thu, 01 Feb 2018 17:08:04 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758622 Цитата ^D^ima @ 01.02.18, 06:09

так и проверь из 1с-ки на твоем ПК открывается ли база? если да и через сом откроется тогда.

Не факт, там отдельное право есть у роли, "Automation" называется.

Добавлено 01.02.18, 17:09

Цитата ^D^ima @ 31.01.18, 11:00

Тебе придется указывать конкретные реквизиты этих справочников

Можно через Метаданные() все имена реквизитов вытянуть.

Добавлено 01.02.18, 17:12

Цитата Marchello @ 30.01.18, 12:57

В общем задача вытащить все данные из:
Справочники: Номенклатура, Контрагенты.

А в чем вообще исходная задача? Может проще из 1С соответствующие данные в Excel выгрузить, а не наоборот. Обычно так попроще.]]> evGenius VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758547 Thu, 01 Feb 2018 11:54:52 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758547 Marchello, зайди в базу в режиме предприятия и сделай скрин окна с информацией о программе. Выложи сюда.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758532 Thu, 01 Feb 2018 11:06:15 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758532 Цитата ^D^ima @ 01.02.18, 08:45

На всех одна и та же.
____________________.png (, : 754) ]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758504 Thu, 01 Feb 2018 08:45:12 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758504

Set trade = connector.Connect("Srvr=""1c8server"";Ref=""SRV-BUH"";")

Set trade = connector.Connect("Srvr=" & Serv & ";" & "Ref=" & Bs & ";" & "Usr=" & User & ";" & "Pwd=" & Pass)

Set trade = connector.Connect("Srvr=" & Serv & ";" & "Ref=" & Bs & ";" & "Usr=" & User & ";" & "Pwd=" & Pass & ";")

]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758501 Thu, 01 Feb 2018 07:50:22 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758501 Цитата ^D^ima @ 01.02.18, 07:06

нет, это сам конект.
там два SETa подключения к базе.

Добавлено 01.02.18, 07:53

Цитата kosten @ 01.02.18, 07:13

у меня такого нет.
С базой 83 идет.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758498 Thu, 01 Feb 2018 07:34:29 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758498 Цитата ^D^ima @ 01.02.18, 07:27

Кстати если на серваке версия 1С сервера из дистрибутива 8,3,10,2560, то V82.COMConnector подключится?

Может ругнуться на несовместимость версий клиента и сервера.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758494 Thu, 01 Feb 2018 07:27:42 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758494 Цитата kosten @ 01.02.18, 07:13

может V82.COMConnector попробовать?

Кстати если на серваке версия 1С сервера из дистрибутива 8,3,10,2560, то V82.COMConnector подключится?]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758492 Thu, 01 Feb 2018 07:13:30 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758492 Цитата

CreateObject("V83.COMConnector")

может V82.COMConnector попробовать?]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758490 Thu, 01 Feb 2018 07:06:07 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758490 Цитата Marchello @ 31.01.18, 13:38

На первом set дольше висит но выдаёт ту же ошибку.

это на этом что-ли?

Цитата Marchello @ 31.01.18, 13:38

Set connector = CreateObject("V83.COMConnector")

Если да, то как я понимаю он даже до коннекта к базе не доходит]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758478 Thu, 01 Feb 2018 06:13:58 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758478 Цитата ^D^ima @ 01.02.18, 06:09

если да и через сом откроется тогда.

На компе открывается, а через эксель нет.
Я там выше рефер сфоткал, может чего не хватает?
Может ли nod32 коцать соединение?]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758477 Thu, 01 Feb 2018 06:09:15 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758477 Цитата Marchello @ 01.02.18, 05:25

а через два 1с.

так и проверь из 1с-ки на твоем ПК открывается ли база? если да и через сом откроется тогда.]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758470 Thu, 01 Feb 2018 05:25:57 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758470 Цитата ^D^ima @ 31.01.18, 14:26

да.
в реферах он активен и запуск проходит без ошибки.
А на подключ к базе ругается.
Может ещё что-то надо подгрузить в рефах?
А может действительно что-то с правами.
Я в глубинке нынче сижу, народ темный, боится всего нового для них.
Настолько все ограничено, что я месяц боролся за то чтоб мне сделали возможность просмотра последних документов.
А то и их не видно.
Через месяц эксель поставили, а через два 1с.
Вот теперь следующий этап борьбы со страхами.

Добавлено 01.02.18, 05:28

Цитата MIF @ 31.01.18, 14:19

фаерволе

Полная переустановка клиента?
____________________1.png (, : 745) ]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758397 Wed, 31 Jan 2018 14:26:33 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758397 Marchello
Прости за не скоромный вопрос, но сам сам ком коннектор от 1с у тебя установлен?]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758395 Wed, 31 Jan 2018 14:19:54 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758395 MIF VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758394 Wed, 31 Jan 2018 14:13:05 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758394 Цитата MIF @ 31.01.18, 14:07

Он не знает толком сам 1с, у нас офиц поддержка.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758392 Wed, 31 Jan 2018 14:07:44 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758392 MIF VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758391 Wed, 31 Jan 2018 14:02:17 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758391 Цитата kosten @ 31.01.18, 13:14

Благодарю.

Цитата ^D^ima @ 31.01.18, 13:34

Благодарю, то что надо.

Осталось только подключиться. :wall:

Добавлено 31.01.18, 14:07

Цитата ^D^ima @ 31.01.18, 13:54

Алгоритм какой использовать?

Открыть локального клиента, а потом конектиться из экселя к серваку без указания паса и логина?
Или както ещё?]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758390 Wed, 31 Jan 2018 13:54:56 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758390 Цитата Marchello @ 31.01.18, 13:38

Как проверить что ее хоть видит V83 при конекте?

Ты в 1С базу-то открываешь?

Добавлено 31.01.18, 13:56
советую что-бы идти дальше локально поставить копию к себе файловую базу.]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758389 Wed, 31 Jan 2018 13:38:30 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758389 Цитата ^D^ima @ 31.01.18, 12:51

Все равно не хочет.
На первом set дольше висит но выдаёт ту же ошибку.
Может где что-то не так пишу?
Визуально базу на серваке не видно.
Может быть из-за этого?
Как проверить что ее хоть видит V83 при конекте?
Не понятно то ли база его отпихивает, то ли не видит вообще его.
У нас стандартная версия, может быть отключена внешняя обработка?

Sub Excel_to_trade()

Dim cntr As Object

Dim trade As Object

Set connector = CreateObject("V83.COMConnector")

Serv = "1c8server"

Bs = "SRV-BUH"

User = "Ìàð÷åâñêèé Ä. Å."

Pass = vbNullString

Set trade = connector.Connect("Srvr=""1c8server"";Ref=""SRV-BUH"";")

Set trade = connector.Connect("Srvr=" & Serv & ";" & "Ref=" & Bs & ";" & "Usr=" & User & ";" & "Pwd=" & Pass)

Set trade = connector.Connect("Srvr=" & Serv & ";" & "Ref=" & Bs & ";" & "Usr=" & User & ";" & "Pwd=" & Pass & ";")

End Sub

]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758388 Wed, 31 Jan 2018 13:34:26 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758388

Sub Кнопка1_Щелчок()

Dim cntr As Object

Dim Buh As Object

Dim Контрагенты As Object

Dim Выборка As Object

Dim Запрос As Object

Dim ВыборкаЗапрос As Object

Set cntr = CreateObject("V83.COMConnector")

Set Buh = cntr.Connect("File=""C:\TestBase\Каврецкая"";")

Set Контрагенты = Buh.Справочники.Контрагенты

Set Выборка = Контрагенты.Выбрать()

n = 1

While Выборка.следующий() = True

Cells(n, 1).Value = Выборка.Наименование

Cells(n, 2).Value = Выборка.ИНН

n = n + 1

Wend

Set Запрос = Buh.NewObject("Запрос")

Запрос.Текст = "ВЫБРАТЬ Номенклатура.Наименование КАК Наименование ИЗ Справочник.Номенклатура КАК Номенклатура ГДЕ Номенклатура.Код = &Код"

Запрос.УстановитьПараметр "Код", "00-00000291"

Set ВыборкаЗапрос = Запрос.Выполнить.Выбрать()

While ВыборкаЗапрос.следующий() = True

Cells(1, 3).Value = Выборка.Наименование

Wend

End Sub

]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758386 Wed, 31 Jan 2018 13:14:32 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758386 Цитата Marchello @ 31.01.18, 12:46

Мне примерчик нужен как именно из ёкселя обращаться к таблам и запросы делать.

Вот пример для 1С. Сам адаптируешь для экселя.]]> kosten VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758381 Wed, 31 Jan 2018 12:51:47 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758381 Цитата Marchello @ 31.01.18, 12:46

Работает через постгри.

Не важно.
Как в 1с-ке строка подключения, то и сюда пихай.В списке баз внизу строка.

Добавлено 31.01.18, 12:52

Цитата Marchello @ 31.01.18, 12:46

Мне примерчик нужен как именно из ёкселя обращаться к таблам и запросы делать.

выше примерчик]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758376 Wed, 31 Jan 2018 12:46:35 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758376 Цитата ^D^ima @ 31.01.18, 11:00

Это у тебя реально там база лежит, или ты коннектишся к экзешнику? :D

Хороший вопрос!
Админа вымучил.
Короче база лежит на серваке, у юзеров клиенты.
Работает через постгри.

То что реквизиты указывать это я понимаю.
Мне примерчик нужен как именно из ёкселя обращаться к таблам и запросы делать.
Дальше уже сам буду разбираться.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758364 Wed, 31 Jan 2018 11:00:29 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758364 Цитата Marchello @ 30.01.18, 12:57

File=""C:\Program Files\1cv8"

Это у тебя реально там база лежит, или ты коннектишся к экзешнику? :D

Добавлено 31.01.18, 11:47

Sub Кнопка1_Щелчок()

Dim cntr As Object

Dim Buh As Object

Dim Контрагенты As Object

Dim Выборка As Object

Dim n As Integer

Dim Count As Integer

Set cntr = CreateObject("V83.COMConnector")

Set Buh = cntr.Connect("File=""C:\TestBase\Каврецкая"";")

Set Контрагенты = Buh.Справочники.Контрагенты

Set Выборка = Контрагенты.Выбрать()

n = 1

While Выборка.следующий() = True

Cells(n, 1).Value = Выборка.Наименование

Cells(n, 2).Value = Выборка.ИНН

n = n + 1

Wend

End Sub

Добавлено 31.01.18, 11:50

Цитата Marchello @ 30.01.18, 12:57

вытащить все данные из:
Справочники: Номенклатура, Контрагенты.

Тебе придется указывать конкретные реквизиты этих справочников]]> ^D^ima VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758328 Wed, 31 Jan 2018 05:29:11 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758328 Цитата Bas @ 30.01.18, 23:41

Цитата Marchello @ 30.01.18, 12:57

В общем задача вытащить все данные из:
Справочники: Номенклатура, Контрагенты.

Версия 1С какая?

1С:Предприятие 8.3 (8.3.10.2650)
Бухгалтерия предприятия, редакция 3.0 (3.0.57.17)]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758324 Tue, 30 Jan 2018 23:41:19 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758324 Цитата Marchello @ 30.01.18, 12:57

В общем задача вытащить все данные из:
Справочники: Номенклатура, Контрагенты.

Версия 1С какая?]]> Bas VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758321 Tue, 30 Jan 2018 20:46:28 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758321 основанный на COM к одинэске, вот модуль.
ПЫСЫ. Программирование тогда только начинал постигать, т.ч. говнокод присутствует в огромных дозах, типа утечек памяти и глобальных переменных,
но всё что тебе надо и даже больше чем надо там есть.
ole1c.pas (, : 394) ]]> Gonarh VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758307 Tue, 30 Jan 2018 18:04:36 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758307 У меня нет ничего вышеперечисленного, включая интерес.
И кто из нас должен экспериментировать и читать маны? Или хотя бы смотреть в окно OB и на сообщения об ошибках?]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758294 Tue, 30 Jan 2018 14:37:00 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758294 Цитата Akina @ 30.01.18, 13:19

https://forum.infostart.ru/forum9/topic141309/
См. "// Пример на языке MS Visual Basic". А использовать - как обычный рекордсет, с поправкой на имена его методов и свойств.

На последней строке выдаёт ошибку.
С чем это может быть связано?
Может какой реф ему ещё нать?

Добавлено 30.01.18, 14:40
Может админ что перекрыл или в 1с?
Я первый кто конектится так у нас.]]> Marchello VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758280 Tue, 30 Jan 2018 13:19:49 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758280 https://forum.infostart.ru/forum9/topic141309/
См. "// Пример на языке MS Visual Basic". А использовать - как обычный рекордсет, с поправкой на имена его методов и свойств.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758278 Tue, 30 Jan 2018 12:57:45 +0000 Как вытащить справочники из 1С через V83.COMConnector https://forum.sources.ru/index.php?showtopic=412067&view=findpost&p=3758278 Опыта в 1с нет, тч извиняйте.
Конектюсь через СОМ.

В общем задача вытащить все данные из:
Справочники: Номенклатура, Контрагенты.

Можно ли их вытащить сразу двумерной таблой?
Если нет, то как построчно вывести?

Dim cntr As Object

Dim trade As Object

Dim Òîâàð As Object

Set cntr = CreateObject("V83.COMConnector")

Set trade = cntr.Connect("File=""C:\Program Filescv8""; Usr=""Пупкин"";")

На этом мои познания закончились, т.к. дальше 1С код идет. :wall:

Если можно примеры вывода и ввода.

Заранее весьма благодарен.]]> Marchello VB for Application