पास वीबीए शब्दकोश

Question

नया वीबीए। किसी अन्य फ़ंक्शन में शब्दकोश ऑब्जेक्ट को कैसे पास करें।

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 का उपयोग करते हैं तो ऑब्जेक्ट संकलन-समय (यानी, प्रारंभिक बाध्यकारी) पर बाध्य होता है।

यदि आप प्रारंभिक बाध्यकारी करना चाहते हैं तो आपको सही पुस्तकालय का संदर्भ सेट करने की आवश्यकता होगी। ऐसा करने के लिए, टूल्स -> संदर्भ ... और "माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम"

Answer 2

का उपयोग त्रुटि माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम जोड़ने (उपकरण में -> संदर्भ) से बचने के लिए।
सरलीकृत उदाहरण:

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

आप प्रकार की पहचान करने में सक्षम होना अपने मैक्रो के लिए माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम लायब्रेरी के लिए एक संदर्भ जोड़ने की जरूरत है। गोटो टूल्स-> संदर्भ और माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम के लिए जांचें।

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-> Microsoft स्क्रिप्टिंग रनटाइम" जोड़कर कोशिश इस

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