В некоторых VBA, прикрепленных к электронной таблице Excel 2003, мне нужно использовать некоторые объекты, создание экземпляров которых занимает некоторое время, поэтому я хочу сделать "установить" только один раз...
Легче показать код, чем писать объяснение!
' Declare the expensive object as global to this sheet
Dim myObj As SomeBigExpensiveObject
Private Sub CommandButtonDoIt_Click()
' Make sure we've got a ref to the object
If IsEmpty(myObj) Then ' this doesn't work!
Set myObj = New SomeBigExpensiveObject
End If
' ... etc
End Sub
Как я могу проверить, был ли уже установлен myObj?
Я пробовал IsNull(myObj) и IsEmpty(myObj) - оба пропускают «набор», независимо от состояния myObj. я не могу сделать
if myObj = Nil then
or
if myObj = Empty then
or
if myObj = Nothing then
Любые идеи?
САЛ