CreateObject в VBA Excell

← →
isasa © (2006-12-14 01:09) [0]

Решил протестировать ATL Excel-ом и, к своему изумлению, уперся в вопрос на который не смог найти ответа(смотрел в MSDN)

Есть кокласс
... (idl)
coclass coClass
{
interface IIntrf1;
[default] interface IIntrf2;
};
...
в Дельфи
...
TcoClass = class(TAutoFLClass, IIntrf1, IIntrf2)
...

Как мне в среде VBA создать объект coClass с интерфейсом IIntrf1.
Варианты
Set Intf = CreateObject("Server.coClass")
не помогают. Ратотает [default] interface IIntrf2.

← →
Сергей М. © (2006-12-14 08:24) [1]

Как в VBA объявлена Intf ?

← →
isasa © (2006-12-14 08:48) [2]

Как Variant

Dim Intf ... Set Intf = CreateObject("Server.coClass") ...
Но можно и как
Dim Intf as Object ...
не принципиально, как надо, так и объявлю.

← →
wal © (2006-12-14 09:23) [3]

Код сервера можно менять?

← →
umbra © (2006-12-14 10:04) [4]

> Как мне в среде VBA создать объект coClass с интерфейсом
> IIntrf1.

насколько я знаю - никак

← →
isasa © (2006-12-14 10:44) [5]

wal © (14.12.06 09:23) [3]

Код сервера можно менять?

Да, свое-же. Но xls-файл надо отдавать заказчику.

← →
wal © (2006-12-14 10:47) [6]

> [5] isasa © (14.12.06 10:44)
> Да, свое-же
Сделай в дефолтном интерфейсе read-only свойсво типа IIntrf1, в Get_методе возвращай Self as IIntrf1, из скрипта обращайся Object.Property.

← →
alex_*** © (2006-12-14 10:50) [7]

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

← →
wal © (2006-12-14 10:53) [8]

> [7] alex_*** © (14.12.06 10:50)
Это где это такое в екселе найти можно?

← →
umbra © (2006-12-14 10:57) [9]

в смысле, без второго кокласса это невозможно.

← →
alex_*** © (2006-12-14 10:57) [10]

> Это где это такое в екселе найти можно?

в окне VBA: Tools->References. Жмешь Browse - все COM серверы и tlb твои

> Как мне в среде VBA создать объект coClass с интерфейсом
> IIntrf1.

ну а по сабжу посмотри под каким именем в реестре зареген твой класс и делай CreateObject по нему

alex_*** © (14.12.06 10:57) [10]
Прицепил.
Но я не вижу, кроме как птицы, в окне диалога. Как к этой ссылке обращаться?

Че-то непонятно. Кокласс имплементирует методы всех интерфейсов, так? Все интерфейсы и их методы должны быть видны через Object Browser. Посему так:

Dim pIntf1 As MyLib.Intf1
Dim pObj as New coClass
Set pIntf1 = pObj

[13] Разумеется, библиотеку нужно сперва прицепить к Excel так, как указано в [10]

CreateObject в VBA Excell Найти похожие ветки