iterating through a Dictionary object
 

Hi all,

Is there a way to iterating through the entire dictionary object. I want to
do a Debug.Print to see all the keys and the items values in the Immediate
Window.

Thanks in advance,

Ben


--

iterating through a Dictionary object
 

Try code like


Dim V As Variant
For Each V In Dict.Items
Debug.Print V
Next V

' or

Dim N As Long
For N = 0 To Dict.Count - 1
Debug.Print "Value: " & Dict.Items(N), "Key: " & Dict.Keys(N)
Next N


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)



"Ben" wrote in message
...

Hi all,

Is there a way to iterating through the entire dictionary object. I want
to
do a Debug.Print to see all the keys and the items values in the Immediate
Window.

Thanks in advance,

Ben


--

iterating through a Dictionary object
 

You can use a for each something like this...

Sub test()
Dim dic As Object
Dim dicItem As Variant

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "this", "This"
dic.Add "That", "That"

For Each dicItem In dic
Debug.Print dicItem
Next dicItem

End Sub
--
HTH...

Jim Thomlinson


"Ben" wrote:


Hi all,

Is there a way to iterating through the entire dictionary object. I want to
do a Debug.Print to see all the keys and the items values in the Immediate
Window.

Thanks in advance,

Ben


--

iterating through a Dictionary object
 

Thanks Jim.

Ben

--



"Jim Thomlinson" wrote:

You can use a for each something like this...

Sub test()
Dim dic As Object
Dim dicItem As Variant

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "this", "This"
dic.Add "That", "That"

For Each dicItem In dic
Debug.Print dicItem
Next dicItem

End Sub
--
HTH...

Jim Thomlinson


"Ben" wrote:


Hi all,

Is there a way to iterating through the entire dictionary object. I want to
do a Debug.Print to see all the keys and the items values in the Immediate
Window.

Thanks in advance,

Ben


--

iterating through a Dictionary object
 

Thanks Chip.

Ben


--



"Chip Pearson" wrote:

Try code like


Dim V As Variant
For Each V In Dict.Items
Debug.Print V
Next V

' or

Dim N As Long
For N = 0 To Dict.Count - 1
Debug.Print "Value: " & Dict.Items(N), "Key: " & Dict.Keys(N)
Next N


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)



"Ben" wrote in message
...

Hi all,

Is there a way to iterating through the entire dictionary object. I want
to
do a Debug.Print to see all the keys and the items values in the Immediate
Window.

Thanks in advance,

Ben


--