環境物流様
’ Create JSON payload for kintone API
payload = “{”“app”“:”“” & appId & “”“,”“record”“:{”“DeliveryDate”“:{”“value”“:”“” & deliveryDate & “”“},”“DestinationCode”“:{”“value”“:”“” & destinationCode & “”“},”“Weight”“:{”“value”“:”“” & weight & “”“}}}”
ここでpayloadに文字列をいれていますが，このままではPOSTできません．
’ Send a POST request to kintone API
With xmlHttpRequest
.Open “POST”, url, False
.setRequestHeader “Content-Type”, “application/json”
.setRequestHeader “X-Cybozu-API-Token”, apiToken
. send payload
ここでpayloadをsendしていますが，このときのpayloadはjson形式である必要があります．
ライト様が案内しているとおり，
If .Status = 200 Then
ここの.Statusの値をDebug.printするとPOSTが成功（＝200）しているのか，失敗（=400，520など）しているのかがわかります．
なお，VBA上の文字列をjson形式にするにはコンバータが必要です．
Debug.printやjsonのコンバータについてわからないようでしたら，このコードを運用するのは難しいと思います．
参考になれば幸いです．