excel - VBA:从功能返回字典

这概述了我正在尝试做的事情。

这对我没有用，并且不清楚原因。

预先感谢您提供的所有帮助。

        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

最佳答案

在分配对象而不是值时，您需要随时使用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对象，然后立即将其替换为其他对象。您可以跳过该步骤。