Всем привет!
Dim V8 As Object
Dim Org As Object
Set V8= CreateObject("V82.COMConnector")

Set Con = V8.Connect("Srvr=""servak:1941"";Ref=""Basa"";Usr=""Пользователь"";Pwd=""Пароль""")

Set Zapr = Con.NewObject("Запрос")
Zapr.Текст = Range("K1").Value
До этого момента все ок, а вот как установить параметр запроса?
Zapr.УстановитьПараметр (???)

.ЦстановитьПараметр("НаименованиеПараметра", ЗначениеПараметра);

(1)невзлетит ... если тип агрегатный

(2) а как тогда взлетит :)?

попробовать через глобальные переменные  ... а устанавливать командой выполнить

(4)т.е. типа
Con.Выполнить("Zapr.УстановитьПараметр("",)") ?

неа ...

Сон.глЧтоТо = Сон.NewObject("Запрос")
Сон.Параметр = Сон.ЧтоТамНайтиПоКоду;
Сон.Выполнить("глЧтоТо.УстановитьПараметр(""Парамметр"", Параметр)")

глЧтоТо и Параметр - глобальные переменные

(2)неправда, все взлетит

(7)
Set V8= CreateObject("V82.COMConnector")

Set Con = V8.Connect("Srvr=""servak:1941"";Ref=""Basa"";Usr=""Пользователь"";Pwd=""Пароль""")
Sprav = Con.Справочники.Валюты
возникает ошибка: объект не поддерживает это свойство или метод

(6)
Public par As Object
Public zap As Object

Sub Сделать()
Set V8= CreateObject("V82.COMConnector")

Set Con = V8.Connect("Srvr=""servak:1941"";Ref=""Basa"";Usr=""Пользователь"";Pwd=""Пароль""")
Con.zap = Con.NewObject("Запрос")
уже здесь возникает ошибка: объект не поддерживает это свойство или метод

End Sub

(9) Надо передавать ВСЕ параметры. В данном случае - текст запроса.

+(10)
и Con.zap =...
точно не взлетит

(10)Надо передавать ВСЕ параметры - в смысле параметры соединения:
"Srvr=""servak:1941"";Ref=""Basa"";Usr=""Пользователь"";Pwd=""Пароль""" ? Они правильны.

Set Connector = CreateObject("V82.COMConnector")
   Set База = Connector.Connect("Srvr=MyServer;Ref=MyDatabase;")
   Set БазаЗапрос = База.NewObject("Запрос")
   БазаЗапрос.Текст = "выбрать первые 20 Наименование из Справочник.Номенклатура где ВидНоменклатуры = &ВидНоменклатуры"
   БазаЗапрос.УстановитьПараметр "ВидНоменклатуры", База.Перечисления.ВидыНоменклатуры.Продукция
   Set БазаВыб = БазаЗапрос.Выполнить()

и так далее, х..ли тут сложного?

(13)+ продолжение примера
   Set БазаВыб = БазаЗапрос.Выполнить().Выбрать()
   Y = 10
   Do While БазаВыб.Следующий()
       Cells(Y, 1).Value = БазаВыб.Наименование
       Y = Y + 1
   Loop

Спасибо всем!
(14) :) получилось

(14), дружище! А вот если, нужно установить в параметр массив в составе которого ссылки на элементы справочника, тогда механизм
БазаЗапрос.УстановитьПараметр "ВидНоменклатуры", База.Перечисления.ВидыНоменклатуры.Продукция
не сработает, в любом случае нужно как-то заполнить массив объектами;

(16) Set Массив1С = База.NewObject("Массив")

сори, друзья, чего-то тупанул; просто если использовать конструкцию:
Set Массив1С = База.NewObject("Массив")
Массив1С.Добавить (Con.Справочники.Организации.НайтиПоНаименованию("Организация")), то все работает;
а вот если:
Set Массив1С = База.NewObject("Массив")
орг = Con.Справочники.Организации.НайтиПоНаименованию("Организация")
Массив1С.Добавить(орг), то не работает.
Но это я так, в свое оправдание :)

Set орг = Con.Справочники.Организации.НайтиПоНаименованию("Организация")