Wrong number of arguments or invalid property assignments

SAMmsk2 commented 1 year ago

I have a JSON-document. I am trying to parse it and facing an issue of wrong number of arguments...

When I am watching the expression, I can see the value:

but when I am trying to put this value into the cell, I am facing the issue of the wrong number of arguments...

JSON-document is as follows:

aholden10 commented 1 year ago

It would be helpful to have some of your (anonymized) JSON data included as text to test - including its entire structure from the top. It's difficult for me to simply look at a picture of a snippet of the data and troubleshoot it! On Monday, November 14, 2022 at 01:40:05 AM EST, SAMmsk2 @.***> wrote:

I have a JSON-document. I am trying to parse it and facing an issue of wrong number of arguments...

When I am watching the expression, I can see the value:

but when I am trying to put this value into the cell, I am facing the issue of the wrong number of arguments...

JSON-document is as follows:

— Reply to this email directly, view it on GitHub, or unsubscribe. You are receiving this because you are subscribed to this thread.Message ID: @.***>

SAMmsk2 commented 1 year ago

SAMmsk2 commented 1 year ago

I identified the issue but I don't know how to resolve it. I can't construct a right if-statement! if I use Item("resolvedBy")<>empty then it works for the first line but doesn't work for the second becuase this key contains other keys. if I use Item("resolvedBy")("display")<>empty it works for the second line but not for the first because there is no key "resolvedBy" in the first line.

Deedolith commented 1 year ago

Empty only apply to variant non object data types. Yet, your item hold a dictionary. Try with the IsEmpty() function.

Nick-vanGemeren commented 1 year ago

ParseJsonwill never give empty values in the structure. I don't see a resolvedBy key group until item 4. You will have a similar problem with the resolution key group. Test for keys inDictionariesusing Item.Exists(key) So, IF resolvedBy is always present with resolution, you can do something like:

    Dim keygroup As Dictionary
    If Item.Exists("resolution") Then
        Set keygroup = Item("resolvedBy")
        Sheets(1).Cells(i, 6) = keygroup("display")
        Set keygroup = Item("resolution")
        Sheets(1).Cells(i, 12) = keygroup("display")
    Else
        Sheets(1).Cells(i, 6) = ""
        Sheets(1).Cells(i, 12) = ""
      End If

If this solves your problem, please close your issue here.

SAMmsk2 commented 1 year ago

IsEmpty()

It helped.

SAMmsk2 commented 1 year ago

Final solution that worked:

If IsEmpty(Item("kanalObrasenia")) = False Then Sheets(1).Cells(i, 2).Value = Item("kanalObrasenia")(1) If IsEmpty(Item("kontaktnoeLico")) = False Then Sheets(1).Cells(i, 3).Value = Item("kontaktnoeLico") If IsEmpty(Item("klient")) = False Then Sheets(1).Cells(i, 4).Value = Item("klient") If IsEmpty(Item("telefon")) = False Then Sheets(1).Cells(i, 5).Value = Item("telefon") If IsEmpty(Item("email")) = False Then Sheets(1).Cells(i, 6).Value = Item("email") If IsEmpty(Item("createdBy")) = False Then Sheets(1).Cells(i, 7).Value = Item("createdBy")("display") If IsEmpty(Item("components")) = False Then Sheets(1).Cells(i, 8).Value = Item("components")(1)("display") If IsEmpty(Item("tipZadac")) = False Then Sheets(1).Cells(i, 9).Value = Item("tipZadac")(1)

VBA-tools / VBA-JSON

Wrong number of arguments or invalid property assignments #242