Pass vba Dictionary

Question

Nowość w vba. Jak przekazać obiekt słownika do innej funkcji.

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 

daje błąd kompilacji: zdefiniowane przez użytkownika typ niezdefiniowane

---

Również

Set dict = CreateObject("Scripting.Dictionary") 

prace, ale

Dim dict As New Scripting.Dictionary 

daje, „typ użytkownika zdefiniowane nie określono "

używam Excel 2010

Answer 1

Podczas używania obiektu CreateObject wiążemy obiekt w czasie wykonywania (tj. Późne wiązanie). Podczas korzystania z obiektu As Scripting.Dictionary obiekt jest wiązany podczas kompilacji (tj. Wczesne wiązanie).

Jeśli chcesz wcześnie wiązać, musisz ustawić odniesienie do właściwej biblioteki. Aby to zrobić, przejdź do Narzędzia -> Referencje ... i wybierz "Microsoft Scripting Runtime"

Answer 2

Aby uniknąć błędu dodać Microsoft Scripting Runtime (w Narzędzia -> referencje).
uproszczony przykład:

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

Trzeba dodać odwołanie do biblioteki Microsoft Scripting Runtime dla makra, aby móc rozpoznawać typy. Goto Narzędzia-> Odnośniki i sprawdź Microsoft Runtime Runtime.

Answer 4

Chciałbym zrewidować tę odpowiedź użyć późnego wiązania tylko i używać parametru obiektu:

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

Po Ci dodanie "Narzędzia-> References-> Microsoft Scripting Runtime" spróbować

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