X-point REST APIを使って申請書自動起票マクロを作りました

高橋雄悟

開発

高橋雄悟

最終更新日2025/12/10 投稿日2025/12/13

この記事はレコチョク Advent Calendar 2025 の13日目の記事となります。 

はじめに

こんにちは、株式会社レコチョクで社内のDX化を推進している髙橋です。今年の7月に、中学生の頃から応援している UNISON SQUARE GARDEN のファンクラブ10周年アニバーサリーライブが開催され、当然参加してきました。

ファンクラブ発足が10年前の7/24 日本武道館公演で発表され、私もその場にいたのですがあの時から10年間、同じ熱量で応援できていることに嬉しさを覚えます。

さて、レコチョクでは現在X-pointという電子申請のワークフローシステムで各種申請業務を行っています。特定の部署では、月に100件以上もの申請書を起票する必要があり、工数がかかる上にオペミスのリスクが高い状態が続いていました。

改善方法を検討していく中で、X-pointがAPIを提供していることを知り、早速活用してみることにしました。

※下記に記載するコードはサンプルです

概要

ExcelVBAを使用し、以下の機能を実装した業務効率化ツール

X-point REST API からのJSONデータ取得・加工
Selenium によるブラウザ自動操作（Web画面ボタンクリック）

使用技術

環境

Excel（Microsoft 365 Apps）
VBA（Visual Basic for Applications）

API

X-point REST API

外部ライブラリ・ツール

実装

処理の流れ

ステップ	処理	概要
1	今月起票対象の記入内容を取得	申請管理表から対象データを取得
2	マスタ情報を取得	X-point上のマスタ情報を取得(API)
3	申請書を起票	申請フォームを立ち上げ、各フィールドへ申請内容を記入(API)
4	申請書を下書き保存	申請フォームの「下書きボタン」を押下(Selenium Basic)
5	コメントを追記	下書き済みの申請書のコメントへ補足情報を追記

ステップ1：今月起票対象の記入内容を取得

Excel操作のみなので詳細は割愛

ステップ2：マスタ情報を取得

①HTTPリクエスト設定

X-point API への接続を準備

マスタ毎に毎度実行するため、共通処理として定義

Set objHttp = HTTPリクエスト設定([URL])

Function HTTPリクエスト設定(URL As String)
    Dim objHttp As Object

    ' HTTPリクエスト設定
    Set objHttp = CreateObject("MSXML2.XMLHTTP")
    objHttp.Open "GET", URL, False

    objHttp.setRequestHeader "Authorization", "Bearer [トークン]"

    objHttp.send

    Set HTTPリクエスト設定 = objHttp

End Function

②既存データのクリア

前回取得したマスタ情報を削除

③レスポンスステータス確認

API レスポンスが正常（200 OK）かチェック
エラーの場合はメッセージを表示して中断

If objHttp.Status  200 Then
    MsgBox "XXXXマスタの更新に失敗しました。" &amp; vbCrLf &amp; _
      "管理者へお問い合わせください。" &amp; vbCrLf &amp; _
      "エラーコード：" &amp; objHttp.Status
    Exit Sub
End If

④JSON パース

JsonConverter.bas を使用してレスポンスを解析し VBA で扱えるオブジェクトに変換
```
Set objJson = JsonConverter.ParseJson(objHttp.responseText)
```

⑤データ転記

配列をループしてシートに書き込み
主なパターン
- objJson(“Resources”)
- objJson(“master”)(“data”)
- objJson(“result”)(“items”)

実装する際は、まず API レスポンスをデバッグ出力して構造を確認することをおすすめします。

 row_ct = 2
 For Each Var In objJson("master")("data")
     ws_XXXXマスタ.Cells(row_ct, "A").Value = Var("XXXX_id")
     ws_XXXXマスタ.Cells(row_ct, "B").Value = Var("XXXX_name")
     row_ct = row_ct + 1
 Next Var

ステップ3：申請書を起票

①処理対象リストを開く

②処理対象データを配列に読み込む

別ファイルの Excel から処理対象データを取得

③配列の内容をリクエストボディに変換する

JSON 形式のリクエストボディ（単体のフィールド、表形式のフィールド）を構築

表形式のボディはDictionaryとCollectionを組み合わせてJSON形式を表現してみました。

Set fields = CreateObject("Scripting.Dictionary")
Set data = CreateObject("Scripting.Dictionary")
Set datas = New Collection
Set oFields = CreateObject("Scripting.Dictionary")

