Excel VBA Dictionary duplicate key

Question

I have this code:

Dim list As Object
Set list = jsonParse.Item("list")

Dim groupedByProjectElement As New Dictionary
For i = 1 To 2
        Set pE = list(i).Item("projectElement")
        Dim projectElementsDictionary As New Dictionary
        If groupedByProjectElement.Exists(pE.Item("businessKey")) Then
            Set projectElementsDictionary = groupedByProjectElement(pE.Item("businessKey"))
            projectElementsDictionary.Add projectElementsDictionary.count + 1, list(i)
        End If
        If Not groupedByProjectElement.Exists(pE.Item("businessKey")) Then
            projectElementsDictionary.Add 1, list(i)
            groupedByProjectElement.Add pE.Item("businessKey"), projectElementsDictionary
        End If
Next i

In the second iteration I am getting the error:

This key is already associated with an element of this collection

But I am expecting that in the second iteration projectElementsDictionary should be a new Dictionary already.

What am I missing?

list looks something like this:

"list": [
    {
        "projectElement": {
            "businessKey": "123",
            "customerUnit": {
                "businessKey": "123",
                "links": [],
                "shortDescription": "123",
                "text": "123",
                "version": null
            }
        }  
    }
]

takanuva15 · Accepted Answer · 2017-07-21 15:56:38Z

1

I will answer my own question:

Dim groupedByProjectElement As New Dictionary
For i = 1 To 25
    Set pE = List(i).Item("projectElement")
    Dim projectElementsDictionary As Dictionary
    If groupedByProjectElement.Exists(pE.Item("businessKey")) Then
        Set projectElementsDictionary = groupedByProjectElement(pE.Item("businessKey"))
        projectElementsDictionary.Add projectElementsDictionary.Count + 1, List(i)
    Else
        Set projectElementsDictionary = New Dictionary
        projectElementsDictionary.Add 1, List(i)
        groupedByProjectElement.Add pE.Item("businessKey"), projectElementsDictionary
    End If
Next i

edited Jul 21, 2017 at 15:56

takanuva15

1,7602 gold badges19 silver badges32 bronze badges

answered Oct 13, 2014 at 12:19

Koray Tugay

24k49 gold badges206 silver badges335 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Excel VBA Dictionary duplicate key

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related