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 

은, "사용자 정의 유형을 제공하지 정의되지 않음 "0 나는 오류가 (-> 참조 도구의)은 Microsoft 스크립팅 런타임을 추가 피하기 위해

Answer 1

CreateObject을 사용하면 런타임에 오브젝트를 바인딩합니다 (예 : 후기 바인딩). As Scripting.Dictionary을 사용할 때 객체는 컴파일 타임에 바인딩됩니다 (즉, 초기 바인딩).

초기 바인딩을 수행하려면 올바른 라이브러리에 대한 참조를 설정해야합니다. 도구로 이동이 작업을 수행하려면 - "마이크로 소프트 스크립팅 런타임을"> 참조 ... 선택하는 것은

Answer 2

엑셀 2010을 사용합니다.
간단한 예 : 유형을 인식 할 수

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 스크립팅 런타임 라이브러리에 대한 참조를 추가해야합니다. 도구 -> 참조로 이동하여 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

후를 당신은 시도 "도구 -> References-> 마이크로 소프트 런타임 스크립팅"을 추가이

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