VBA APIから受け取った配列を格納するためには

Question

APIのPOST送信をした際に、JSON形式で受け取るようにしています。

その際に配列で返ってくる項目があるのですが、配列の1項目ずつを
セルに移したいです。
ご教授よろしくお願いします。

'API接続し、セルに入力する
Dim objhttp As Object
    Set objhttp = CreateObject("MSXML2.XMLHTTP")

        With objhttp
          .Open "POST", url, False
          .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
          .setRequestHeader "Content-Type", "application/json"
          .setRequestHeader "X-access-token", apitoken              
          .setRequestHeader "X-contract-id", apikey
          .Send (Nippou & proc)　　　’この部分はPOST送信の処理名を送っています。
          JSON = .responseText
        End With
              
        Set Parse = JsonConverter.ParseJson(JSON)

  
    Dim num As Long
    Dim resultCount As Long
    num = 1
    resultCount = 1
     
    Dim lastrow As Long
  With wsNippou
           lastrow = 2
    
   For i = 1 To count
        DoEvents
      
          For j = 0 To ArrayCount
          
          .Cells(lastrow, num).Value = Parse("result")(resultCount)(nippou_array)
     
          num = num + 1
        
      Next j
          lastrow = lastrow + 1
          resultCount = resultCount + 1
          num = 1
          
        '1秒間スリープさせる
          Sleep 1000
        
 　　Next i
  End With
End Sub

APIレスポンス結果
{"total_count":"1","result":[{"taxDetailList":[{"tax":10,"Total":20,"TargetTotal":30,]}]}

Comments

[sinzou]

ていせい

Answer 1

ちょっとチャレンジしてみたけど、あってるかな？

EXCELのA1セルに記入{"total_count":"2","result":[{"taxDetailList":[{"tax":10,"Total":20,"TargetTotal":30},{"tax":40,"Total":50,"TargetTotal":60}]}]}

Sub tes00()
'http://bougyuusonnin.seesaa.net/article/446183415.html より

Dim doc, jsn
Dim strData
Dim jsnResult, isnTaxDetailList, n

'HTMLDocumentを取得
Set doc = CreateObject("HtmlFile")
'JSONオブジェクトを使うにはIEの互換表示で8以上(edgeも可)にする。
doc.write "<meta http-equiv='X-UA-Compatible' content='IE=8' />"
'scriptタグを追加
'パースはJSON.parseを使うとチェックが厳しいのでevalを使う。
doc.write "<script>document.JsonParse=function (s) {return eval('(' + s + ')');}</script>"
doc.write "<script>document.JsonStringify=JSON.stringify;</script>"

'パース関数でJSONオブジェクトを取得
strData = Range("A1").Value
Set jsn = doc.jsonParse(strData)


'パース後の値を確認
Debug.Print "データー数　" & jsn.total_count
Set jsnResult = CallByName(jsn.result, 0, VbGet)
For n = 0 To jsn.total_count - 1
    Set isnTaxDetailList = CallByName(jsnResult.taxDetailList, n, VbGet)
    Debug.Print "データー" & n + 1
    Debug.Print "tax         " & isnTaxDetailList.tax
    Debug.Print "Total       " & isnTaxDetailList.Total
    Debug.Print "TargetTotal " & isnTaxDetailList.TargetTotal
Next

End Sub

Win10 Offise365 64bit

Comments

[Ta-Jn]

こちらのサンプルを元に組んでみると配列を取得することができました。
大変助かりました。ありがとうございます。