【VBA-API】Web APIを使って郵便番号から住所を取得する（郵便番号検索API）

Sub 郵便番号API()

   Dim zipcode As String
   Dim address1 As String
   Dim address2 As String
   Dim address3 As String
   Dim i As Long
   
   Dim http As MSXML2.XMLHTTP60
   Set http = New MSXML2.XMLHTTP60
   
   zipcode = ThisWorkbook.Worksheets(1).Range("D2").Value

   'HTTPリクエストにより郵便番号から住所を取得をする
    With http
        Call .Open("GET", "https://zipcloud.ibsnet.co.jp/api/search?zipcode=" & zipcode)
        Call .send
        
        Do
            If .readyState = 4 Then Exit Do
            DoEvents
        Loop
        
        'JSONを出力
        Debug.Print .responseText
        
        'JSONパース
        Dim jsonObj As Object
        Set jsonObj = JsonConverter.ParseJson(.responseText)
        
        ' 検索結果が複数存在する場合は、配列として返される為１つ１つ取得する
        For i = 1 To jsonObj("results").Count
            
            With ThisWorkbook.Worksheets(1)
            .Cells(4 * i, 4).Value = jsonObj("results")(i)("address1")  '住所1
            .Cells(4 * i + 1, 4).Value = jsonObj("results")(i)("address2") '住所2
            .Cells(4 * i + 2, 4).Value = jsonObj("results")(i)("address3") '住所3
            End With
            
        Next
    
    End With
End Sub

'JSONを出力
        Debug.Print .responseText

        'JSONを出力
        Debug.Print .responseText
        
        'JSONパース
        Dim jsonObj As Object
        Set jsonObj = JsonConverter.ParseJson(.responseText)
        
        ' 検索結果が複数存在する場合は、配列として返される為１つ１つ取得する
        For i = 1 To jsonObj("results").Count
            
            With ThisWorkbook.Worksheets(1)
            .Cells(4 * i, 4).Value = jsonObj("results")(i)("address1")  '住所1
            .Cells(4 * i + 1, 4).Value = jsonObj("results")(i)("address2") '住所2
            .Cells(4 * i + 2, 4).Value = jsonObj("results")(i)("address3") '住所3
            End With
            
        Next
    
    End With