KintoneのAPIを使ってみました
さる用事があって Kintone の API を使ってEXCELにデータを 取込みたいと思いまして、VBScriptでサンプル作成してみました。 せっかくなのでメモがてら 動いたときは少し感動しました。 後はこれをEXCELに載せ替えて加工します。 これで基幹系との連携やなんかやりやすくなるかと まぁ、レコード取得だけやけどね。 以下ソース Option Explicit Call ExecCommand Sub ExecCommand() Dim oXML Dim oNode Dim url Dim t Dim appNo Dim idNo Dim cAuthorization Dim kintoneReqjson 'アプリIDとレコードID指定 appNo = XXX idNo = XXX 'Body用JSON文字列 kintoneReqjson = "?app=" & appNo & "&id=" & idNo url ="https://XXX.cybozu.com/k/v1/record.json" &kintoneReqjson cAuthorization = "BASE64エンコードしたID:PW" Set oXML = Nothing '初期化 On Error Resume Next With CreateObject("MSXML2.XMLHTTP") .Open "GET", url, False .setRequestHeader "X-Cybozu-Authorization", cAuthorization .Send Set oXML = .responseXML t = .responseText End With ...