本記事はヴァル研究所の支援として作成された記事です
駅すぱあとはAPIを公開しており、駅情報や経路探索などをAPI経由で行えます。メソッドはすべてGETメソッドで、情報取得系のみです。レスポンスはJSONまたはXMLで返ってきます。
この駅すぱあと APIを利用しやすくするSDKを開発しはじめました。SDKはVBAで作っており、Excelなどから利用できます（Windowsのみ、macOSでは利用できません）。
今回は、スタンダードプランで提供されている経路情報の更新判定APIに対応しました。このAPIは、「駅すぱあと」のデータとして、名称が変更された、削除されたなどの更新状態を判定します。駅名が変わった際などは、その新旧駅名を取得できます。
具体的な利用シーンとしては、通勤費管理（定期代支給）です。通勤手当の支給の際には、従業員の通勤経路の情報を保持していますが、通勤経路の駅や路線の名前が変更になったり、駅や路線が廃止になったりした場合に、見つけることができる機能となります。
では、使い方を紹介します。
必要な情報
SDKを利用する際にはAPIキーが必要です。無料トライアルがあるので、こちらから取得してください。
注意点
- SDKはWindowsでのみ動作します
- SDKは非公式です。公式サポートへの問い合わせはご遠慮ください
ファイルのインポート
こちらのリポジトリにある *.cls と *.bas ファイルをすべてインポートします。これらは以下のライブラリを含んでいます。
初期化
先ほど取得したAPIキーを使ってSDKを初期化します。
Dim client As Ekispert
Set client = New Ekispert
client.ApiKey = "YOUR_API_KEY"
経路情報の更新判定の設定
経路情報の更新判定を行う際には、まず駅や路線、会社を指定して検索します。検索は ToolboxCourseUpdateQuery にて行います。以下の条件は、経路情報の更新判定 - 駅すぱあと API Documents 駅データ・経路検索のWebAPIにある条件を再現するものです。
Dim Query As ToolboxCourseUpdateQuery
Set Query = Client.ToolboxCourseUpdateQuery()
Query.DateProp = DateSerial(2020, 4, 1)
Query.StationNameList(0) = "高円寺"
Query.StationNameList(1) = "羽田空港第２ビル(東京モノレール・ＡＮＡ利用)"
Query.StationNameList(2) = "川平"
Query.StationNameList(3) = "古瀬"
Query.StationNameList(4) = "江差"
Query.RailNameList(0) = "ＪＲ中央線快速"
Query.RailNameList(1) = "近鉄奈良線快急"
Query.RailNameList(2) = "小田急小田原線急行(代々木上原－新百合ケ丘)"
Query.RailNameList(3) = "旅客船(丸亀港～手島港)"
Query.CorporationNameList(0) = "ＪＲ"
Query.CorporationNameList(1) = "東京急行電鉄"
Query.CorporationNameList(2) = "富山ライトレール"
Query.CorporationNameList(3) = "十和田観光電鉄"
Query.CorporationNameList(4) = "備讃フェリー"
検索の実行
検索条件を設定したら、検索処理を実行します。結果は ResultSet クラスになります。探索がうまくいったかどうかは ResultSet.Success の値で判定してください。
Dim Result As ResultSet
Result = Query.Find()
Debug.Print Result.Success ' True または False
エラーだった場合
もし探索がエラーだった場合は ResultSet.Error の中にエラー情報があります（駅すぱあと APIからのエラーの場合）。
If Not Result.Success Then
MsgBox Result.Error.Message
Exit Sub
End If
成功した場合
処理が成功した場合、 ResultSet.Updates に更新情報の配列が入っています。そして、更新情報には路線（Line）、経路（Point）、会社（Corporation）の情報が入っています。
Dim i As Integer
Dim Update As Update
For i = 0 To UBound(Result.Updates)
Update = Result.Updates(i)
' 路線の更新情報
If (Not Not Update.Lines) <> 0 Then
Debug.Print Update.Lines(0).Status.Code
Debug.Print Update.Lines(0).Name
End If
' 駅の更新情報
If (Not Not Update.Points) <> 0 Then
Debug.Print Update.Points(0).Status.Code
Debug.Print Update.Points(0).Station.Name
End If
' 会社の更新情報
If (Not Not Update.Corporations) <> 0 Then
Debug.Print Update.Corporations(0).Status.Code
Debug.Print Update.Corporations(0).Name
End If
Next i
ソースコード
SDKのコードは以下のリポジトリにて公開しています。ライセンスはMIT Licenseです。
EkispertAPIMania/VBA-SDK: Excel VBAなどで動作する駅すぱあと VBA SDKです（Windowsのみ）
まとめ
経路情報の更新判定APIを使うことで、最新の路線・地点情報などに更新できます。変更前後の値も分かるので、データベースを更新したり、差分も取りやすくなります。
定期的に実行することで、情報を最新の状態に保持できます。ぜひ、システム開発に役立ててください。
何か不具合があれば、Issueにて連絡いただければ対応します（macOSでは動かないので注意してください）。
EkispertAPIMania/VBA-SDK: Excel VBAなどで動作する駅すぱあと VBA SDKです（Windowsのみ）