VBA collection: list of keys

by

If you intend to use the default VB6 Collection, then the easiest you can do is:

col1.add array("first key", "first string"), "first key"
col1.add array("second key", "second string"), "second key"
col1.add array("third key", "third string"), "third key"

Then you can list all values:

Dim i As Variant

For Each i In col1
  Debug.Print i(1)
Next

Or all keys:

Dim i As Variant

For Each i In col1
  Debug.Print i(0)
Next

More Related Contents:

  1. VBA Adding a class to a collection [duplicate]
  2. Determining whether an object is a member of a collection in VBA
  3. How do I sort a collection?
  4. VBA macro that search for file in multiple subfolders
  5. So, I have 6 “master” files to then divide into 40 separate files
  6. Getting ScriptControl to work with Excel 2010 x64
  7. What does the Call keyword do in VB6?
  8. Count and Highlight keywords within phrases
  9. Transpose a range in VBA
  10. How to securely store Connection String details in VBA
  11. Show “Open File” Dialog
  12. Detect merged cells in VBA Excel with MergeArea
  13. Hash Table/Associative Array in VBA
  14. Text file in VBA: Open/Find Replace/SaveAs/Close File
  15. excel vba- extract text between 2 characters
  16. Round function in Excel, worksheet function vs VBA
  17. Excel VBA Userform – Execute Sub when something changes
  18. Count the number of rows in another sheet [duplicate]
  19. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  20. Search structured text in Outlook body
  21. VBA Password Input with Cancel Function
  22. What does the $ symbol do in VBA?
  23. Does the bitness of the OS ever matter, or is it just the application I need to worry about?
  24. How can I automatically populate the VBA Editor with line numbers?
  25. VBA hash string
  26. Debugging an Outlook 2007 script fired by a rule
  27. How do I activate a specific workbook and a specific sheet?
  28. Start VBA macro when editing a cell
  29. VBA Run-time error 438 appears when “paste” runs
  30. If Not function proceeds when value *is* the one specified

Leave a Comment