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

     Err.Clear
     On Error GoTo 0
     If oXML Is Nothing Then
          WScript.Echo "XMLが取得できませんでした。処理を中止します。"
          Exit Sub
     End If
     If oXML.getElementsByTagName("Error").Length > 0 Then
          WScript.Echo "エラーが発生しました。処理を中止します。"
          Exit Sub
     End If

     WScript.Echo "実行結果=" & chr(13) & t
End Sub