Здравствуйте,
В экселе исполняю макро суть которого сводится к следующему:
1. Вызывается 1С (V82.ComConnector)
2. В 1С вызывается функция которая делает необходимые запросы и возвращает заполненную таблицу значений.
3. Создаю объект в макросе и присваиваю ему ссылку на полученную ТЗ.

Dim MyTZ As Object

Set MyTZ = V82base.МойОбщийМодуль.МояФункция

Каким образом можно перебрать строки полученной таблицы значений? Или просто обратиться к нужной ячейке таблицы значений? (Если это вообще возможно).
Спасибо.

(0) то, что в VBA нет таблицы значений, разве не очевидно ?

(0) А не проще из 1С ёксель корячить?

(1) Дело в том, что я не создаю таблицу значений в самом VBA,
таблицу значений создает COM - сервер, в качестве которого выступает 1С. И я в принципе могу управлять это ТЗ, например вызвать функцию Количество() и получить результат.
Но мне нужно добраться до конкретных ячеек ТЗ и получить значение оттуда. Собственно в этом вопрос.

(1)+ круто!. Пусть в макросе получает построчно данные из 1С и заполняет свой Dim

(2) Наверное проще, но логичнее, чтобы клиент вы виде экселя подсоединялся к 1С.

(5)+100 - это правильно, ёксель подключается к базе 1С и макросом заполняет красивошную табличку

(4) Не хотелось бы, поскольку функция носит универсальный характер и возвращает именно ТЗ.

В 1С для перебора используется либо "Для Каждого", либо оператор [].
Скорее всего есть способ, просто я его не знаю.

(7) так Shuhard же написал, откуда VBA знает, что такое 1С-ское ТЗ

(7) Нет способа. В 1С есть итераторы (хоть и в кастрированном варианте). В VBA - увы!

(9) А нельзя ли создать через COM в 1С какой-нибудь итератор и натравить его на таблицу значений? А потом просто забрать нужное значение...

(9) ????
"ТаблицаЗначений (ValueTable)
Получить (Get)
Синтаксис:

Получить(<Индекс>)
Параметры:

<Индекс> (обязательный)

Тип: Число.
Индекс строки.
Возвращаемое значение:

Тип: СтрокаТаблицыЗначений.

Описание:

Получает значение по индексу. Работает аналогично оператору [].

Доступность:

Сервер, толстый клиент, внешнее соединение.
Примечание:

Применяется в случаях, когда использование оператора [] невозможно. "

у MyTZ есть количество и получить

(10),(11) Можно было бы. Но в _VBA_ нет итераторов. Их можно сымитировать другими средствами. Но - надо _сымитировать.

(11) Вот именно. Когде невоможно.

Как-то я пропустил про "Получить", сейчас попробую. Спасибо.

(12) чего получить? в 3-й раз повторяю из (1)
"то, что в VBA нет таблицы значений, разве не очевидно ?"

(15) Нет. VBA знакомо с интерфейсами.

(13) Цикл же есть Для Сч = 0 По (MyTZ.Количество() - 1)
(15) зато есть ком объект

(15) плохо что повторяешь - попробовал бы не повторял

(17) ты это ТС-у объясни

С применением вызова функции "Получить(i)", все получилось.
ТЗ нормально перебирается.
Всем большое спасибо за помощь.

Неужели в VBA такое не будет работать:
for each objRow in objTable
' тут тело цикла
next
что то не верится. и в VB, и в VBScript работает.

(16) неправда твоя ;-) работает все. вот только что из екселя отработало на ура:

Private Sub CommandButton1_Click()
    Dim objConnection As Object
    Dim objBase As Object
    Dim objStructure As Object
    Dim objVal As Object
            
    Set objConnection = CreateObject("v81.COMConnector")
    Set objBase = objConnection.Connect("File=""D:\MyBase""")
    
    Set objStructure = objBase.NewObject("Структура")
    objStructure.Insert "Ключ1", 1
    objStructure.Insert "Ключ2", 2
    
    For Each objVal In objStructure
        MsgBox objVal.Key + "=" + CStr(objVal.Value)
    Next
  
End Sub