0

JSON Webservice を介して Excel テーブルのセルを自動的に更新するソリューションを探しています。XML 経由でこれを行う方法を見つけましたが、残念ながら JSON 経由でこれを行う方法はありません。

使用したい Web サービスはhttps://mtgox.com/api/1/BTCUSD/tickerです。

そして、テーブルで return.avg.value の値を使用したいと思います。

正規表現を使用して値を取得することも考えましたが、その方法も見つかりませんでした。

Excel 用のさまざまなアドオンやプラグインを多数使用せずに問題を解決できることを切に願っています。

ご協力ありがとうございました、

フレデリック

4

1 に答える 1

1 
Sub TestJson()
    Dim json As String
    Dim sc As Object, o

    json = WebResponse("https://mtgox.com/api/1/BTCUSD/ticker")

    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"

    o = sc.Eval("eval(" & json & ")['return'].avg.value")

    Debug.Print o

End Sub



Public Function WebResponse(sURL As String) As String
    Dim XmlHttpRequest As Object
    Set XmlHttpRequest = CreateObject("Msxml2.ServerXMLHTTP.4.0")
    XmlHttpRequest.Open "GET", sURL, False
    XmlHttpRequest.send
    WebResponse = XmlHttpRequest.responseText
End Function
于 2012-10-30T19:48:38.243 に答える