從JSON Webservice在Excel 2010中自動更新單元格

我正在尋找解決方案，通過JSON Webservice自動更新Excel表格中的單元格。我找到了一種通過XML實現這一點的方法，但不幸的是沒有辦法通過JSON來實現。從JSON Webservice在Excel 2010中自動更新單元格

我想用WebService的是：https://mtgox.com/api/1/BTCUSD/ticker

而且我想用return.avg.value的價值在我的表。

我甚至想過使用RegEx來獲取值，但我也找不到這樣做的方法。

我真的希望有一個解決方案，我的問題沒有使用Excel的很多不同的插件和插件，所以我的表仍然可移植。

感謝你的幫助，

弗雷德裏克

來源

2012-10-30 Frederick Behrends

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-30 19:48:38

我對'的CreateObject（「Msxml2.ServerXMLHTTP.4.0」）'和'的CreateObject（「ScriptControl的」）'得到運行時錯誤429 –

你在Mac上嗎？如果是，那麼你需要一個不同的解決方案。雖然我不熟悉那個環境。 –

Nope，Win7 - Office 2010 –

從JSON Webservice在Excel 2010中自動更新單元格

回答

相關問題