やれExcel、やれGoogle スプレッドシート: bitbankのリップルの過去価格データをVBA-JSONでエクセルに読み込む　-Excel VBA

2018/03/07

bitbankのリップルの過去価格データをVBA-JSONでエクセルに読み込む　-Excel VBA

ビットバンクのリップル(XRP)の過去価格データをAPIを利用してエクセルに読み込んでみたいと思います。

前回はリアルタイムの価格を表示しました。
ビットバンクのXRP/JPY価格をVBA-JSONでエクセルに読み込む　-Excel VBA

https://docs.bitbank.cc/

今回はCandlestick情報を読み込みます。
REST API一覧のCandlestickをクリックして通貨ペア、candle-type、日付時間を入力してTry it out を押すとリクエストURLが出てくるのでそれを使います。

Implementation Notes

[Public API] 指定された日付のロウソク足データを返す

ohlcv [始値, 高値, 安値, 終値, 出来高, UnixTime]

今回は私のほうで以下のように設定して通信したいと思います。
通貨ペア：xrp_jpy
candle-type：1week
日付時間：2017

リクエストすると下記のようなjsonが返ってきます。

{"success":1,"data":{"candlestick":[{"type":"1week","ohlcv":[["34.375","34.375","34.375","34.375","0.0000",1494806400000],["34.375","40.000","20.000","29.000","147665.4245",1495411200000],["29.000","48.000","25.500","35.800","281021.9841",1496016000000],

間省略

["27.001","99.200","26.900","83.004","134095800.5795",1512950400000],["83.004","154.811","80.000","119.997","113004844.9670",1513555200000],["119.992","300.000","114.001","244.442","126843076.4214",1514160000000]]}],"timestamp":1514764799676}}

始値, 高値, 安値, 終値, 出来高, UnixTimeをセルに出力したいと思います。
今回はJSONをセット→読み込み→パースの流れは省略します。

・VBAコード

詳しくはnoteに書きましたのでご覧ください。
【VBAプログラミング】　bitbankからOHLCVデータを取得して表示する方法

For i = LBound(tmp) To UBound(tmp)
xrpsheet.Cells(trow, tcol).Value = tmp(i)
If tcol <= 5 Then
tcol = tcol + 1
ElseIf tcol = 6 Then
tcol = 1
trow = trow + 1
Else: End If
Next i

1週間ごとにデータを見やすくしたいので、改行をしてます。
・実行結果