How to get, ("fields") to Work in VBA-JSON - json

Question

Summary
I am trying to access the deep levels of nested JSON that comes back from the API that I am working with at the moment. Using VBA-JSON through this process has been pretty easy, but I've ran into a little road block. For the most part, I've got this library to work properly, but I get an error anytime I try to grab an item that is nested in the JSON response (further than 2 JSON levels). I am going to submit this post, and then I'll go and gather some of the error codes that I am getting. Off the top of my head, I know that I get a Run-time error '13' when I try to use the code below that doesn't work. I think (could be wrong) that I am smart enough to understand the type mismatch error, but I don't know how to fix it.
This Works
For i = 1 To 20
ActiveSheet.Cells(i + 1, 5) = Json("issues")(i)("key")
ActiveSheet.Cells(i + 1, 6) = Json("issues")(i)("id")
Next
Doesn't Work
For i = 1 To 20
ActiveSheet.Cells(i + 1, 7) = Json("fields")(i)("summary")
Next
None of These Worked Either
ActiveSheet.Cells(i + 1, 7) = Json("fields")(i)("summary")
ActiveSheet.Cells(i + 1, 7) = Json("fields")("summary")
ActiveSheet.Cells(i + 1, 7) = Json("issues")("fields")("summary")
ActiveSheet.Cells(i + 1, 7) = Json("fields")("assignee")(i)("name")
ActiveSheet.Cells(i + 1, 7) = Json("issues")("fields")("assignee")(i)("name")
Updated with Some JSON
I edited the JSON that comes back for privacy reasons (obviously).
{
"expand": "schema,names",
"startAt": 0,
"maxResults": 50,
"total": 28,
"issues": [ {
"expand": "",
"id": "94581",
"self": "",
"key": "",
"fields": {
, "assignee": {}
, "status": {}
, "votes": {}
, "summary": ""
,
, "issuetype": {}
, "timespent": null,
}
}
,
{}
,
{}
,
{}
]
}
According to this data structure, my code should be looking at the right place, right?
Thoughts? :)
PS: Sorry if jargon is off, I'm a developer by hobby, not by job. :)

Answer 1

The Problem
Nested arrays were actually the problem. The 2'nd level of JSON items were not arrays, while, "fields" was.
To solve the problem, we need to add a (i + 1) to the code.
Working Code Example
''''''''
' Loop '
''''''''
For i = 1 To 20
ActiveSheet.Cells(i + 1, 5) = Json("issues")(i)("key")
ActiveSheet.Cells(i + 1, 6) = Json("issues")(i)("id")
ActiveSheet.Cells(i + 1, 7) = Json("issues")(i + 1)("fields")("summary")
ActiveSheet.Cells(i + 1, 8) = Json("issues")(i + 1)("fields")("watches")("watchCount")
ActiveSheet.Cells(i + 1, 9) = Json("issues")(i + 1)("fields")("workratio")
Next
Update :(
So, I got all of my code setup to run my report, and it was working, and then it randomly stops (I watched it do this on line 16 or so) and gives me another type mismatch error.
How were the rows 1-15 working, and then suddenly there is a type mismatch error?
lol...
Debugging now...
Update 2 :)
Simple mix up with the code structure, there wasn't a problem and the solution that I posted below works correctly.