Создается удаленная компонента ActiveX (сервер) Xserver,
состоящая из одного класса Xclass, при инициализации которого
создается ссылка на существующий экземпляр Excel(открытый
пользователем файл) для "отлова" событий:
Private WithEvents A As Excel.Application
Private Sub Class_Initialize()
Set A = GetObject(, "Excel.Application")
End Sub
Инициализация производится удаленно клиентом:
Dim Obj As Object
Private Sub Command1_Click()
Set Obj = CreateObject(" Xserver.Xclass", "Myserver")
End Sub
На одном компе все без изменений работает!!
Но при удаленной инициализации строка
Set A = GetObject(, "Excel.Application") говорит "Error 91".
Если к примеру, добавить перед ней
Dim B As Excel.Application
Set B = New Excel.Application
то все в порядке, но не то, что нужно, т.к это ссылка
на созданый нами экземпляр, а не на внешний!
Кто скажет, в чем прикол?