Pass vba Словарь

Question

Новый для vba. Как передать объект словаря другой функции.

Sub aaa(dict As Object) 
Set dict = CreateObject("Scripting.Dictionary") 
... 
process dict 
End Sub 

Sub process(dict As Scripting.Dictionary) 
    MsgBox dict.Count 
End Sub 

дает ошибку компиляции: Определяемый пользователем тип не определен

---

Кроме того,

Set dict = CreateObject("Scripting.Dictionary") 

работает, но

Dim dict As New Scripting.Dictionary 

дает «Пользовательский тип не определено "

Я использую Excel 2010

Answer 1

Когда вы используете CreateObject, вы привязываете объект во время выполнения (то есть, позднее привязка). Когда вы используете As Scripting.Dictionary, объект привязывается во время компиляции (т. Е. Раннее связывание).

Если вы хотите выполнить раннее связывание, вам нужно будет установить ссылку на нужную библиотеку. Чтобы сделать это, перейдите в меню Сервис -> Ссылки ... и выберите «Microsoft Scripting Runtime»

Answer 2

Чтобы избежать ошибки добавить Microsoft Scripting Runtime (в Tools -> References).
Упрощенный пример:

Sub test_dict() 
    Dim dict As New Scripting.Dictionary 
    Call process(dict) 
End Sub 

Sub process_dict(dict As Scripting.Dictionary) 
    MsgBox dict.Count 
End Sub 

Answer 3

Вы должны добавить ссылку на библиотеку Microsoft Scripting времени выполнения для макроса, чтобы иметь возможность распознавать типы. Перейти к инструментам-> Ссылки и проверить исполнение сценариев Microsoft Scripting Runtime.

Answer 4

Я хотел бы пересмотреть этот ответ использовать поздно только связывание, а также использовать параметр объекта:

Sub aaa(dict As Object) 
Set dict = CreateObject("Scripting.Dictionary") 
... 
process dict 
End Sub 

Sub process(dict As Object) 
    MsgBox dict.Count 
End Sub 

Answer 5

После вы добавив "Tools-> References-> Microsoft Scripting Runtime" попробовать это

Private Sub CommandButton1_Click() 

    Dim myLocalDictionary As New Dictionary 
    myLocalDictionary.Add "a", "aaa" 
    myLocalDictionary.Add "b", "bbb" 
    myLocalDictionary.Add "c", "ccc" 

    Call testPassDictionary(myLocalDictionary) 

End Sub 

Sub testPassDictionary(myDictionary As Dictionary) 
    MsgBox myDictionary.Count 
End Sub