0

我正在寻找一种解决方案，通过 JSON Web 服务自动更新我的 Excel 表中的单元格。我找到了一种通过 XML 执行此操作的方法，但不幸的是无法通过 JSON 执行此操作。

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

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

我什至想过使用 RegEx 来获取价值，但我也找不到这样做的方法。

我真的希望在不使用许多不同的 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 回答