für jede Schleife mit Benutzer-definierten Klasse von Objekten in vba

Den code hier ein und erhalten Sie einen Run-time error '424' Objekt erforderlich in der ersten Zeile der for-each-Anweisung

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
InformationsquelleAutor Chris | 2012-12-18
  1. 2

    Drei Optionen

    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
    InformationsquelleAutor Chris
  2. 2

    haben Sie zwei Möglichkeiten:. Deklarieren Sie die variable als eine Variante:

    Dim tmpObj As Variant

For Each tmpObj In dic.Items

  Debug.Print tmpObj.i

Next tmpObj

    Oder Iteration über die Kollektion:

    Dim tmpObj As clsTest

For i = 0 To dic.Count - 1

    Set tmpObj = dic.Items(i)

    Debug.Print tmpObj.i

Next i
    • Ja, ich habe mit der Variante eine option, aber es verliert intellisense, so habe ich zu halten auf die änderung der Art von Variante zu clsTest bei der Entwicklung und dem Rücken beim laufen.
    • meine aktualisierten code. tmpObj können stark typisiert, um Ihre benutzerdefinierte Klasse in dieser Weise, und Sie haben intellisense auf Werte.
    InformationsquelleAutor InContext
  3. 1

    Einen Dictionary.Items() ist ein variant-array so For Each muss tmpObj als Variant.

    Alternative mit einer typisierten tmpObj ist:

    for i = 0 to dic.Count - 1
    set tmpObj = dic.Items(i)
    ...
    • Es wäre brauchbar, wenn es zurückgegeben wird ein array des Objekts. Ja ich war mit Variante. Ich dachte, ich würde bitten.
    InformationsquelleAutor Alex K.
Schreibe einen Kommentar