リクエストボディ構築_単体フィールド

fields.Add "[単体フィールドID]", [記入する値]

リクエストボディ構築_表形式フィールド

Set collection1 = New Collection
For i = 1 To UBound(処理対象_ary, 1)
   For j = 1 To 10
      Set dict1 = CreateObject("Scripting.Dictionary")

      dict1.Add "[表形式フィールドID_1]", 処理対象_ary(i, [記入する値])
      dict1.Add "[表形式フィールドID_2]", 処理対象_ary(i, [記入する値])
      ～ 他の明細フィールドも同様に処理 ～

      collection1.Add dict1
   Next j
Next i

fields.Add "[表のID]", collection1

④X-point API にPOSTリクエスト送信

multipart/form-data 形式で送信

※ファイルアップロードなどで使われる HTTP のエンコード形式

data.Add "fields", fields
datas.Add data

oFields.Add "datas", JsonConverter.ConvertToJson(datas)

sBoundary = String(6, "-") &amp; Replace(Mid(GenerateGUID, 2, 36), "-", "")

multipart/form-data 形式のペイロード（実際に送信したいデータ本体）を構築

sPayLoad = "--" &amp; sBoundary &amp; vbCrLf &amp; _
           "Content-Disposition: form-data; name=""datas""" &amp; vbCrLf &amp; vbCrLf &amp; _
           JsonConverter.ConvertToJson(datas) &amp; vbCrLf &amp; _
           "--" &amp; sBoundary &amp; "--"

ADODB.Stream を使って文字列をバイナリに変換

※HTTP POST で UTF-8 エンコードされたデータを正確に送信するため

Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeText
stream.Charset = "UTF-8"
stream.Open

ChangeStreamType stream, adTypeText
stream.WriteText sPayLoad

ChangeStreamType stream, adTypeBinary
stream.Position = 0
formData = stream.Read
stream.Close

HTTP POST リクエストの送信（申請書を起票）

Set objHttp = CreateObject("MSXML2.XMLHTTP")
objHttp.Open "POST", "https://[X-pointクラウドURL]/xpoint/multiapi/v1/documents/docview", False
objHttp.setRequestHeader "Authorization", "Bearer [トークン]"
objHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" &amp; sBoundary

objHttp.send (formData)

※この時点では、必要事項が記入された申請書のウィンドウが立ち上がっただけの状態なので、下書き保存ボタン押下はSeleniumで実装

ステップ4：申請書を下書き保存

①レスポンスから URL を抽出

正規表現で下書きページの URL を取得
下書きボタンを自動押下(下書き起票が完了するまで3秒待機)

Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "
<a>"
Set matches = regex.Execute(objHttp.responseText)

URL = matches(0).submatches(0)
Call 下書きボタン押下(URL)

Sub 下書きボタン押下(URL As String)

    Dim driver As New Selenium.ChromeDriver
    Dim table As Object
    Dim button As Object

    driver.Get URL

    Set table = driver.FindElementById([テーブルID])
    Set button = table.FindElementById([ボタンID])
    button.Click

    Application.Wait (Now + TimeValue("00:00:03"))

    driver.Quit

End Sub

ステップ5：コメントを追記

①対象の書類にコメントを追記

コメントを追記する書類IDを指定する

json = "{""content"": """ &amp; コメント &amp; """, ""attentionflg"": 1}"

' コメント追加処理
Dim objHttp As Object
Set objHttp = CreateObject("MSXML2.XMLHTTP")
objHttp.Open "POST", "https://[X-pointクラウドURL]/xpoint/api/v1/documents/[書類ID]/comments", False
objHttp.setRequestHeader "Content-Type", "application/json"
objHttp.setRequestHeader "Authorization", "Bearer [トークン]"

objHttp.send (json)

まとめ

APIを使った開発は今回が初めてだったこともあり、大変身になる開発になりました。

更にブラッシュアップできる点（保守性の向上等）があるツールですので、自身も勉強も兼ねて少しずつ成長させていければと思います。

最後までお読みいただきありがとうございました。

明日のレコチョク Advent Calendar 2025 は14日目＜【Android】Unityアプリをネイティブアプリに組み込んでみる＞です。お楽しみに！

参考

X-point REST API利用ガイド

VBAでJSONを扱う場合はこれを読むといい – Qiita

RecoChoku Engineering Blog

目次