Although the Dictionary object does not have an enumerator, it does have an Items method that returns a Variant array. You can use the For…Each construct on the array:
Dim vItem As VariantDim dict As Scripting.DictionarySet dict = New Scripting.Dictionarydict.Add "Item1", "Item data 1"dict.Add "Item2", "Item data 2"dict.Add "Item3", "Item data 3"For Each vItem In dict.Items Debug.Print vItemNextSet dict = NothingBefore you can use the Dictionary object in your application, you must set a Project Reference to the Microsoft Scripting Runtime (scrrun.dll).
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
