Type Mismatch (Error 13) in Excel using Excel Json Parser VBA

Question

Getting Type Mismatch (Error 13) while using Json PArser in Excel MAcro

Below are the code :

Sub getJsonValue() Dim FSO As New FileSystemObject Dim JsonTS As TextStream Set JsonTS = FSO.OpenTextFile("C:\Users\Card_Link.json", ForReading) JsonText = JsonTS.ReadAll JsonTS.Close Set Json = ParseJson(JsonText) Set JsonRows = Json("rows") i = 2 For Each Item In Json Sheet5.Cells(i, 1).Value = Item("name") 'Sheet5.Cells(i, 2).Value = Item("results")("name") 'Sheet5.Cells(i, 3).Value = Item("results")("responsecode") i = i + 1 Next MsgBox ("complete") End Sub 

Getting error on this statement Sheet5.Cells(i, 1).Value = Item("name")

Can someone please help me to resolve this.

Thanks RJ

Answer 1

Without having any experience with ParseJson, try one of these:

Sheet5.Cells(i, 1).value = item

Sheet5.Cells(i, 1).value = item(0)

Sheet5.Cells(i, 1).value = item.Name

If still none of these works, try like this:

For Each item In Json Stop Sheet5.Cells(i, 1).value = item("name") 'Sheet5.Cells(i, 2).Value = Item("results")("name") 'Sheet5.Cells(i, 3).Value = Item("results")("responsecode") i = i + 1 Next 

On the stop, select item, press Shift+F9 and see what do you have in item.