久しぶりの投稿です。
今回はExcel VBAを使って簡単にAPIを取得する方法を話したいと思います。
長々書くのは面倒なので、少しでもVBAを扱ったことがある人向けで話しますね。
準備
実際にAPIを取得するための準備をします!
参照設定
まずは参照設定です。
Excelを開いたら、[Alt + F11]でVBE(マクロを書くところ)を開きます。
上のタブにある[ツール(T)]を選択、参照設定をクリックしましょう。
参照設定ウィンドウが開かれたら、[Microsoft XML v3.0]にチェックをいれて[OK]をクリックです!
コード
次に、コードを書きます。今回は下記のコードを使いますね。
左にある[プロジェクト – VBAProject]で、なにもないところを右クリックして、
[挿入] – [標準モジュール]を選択します。コードを入力する画面が出てくるので、以下のコードをコピーして貼り付けましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Function GetAPI(ByVal URL As String) As String Dim XMLData As New MSXML2.XMLHTTP With XMLData .Open "GET", URL, False '非同期モードで通信を開始 .setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT" 'キャッシュを返さないよう設定 .send 'リクエストを送信 If .Status <> 200 Then Exit Function 'リクエスト失敗で終了 GetAPI = .responseText End With End Function |
テスト
上記の準備が終わったら実際にテストをしてみましょう。
今回は仮想通貨取引所bitFlyerのビットコイン価格を取得できるAPIを使ってやります。
エクセルのシートに以下のコードを貼り付けてください。
1 |
=GetAPI("https://api.bitflyer.jp/v1/getticker") |
画像のように表示されたら成功です。
今回は以上です。
VBAや関数などでカスタマイズして使ってみて下さい!
また、下記ページにてAPIで全通貨ペア相場変動情報が取得できる仮想通貨取引所一覧を紹介してます。
そちらも良ければどうぞ。
---コメント---