Суть вопроса.
Создал 2 класса в одной и той же книге Ексель (2003). Упрощенно: cls1 и cls2.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
cls1
Public wbk as Workbook
Private Sub Class_Initialize()
Set wbk = Workbooks.Open("C:\Temp\fff.xls")
End Sub
cls2
Public c1 as cls1
Private Sub Class_Initialize()
On error goto e
Set c1 = GetObject(,"cls1") 'здесь то и не хочет работать
Exit Sub
e:
Set c1 = New cls1
End Sub
Мне не надо при создании каждого экземпляра cls2 заново инициализировать cls1. Но как на него сослаться? Пока не получается.
