vba - 如何从函数返回字典？

Question

这对我不起作用，目前还不清楚原因。

Sub mySub()
    dim myDict as Dictionary
    myDict=new Dictionary
            
    myDict=myFunc()
                
End Sub
        
Function myFunc()
    dim myDict2
    set myDict2 = new Dictionary
                    
    'some code that does things and adds to myDict2'
                    
    myFunc=myDict2
End Function

如何从函数返回字典？

Answer 1

每当您分配对象而不是值时，您都需要使用SET关键字:

    Sub mySub()
        dim myDict as Dictionary
        set myDict = myFunc()
    End Sub

    Function myFunc() as Dictionary
        dim myDict2 as Dictionary
        set myDict2 = new Dictionary
                'some code that does things and adds to myDict2'
        set myFunc=myDict2
    End Function

您的原始代码还将 myDict 创建为新的 Dictionary 对象，然后立即将其替换为另一个对象。您可以跳过该步骤。