Как вытащить справочники из 1С через V83.COMConnector , Запрос в 1 С из EXCEL

[^D^ima]

Marchello
открой конфигуратор в 1с и у каждого документа\справочника смотри как называются реквизиты для обращения к ним.

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

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

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

Ты в начале код на 1с пиши и смотри что получается, затем сможешь без труда перенести в вба. Структуру я писал дл справочника и абстрактный запрос. + ты всегда можешь из 1С в эксель писать.

[Marchello]

Твой пример кода пытаюсь разобрать.

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 - 08.06.18, 07:04

[^D^ima]

Цитата Marchello @ 08.06.18, 07:02

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

Дергай запросом. Табличные части отдельные таблицы. Ещё раз - делай вначале в 1С, затем переноси в vba

[Marchello]

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

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

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

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

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

У нас сервачная версия на PostgreSQL.

[^D^ima]

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

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

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

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

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

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

тестовую базу можно к себе на локальный ПК поставить.

[kosten]

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

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

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

[Marchello]

Я имею ввиду протоколы какие на локалке можно юзать?

Если база на postgre, то я так понимаю что можно к ней законектиться стандартными средствами эксель?
Может ещё какие понимает язычки?
В инете ничего про пост и 1с не нашел. Только что серваки н нём делают.

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

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

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

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

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

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

Для того мы тут и есть.

Сообщение отредактировано: Marchello - 08.06.18, 11:01

[^D^ima]

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

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

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

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

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

Я не слышал.

[kosten]

Цитата ^D^ima @ 08.06.18, 11:01

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

Это еще и нарушает лицензионное соглашение.

[Marchello]

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

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

Не могу.
Доступа нет к конфигу.
Имел бы давно бы уже посмотрел.

[kosten]

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

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

Программно через метод Метаданные требуемого объекта. В СП почитай.

[Marchello]

Принтскринов наделал справочника.
Что-то работает, а что-то не работает с какого-то перепуга.
До строки СтранаРегистрации работает.
А она уже не работает.
Хотя в справочнике стоят на одном уровне.
С чем такое связано?
Я так подозреваю, что там ссылка стоит на СтраныМирв, но как обращаться к таким полям?

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 = Выборка.ТабличныеЧасти.КонтактнаяИнформация.НомерТелефона

Блин.
Вытащить-то надо фигню какуюто - несколько таблиц, а времени чую убью немерянно.

[kosten]

Цитата Marchello @ 09.06.18, 10:37

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

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

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

[Marchello]

ОУЕ!

А в табличнуючасть как залезть?
Cells(n, 9).Value = Выборка.ТабличныеЧасти.КонтактнаяИнформация.Город (имя и наименование не подходит)

[kosten]

Цитата Marchello @ 09.06.18, 12:01

А вот ТЧ надо перебирать, например, в цикле.