How to get keys from dictionary?

[tektipwfkm]

Dim dic As Object
Dim keyColl As Object

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "a", "1"
dic.Add "b", "2"
dic.Add "c", "3"

keyColl = dic.Keys ' Prompt "Object method returned an unsupported data type"

How to get keys collection from dictionary?

 

[SkipVought]

Hi,

You should have looked further in HELP...

Dim dic As Object
Dim keyColl, i

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "a", "1"
dic.Add "b", "2"
dic.Add "c", "3"

keyColl = dic.Keys  

For i = 0 To dic.Count -1 
    Print keyColl(i)         
Next

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[tektipwfkm]

Thanks for your help!

But in AttachMate Extra! Macro Editor V6.7, it can not run correctly.


' *********************************
Dim dic As Object
Dim keyColl, i

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "a", "1"
dic.Add "b", "2"
dic.Add "c", "3"

keyColl = dic.Keys

For i = 0 To dic.Count -1
Print keyColl(i) ' Prompt "Unknow array of function: keycoll"
Next

' *********************************

Dim dic As Object
Dim keyColl, i

Set dic = CreateObject("Scripting.Dictionary")

dic.Add "a", "1"
dic.Add "b", "2"
dic.Add "c", "3"

keyColl = dic.Keys 'Prompt "Object method returned an unsupported data type"

For i = 0 To dic.Count -1
'Print keyColl(i) 'Remark this line
Next

 

[SkipVought]

Guess you'll have to code in Excel VBA and reference Extra.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}