Question

我正在寻找一种解决方案，通过JSON Web服务自动更新Excel表格中的单元格。我已经找到了一种通过XML实现此目的的方法，但遗憾的是无法通过JSON实现此目的。

我想使用的网络服务是：https://mtgox.com/api/1/BTCUSD/ticker

我想在表格中使用return.avg.value的值。

我甚至想过使用RegEx来获取价值，但我也找不到办法。

我真的希望有一个解决我的问题的方法，而不使用很多不同的Excel插件和插件，所以我的桌子仍然可移植。

感谢您的帮助，

弗雷德里克

Answer 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

来自JSON Webservice的Excel 2010中的autoupdate Cell

1 个答案: