На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ:    user posted image Общие вопросы    user posted image Особенности VBA-кода    user posted image Оптимизация VBA-кода    user posted image Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF
  
> Как вытащить справочники из 1С через V83.COMConnector , Запрос в 1 С из EXCEL
    Всем здравия!
    Опыта в 1с нет, тч извиняйте.
    Конектюсь через СОМ.

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

    Можно ли их вытащить сразу двумерной таблой?
    Если нет, то как построчно вывести?
    ExpandedWrap disabled
          Dim cntr As Object
          Dim trade As Object
          Dim Òîâàð As Object
          Set cntr = CreateObject("V83.COMConnector")
          Set trade = cntr.Connect("File=""C:\Program Files\1cv8""; Usr=""Пупкин"";")

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

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

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

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

        Добавлено
        Может админ что перекрыл или в 1с?
        Я первый кто конектится так у нас.
        Сообщение отредактировано: Marchello -

        Прикреплённый файлПрикреплённый файл____________________.png (11,85 Кбайт, скачиваний: 717)
          У тебя есть и 1С, и коннектор, и ещё много чего.
          У меня нет ничего вышеперечисленного, включая интерес.
          И кто из нас должен экспериментировать и читать маны? Или хотя бы смотреть в окно OB и на сообщения об ошибках?
            Покопался в загашниках 12-летней давности, накопал компонент для делфей как раз
            основанный на COM к одинэске, вот модуль.
            ПЫСЫ. Программирование тогда только начинал постигать, т.ч. говнокод присутствует в огромных дозах, типа утечек памяти и глобальных переменных,
            но всё что тебе надо и даже больше чем надо там есть.
            Прикреплённый файлПрикреплённый файлole1c.pas (27,46 Кбайт, скачиваний: 304)
              Цитата Marchello @
              В общем задача вытащить все данные из:
              Справочники: Номенклатура, Контрагенты.

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

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

                1С:Предприятие 8.3 (8.3.10.2650)
                Бухгалтерия предприятия, редакция 3.0 (3.0.57.17)
                  Цитата Marchello @
                  File=""C:\Program Files\1cv8"

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

                  Добавлено
                  ExpandedWrap disabled
                    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


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

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


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


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


                    То что реквизиты указывать это я понимаю.
                    Мне примерчик нужен как именно из ёкселя обращаться к таблам и запросы делать.
                    Дальше уже сам буду разбираться.
                    Сообщение отредактировано: Marchello -
                      Цитата Marchello @
                      Работает через постгри.

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

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

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

                        Вот пример для 1С. Сам адаптируешь для экселя.
                          Добавил в пример запрос
                          ExpandedWrap disabled
                            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 @

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

                            ExpandedWrap disabled
                              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 @
                              Как проверить что ее хоть видит V83 при конекте?

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

                              Добавлено
                              советую что-бы идти дальше локально поставить копию к себе файловую базу.
                                Цитата kosten @

                                Благодарю.
                                Цитата ^D^ima @

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

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

                                Добавлено
                                Цитата ^D^ima @

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

                                Открыть локального клиента, а потом конектиться из экселя к серваку без указания паса и логина?
                                Или както ещё?
                                  попроси админа установить и сконфигурировать 1С клиента на твоем компьютере. Эта акция поможет найти потерянные компоненты и фиксануть некорректные сеттигнги компьютера ( типа неоткрытого порта в фаерволе).
                                    Цитата MIF @

                                    Он не знает толком сам 1с, у нас офиц поддержка.
                                      Неважно, зовут его Админ или Офисиальная Поддержка. Важно, что он умеет устанавливать и конфигурировать клиеттскую
                                        Marchello
                                        Прости за не скоромный вопрос, но сам сам ком коннектор от 1с у тебя установлен?
                                          Цитата ^D^ima @


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

                                          Добавлено
                                          Цитата MIF @
                                          фаерволе

                                          Полная переустановка клиента?
                                          Прикреплённый файлПрикреплённый файл____________________1.png (12,59 Кбайт, скачиваний: 676)
                                          Сообщение отредактировано: Marchello -
                                            Цитата Marchello @
                                            а через два 1с.

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

                                              На компе открывается, а через эксель нет.
                                              Я там выше рефер сфоткал, может чего не хватает?
                                              Может ли nod32 коцать соединение?
                                              Сообщение отредактировано: Marchello -
                                                Цитата Marchello @
                                                На первом set дольше висит но выдаёт ту же ошибку.

                                                это на этом что-ли?
                                                Цитата Marchello @
                                                Set connector = CreateObject("V83.COMConnector")


                                                Если да, то как я понимаю он даже до коннекта к базе не доходит
                                                  Цитата
                                                  CreateObject("V83.COMConnector")

                                                  может V82.COMConnector попробовать?
                                                    Цитата kosten @
                                                    может V82.COMConnector попробовать?

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

                                                      Может ругнуться на несовместимость версий клиента и сервера.
                                                        Цитата ^D^ima @

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

                                                        Добавлено
                                                        Цитата kosten @

                                                        у меня такого нет.
                                                        С базой 83 идет.
                                                          Так на какой строке и какая ошибка?
                                                          ExpandedWrap disabled
                                                                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 @

                                                            На всех одна и та же.
                                                            Прикреплённый файлПрикреплённый файл____________________.png (11,85 Кбайт, скачиваний: 685)
                                                              Marchello, зайди в базу в режиме предприятия и сделай скрин окна с информацией о программе. Выложи сюда.
                                                                Цитата ^D^ima @
                                                                так и проверь из 1с-ки на твоем ПК открывается ли база? если да и через сом откроется тогда.

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

                                                                Добавлено
                                                                Цитата ^D^ima @
                                                                Тебе придется указывать конкретные реквизиты этих справочников

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

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

                                                                А в чем вообще исходная задача? Может проще из 1С соответствующие данные в Excel выгрузить, а не наоборот. Обычно так попроще.
                                                                  1. Совпадают ли строки строки соединения в клиенте и экселе?
                                                                  2. Проведи анализ переменной коннектора после инициализатора в дебаггере. Есть ли у обьекта аттрибут Error? Есть ли свойства, выбрасывающие исключения?
                                                                  2. Попробуй раннее связывание. Работает ли инициализасия? Можно ли обьявить обьект коннекторa WithEvents? Ест. Ли у обьекта событие OnError?
                                                                  Сообщение отредактировано: MIF -
                                                                    Цитата evGenius @
                                                                    Можно через Метаданные() все имена реквизитов вытянуть.

                                                                    будем знать. Спасибо
                                                                      Цитата kosten @
                                                                      . Выложи сюда.

                                                                      Прикреплённый файлПрикреплённый файл____________________2.png (24,79 Кбайт, скачиваний: 654)
                                                                        Цитата Marchello @
                                                                        На всех одна и та же.

                                                                        Скриншот с ошибкой это из рабочего варианты, который ты пытаешься сделать?
                                                                          Цитата evGenius @

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

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

                                                                          Добавлено
                                                                          Цитата kosten @

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

                                                                          Добавлено
                                                                          Цитата kosten @

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

                                                                          Добавлено
                                                                          Цитата MIF @

                                                                          Дебагер экселя или цеплять надо отдельной какойнить прогой?
                                                                            Еще разок скрин
                                                                            Прикреплённый файлПрикреплённый файл____________________2.png (24,79 Кбайт, скачиваний: 687)
                                                                              Ни одной строки подключения к базе из скрина я так и не увидел.
                                                                                Цитата MIF @

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

                                                                                Добавлено
                                                                                Цитата kosten @

                                                                                В этом окне что-то ещё должно быть?
                                                                                  Я может и ошибаюсь. но... 1С это надстройка над MS SQL, так сказать "движок". И доступы они не могли ограничить на уровне Базы, только на уровне интерфейса 1С.
                                                                                  PS Надо изучить 1С , можкт работу найду :'(
                                                                                    Цитата Bas @
                                                                                    Я может и ошибаюсь. но... 1С это надстройка над MS SQL, так сказать "движок". И доступы они не могли ограничить на уровне Базы, только на уровне интерфейса 1С.

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

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

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

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

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

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

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

                                                                                          Касательно названия, то это я просто проверял ошибки подключения к реальной базе и не существующей.
                                                                                          Без разницы.
                                                                                            Всем здравия!
                                                                                            Побороли косяк с конектом.
                                                                                            Что было хз.
                                                                                            Делали перенастройку сети из-за смены провайдера и новый комп поставили.
                                                                                            Косяк исчез.

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

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

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

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

                                                                                            Можно как-то перебрать названия элементов справочника, чтоб получить типа названий столбцов и путь, чтоб явно указывать (ИНН,Телефон,Email....)
                                                                                              Marchello
                                                                                              открой конфигуратор в 1с и у каждого документа\справочника смотри как называются реквизиты для обращения к ним.

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

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

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

                                                                                                ExpandedWrap disabled
                                                                                                  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 -
                                                                                                  Цитата Marchello @
                                                                                                  (n, 5) как не корёжил из того, что в инете нарыл - ничё не подходит.

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

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

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

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

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

                                                                                                    У нас сервачная версия на PostgreSQL.
                                                                                                      Цитата Marchello @
                                                                                                      Кроме COM есть ещё варианты запросов делать в 1С?

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


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

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

                                                                                                      тестовую базу можно к себе на локальный ПК поставить.
                                                                                                        Цитата ^D^ima @
                                                                                                        2 Напрямую в БД

                                                                                                        Ты сейчас научишь плохому >:(
                                                                                                          Я имею ввиду протоколы какие на локалке можно юзать?

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

                                                                                                          Цитата ^D^ima @
                                                                                                          2 Напрямую в БД

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

                                                                                                          Добавлено
                                                                                                          Цитата kosten @
                                                                                                          Ты сейчас научишь плохому >:(

                                                                                                          Для того мы тут и есть. ;)
                                                                                                          Сообщение отредактировано: Marchello -
                                                                                                            Цитата kosten @
                                                                                                            Ты сейчас научишь плохому

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

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

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

                                                                                                              Это еще и нарушает лицензионное соглашение.
                                                                                                                Цитата ^D^ima @
                                                                                                                открой конфигуратор и посмотри.

                                                                                                                Не могу.
                                                                                                                Доступа нет к конфигу.
                                                                                                                Имел бы давно бы уже посмотрел.
                                                                                                                  Цитата Marchello @
                                                                                                                  Можно ли как-то вывести имена полей или вообще всю структуру справочника?

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

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

                                                                                                                    ExpandedWrap disabled
                                                                                                                      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 @
                                                                                                                      Cells(n, 8).Value = Выборка.СтранаРегистрации

                                                                                                                      Попробуй написать так
                                                                                                                      ExpandedWrap disabled
                                                                                                                        Cells(n, 8).Value = Выборка.СтранаРегистрации.Наименование
                                                                                                                        ОУЕ! :rose:

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

                                                                                                                          А вот ТЧ надо перебирать, например, в цикле.
                                                                                                                          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                                                                                                                          0 пользователей:


                                                                                                                          Рейтинг@Mail.ru
                                                                                                                          [ Script execution time: 0,1210 ]   [ 29 queries used ]   [ Generated: 28.03.24, 18:12 GMT ]