excel to kintone record by VBA

gistfile1.vb

Sub ボタン1_Click()
'--------------------------------------------------------------------
'  変数定義
'--------------------------------------------------------------------
Dim objHttpReq As MSXML2.XMLHTTP   ' XMLHTTP オブジェクト
Dim strJSON As String              ' レスポンスで受け取るJSONデータ
Dim strURL As String               ' アクセス先URL
Dim strQuery As String             ' 検索文字列
 
'------------------------------------------------------------------
' 検索文字付きURLを作成する
'------------------------------------------------------------
strURL = "https://sample.cybozu.com/k/v1/record.json?&app=88"

'------------------------------------------------------------------
' XMLHTTP オブジェクトを生成する
'------------------------------------------------------------------
Set objHttpReq = CreateObject("MSXML2.XMLHTTP")
objHttpReq.Open "POST", strURL, False
'------------------------------------------------------------------
' XMLHTTP のリクエストヘッダーを指定する
'------------------------------------------------------------------
' ログイン認証(Administrator:passwordをBASE64でエンコード)
objHttpReq.setRequestHeader "X-Cybozu-Authorization", "QWRtaW5pc3RyYXRvcjpwYXNzd29yZA=="
' Basic 認証
'objHttpReq.setRequestHeader "Authorization", "Basic " & <ベーシック認証情報>
'ドメイン名：ポート番号
objHttpReq.setRequestHeader "Host", "sample.cybozu.com" + ":443"
objHttpReq.setRequestHeader "Content-Type", "application/json"

'キャッシュ対策（常にレスポンスが取得できる状態にする）
objHttpReq.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"
 
'------------------------------------------------------------------
' リクエストを送信する
'------------------------------------------------------------------
strName = Range("B3")
strAddress = Range("B4")


objHttpReq.send ("{""app"":88,""record"":{""氏名"":{""value"":""" + strName + """},""住所"":{""value"":""" + strAddress + """}}}")



'------------------------------------------------------------------
' レスポンスを取得する
'------------------------------------------------------------------
'レスポンス情報を変数に格納する
strJSON = objHttpReq.responseText
'セルに表示
Range("b1") = strJSON

End Sub