Wrong number of arguments or invalid property assignments

Question

Wrong number of arguments or invalid property assignments

SAMmsk2 opened this issue 2 years ago · 7 comments

SAMmsk2 commented 2 years 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:

Answer 1 · 2022-11-14T13:23:24.000Z

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: ***@***.***>

Answer 2 · 2022-11-14T13:34:10.000Z

Answer 3 · 2022-11-14T13:39:07.000Z

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.

Answer 4 · 2022-11-14T23:01:12.000Z

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

Answer 5 · 2022-11-15T00:30:03.000Z

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.

Answer 6 · 2022-11-15T08:03:09.000Z

IsEmpty()

It helped.

Answer 7 · 2022-11-15T08:04:05.000Z

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)