Create/Accessing Dictionary within Dictionary

[Chihiro]

I'm trying to add Scripting.Dictionary within another Dictionary.

This is related to Deepak's thread below.
http://chandoo.org/forum/threads/count-the-records.28411/

So, to only add unique records to each bucket, I'm using Dictionary to keep track.

However, my initial code (which is in Module1) is not dynamic at all. I'm thinking using array of bucket names to create Dictionaries in Dictionary to dynamically create and access.

Referenced below thread.
http://www.mrexcel.com/forum/excel-...basic-applications-creating-objects-loop.html

I've got to a point where I was able to add items dynamically to Dictionary. But not sure how to access the dictionary within (or to check if it's a dictionary). I was able to retrieve .Key from "myObjects", but not the data within.


Any help is appreciated. Code below and workbook attached (the code is in Module2).

FYI - Microsoft Scripting Runtime is referenced in the project.

Sub MakeObjects()
    Dim myObjects As New Scripting.Dictionary
    Dim dObject As Scripting.Dictionary
    Dim darry() As String
    Dim dName As Variant
    Dim i As Long, j As Long, lRow As Long, cCount As Long
    Dim sWs As Worksheet
   
    Set sWs = Sheet4
    lRow = sWs.Range("A" & Rows.Count).End(xlUp).Row
    cCount = lRow / 100
   
    ReDim darry(1 To cCount)
    For i = 1 To cCount
        darry(i) = "Bucket" & i
    Next i
   
    For j = 1 To UBound(darry)
        Set dObject = New Scripting.Dictionary
        dName = darry(j)
        myObjects.Add Item:=dObject, Key:=dName
    Next
   
    Set dObject = Nothing
    myObjects.Item("Bucket4").Add Item:=1, Key:="test"
    Debug.Print myObjects.Item(3)
End Sub

 

[NARAYANK991]

Hi ,

I have not done a dictionary of dictionaries ; it is instead a dynamic array of dictionaries.

See if this is what you wanted.

Narayan

 

[Chihiro]

Thanks Narayan

Didn't know array could be objects (to be honest, I just started learning to use array). It should work nicely.

I also figured out how to access dictionary within dictionary. I changed the code slightly to have sequential numeric key for "myObjects". I'm thinking this would make it easier to loop through each dictionary contained within.

Sub MakeObjects()
    Dim myObjects As New Scripting.Dictionary
    Dim dObject As Scripting.Dictionary
    Dim darry() As String
    Dim dName As Variant
    Dim i As Long, j As Long, c As Long, lRow As Long, cCount As Long
    Dim sWs As Worksheet
    Dim cel As Range
  
  
    Set sWs = Sheet4
    lRow = sWs.Range("A" & Rows.Count).End(xlUp).Row
    cCount = lRow / 100
  
    ReDim darry(1 To cCount)
    For i = 1 To cCount
        darry(i) = "Bucket" & i
    Next i
  
    For j = 1 To UBound(darry)
        Set dObject = New Scripting.Dictionary
        dName = darry(j)
        myObjects.Add Item:=dObject, Key:=j
    Next
  
    myObjects(1).Add Item:="Test", Key:=1
    Debug.Print myObjects(1).Item(1)
End Sub

 

[NARAYANK991]

Hi Chihiro ,

Thanks for sharing.

Narayan