與在VBA

Question

用戶定義的類對象中的每個循環中的代碼是在這裏，你會得到一個運行時錯誤「424」爲每個語句

Public Sub test() 

Dim a As clsTest 
Dim dic As Dictionary 
Dim tmpObj As clsTest 
Set dic = New Dictionary 
Set a = New clsTest 
dic.Add "1", a 
dic.Add "2", New clsTest 
dic.Add "3", New clsTest 

For Each tmpObj In dic.Items '--<< error: Run-time error '424' Object required 
    Debug.Print tmpObj.i 
Next tmpObj 

Stop 
End Sub 

Answer 1

上的第一線需要的對象，你有兩個選擇：。變量聲明爲一個變體：

Dim tmpObj As Variant 

For Each tmpObj In dic.Items 

    Debug.Print tmpObj.i 

Next tmpObj 

或者遍歷集合：

Dim tmpObj As clsTest 

For i = 0 To dic.Count - 1 

    Set tmpObj = dic.Items(i) 

    Debug.Print tmpObj.i 

Next i 

Answer 2

一個Dictionary.Items()是一個變量數組使For Each需要有tmpObj爲Variant。使用一個類型tmpObj

另一種方法是：

for i = 0 to dic.Count - 1 
    set tmpObj = dic.Items(i) 
    ... 

Answer 3

三個選項

1）

Dim tmpObj As Variant 

For Each tmpObj In dic.Items 

    Debug.Print tmpObj.i 

Next tmpObj 

2）

for i = 0 to dic.Count - 1 
    set tmpObj = dic.Items(i) 
    ... 

3）

Public Sub test() 

Dim a As clsTest 
Dim dic As Dictionary 
Dim vTmpObj As Variant 
Dim tmpObj As clsTest 
Set dic = New Dictionary 
Set a = New clsTest 
dic.Add "1", a 
dic.Add "2", New clsTest 
dic.Add "3", New clsTest 

For Each vTmpObj In dic.Items 
    Set tmpObj = vTmpObj 
    Debug.Print tmpObj.i 
Next vTmpObj