(Excel) Loading and Parsing a JSON Array

A JSON array is JSON that begins with "[" and ends with "]". For example, this is a JSON array that contains 3 JSON objects.

[{"name":"jack"},{"name":"john"},{"name":"joe"}]

A JSON object, however, is JSON that begins with "{" and ends with "}". For example, this JSON is an object that contains an array.

{"pets":[{"name":"jack"},{"name":"john"},{"name":"joe"}]}

This example shows how loading a JSON array is different than loading a JSON object.

Download Excel Class Modules

Chilkat Excel Class Modules

strJsonArray = "[{""name"":""jack""},{""name"":""john""},{""name"":""joe""}]"


strJsonObject = "{""pets"":[{""name"":""jack""},{""name"":""john""},{""name"":""joe""}]}"

' A JSON array must be loaded using JsonArray:
Dim jsonArray As Chilkat.JsonArray
Set jsonArray = Chilkat.NewJsonArray
Dim success As Boolean
success = jsonArray.Load(strJsonArray)

' Examine the values:

i = 0
Do While i < jsonArray.Size

    Set jsonObj = jsonArray.ObjectAt(i)
    Debug.Print i; ": "; jsonObj.StringOf("name")

    i = i + 1
Loop

' Output is:

' 	0: jack
' 	1: john
' 	2: joe

' A JSON object must be loaded using JsonObject
Dim jsonObject As Chilkat.JsonObject
Set jsonObject = Chilkat.NewJsonObject
success = jsonObject.Load(strJsonObject)

' Examine the values:
i = 0

numPets = jsonObject.SizeOfArray("pets")
Do While i < numPets
    jsonObject.I = i
    Debug.Print i; ": "; jsonObject.StringOf("pets[i].name")
    i = i + 1
Loop

' Output is:

' 	0: jack
' 	1: john
' 	2: joe