Ошибка возврата экземпляра объекта из функции в VBA

Question

Я пытаюсь создать экземпляр объекта и вернуть его из функции. Класс, с которым я работаю, - это тот, который я создал. Однако, когда я пытаюсь установить объект на то, что было возвращено из функции, я получаю сообщение об ошибке. Что я делаю не так?

Function CreateBlah(NAME As String, Count As Integer, val As String) As Blah 
    Dim b As Blah 
    Set b = New Blah 
    bkmrk.Initialize NAME, Count, val 
    MsgBox (bkmrk.NAME) 
    CreateBlah = bkmrk 
End Function 

Тогда в другой функции ...

Dim bmrk As Blah 
Set bmrk = CreateBlah("Test", 1, Trim(AString)) 

Я также попытался ...

Dim bmrk As Object 
Set bmrk = CreateBlah("Test", 1, Trim(AString)) 

Я новичок в VBA, может кто-нибудь сказать мне, что я делать не так?

Answer 1

Я предполагаю, что

Dim b As Blah 
Set b = New Blah 

должен на самом деле читать

Dim bkmrk As Blah 
Set bkmrk = New Blah 

если да, то вы упускаете множество ключевых слов.

Set CreateBlah = bkmrk 

После того, как вы исправили это, то обе версии кода, потребляющего должны работать, хотя бывший лучше, так как вы сильно вводить переменную.

Answer 2

Вам необходимо установить каждые времени, которое вы назначили объекту. Это означает, что при установке возвращаемого значения и при присвоении возвращаемого значения переменной. Late Bound Пример:

Public Sub Example() 
    Dim objWrd As Object 
    Set objWrd = GetWord 
    objWrd.Visible = True 
    objWrd.Quit 
End Sub 

Public Function GetWord() As Object 
    Set GetWord = CreateObject("Word.Application") 
End Function 

Ранний Bound Пример:

Public Sub Example() 
    ''//Requires reference to Microsoft Office Word 
    ''//(Tools>References) 
    Dim objWrd As Word.Application 
    Set objWrd = GetWord 
    objWrd.Visible = True 
    objWrd.Quit 
End Sub 

Public Function GetWord() As Word.Application 
    Set GetWord = New Word.Application 
End Function