excel - VBA - Excel に表示される API 呼び出し

Question

特定の暗号通貨の価格を Excel シートに表示しようとしています。CoinMarketCap の API から JSON データを抽出しています - https://api.coinmarketcap.com/v1/ticker/

最終的に、Ripple の価格を取得しようとしており (16 行目)、Excel シートのセル B1 に Ripple の価格を表示するように設定しています (17 行目)。

これは私のスクリプトですが、何らかの理由で機能していません。

Sub test()

Dim httpObject As Object
Set httpObject = CreateObject("MSXML2.XMLHTTP")

sURL = "https://api.coinmarketcap.com/v1/ticker/"

sRequest = sURL
httpObject.Open "GET", sRequest, False
httpObject.Send
sGetResult = httpObject.ResponseText

Dim oJSON As Object
Set oJSON = JsonConverter.ParseJson(sGetResult)

  If oJSON.Name = "Ripple" Then
  B1 = oJSON("Ripple")("price_usd")

End If
End Sub

API 呼び出しは成功していますが (私は信じています)、構文エラーなどが発生します。誰かが助けてくれることを願っています。前もって感謝します

編集：これはMicrosoft Excel 2010です

EDIT 2：それは16行目と17行目です（それぞれ問題If oJSON.Name...をB1 = oJSON(...引き起こしていますが、今のところ解決できません/エラーを見つけることができません。実行時エラーなどのコメントを参照してください。

編集 3: アイテム (sItem) ではなく oJSON を参照することで、16 行目と 17 行目で間違いを犯したと思います。ただし、これを変更しても (例: If sItem.Name = "Ripple" Then...)、まだ機能しません。

編集 4: 私も間違った方法で Excel セルにタグを付けたと思います。単に を書く代わりに、テストで動作した をB1 = ...書いRange.("B1").Value = ...ています。