【VBA】VBA-JSONのインストール方法と簡単な使い方

[{"名前":"ジャベ雄","生年月日":{"年":2000,"月":1,"日":1},"身長":180,"体重":70,"好きな食べ物":["肉","野菜"],"眼鏡":true},{"名前":"ジャベ雌","生年月日":{"年":2002,"月":2,"日":2},"身長":150,"体重":null,"好きな食べ物":["甘いもの"],"眼鏡":false}]

[
    {
        "名前": "ジャベ雄",
        "生年月日": {
            "年":2000,
            "月":1,
            "日":1
        },
        "身長":180,
        "体重":70,
        "好きな食べ物":["肉","野菜"],
        "眼鏡":true
    },
    {
        "名前": "ジャベ雌",
        "生年月日": {
            "年": 2002,
            "月": 2,
            "日": 2
        },
        "身長": 150,
        "体重": null,
        "好きな食べ物": ["甘いもの"],
        "眼鏡":false
    }   
]

Sub Sample()
Dim url As String
Dim http As MSXML2.XMLHTTP60
Dim params As Scripting.Dictionary
Set http = New MSXML2.XMLHTTP60
Set params = New Scripting.Dictionary
With params
    .RemoveAll
    .Add "apiKey", "sampleapi"
End With
url = "https://example.com?" & encodeParams(params)
With http
    .Open "GET", url, False
    .send
    Set res = ParseJson(.responseText)
    For Each obj In res
        Debug.Print obj("名前")
    Next
    Set res = Nothing
End With
End Sub
Private Function encodeParams(ByVal objDic As Scripting.Dictionary)
Dim arr() As String
Dim i As Long
ReDim arr(objDic.Count - 1) As String
For i = 0 To pDic.Count - 1
    arr(i) = objDic.Keys(i) & "=" & Application.WorksheetFunction.EncodeURL(objDic.Items(i))
Next i
encodeParams = Join(arr, "&")
End Function

Set res = ParseJson(.responseText)

Debug.Print obj("名前") '---ジャベ雄
Debug.Print obj("生年月日")("年") '---2001
Debug.Print obj("好きな食べ物")(0) '---肉