API的網頁鏈接包含JSON，使用vba導入到excel

Question

我想使用API​​的http://services.runescape.com/m=itemdb_rs/api/catalogue/category.json?category=X和http://services.runescape.com/m=itemdb_rs/api/catalogue/items.json?category=X&alpha=Y&page=Z 獲得盛大交換中runescape的所有項目的數據我可以像這樣在Web瀏覽器中獲取json文本：

Sub High_Alch() 

Dim IE As New InternetExplorer 

Dim url As String 

Dim url1 As String 

Dim url2 As String 

Dim url3 As String 

url = "services.runescape.com/m=itemdb_rs/api/catalogue/category.json?category=" 

IE.Visible = True 

For i = 0 To 37 


    IE.navigate (url + CStr(i)) 


Next i 

End Sub 

我如何得到這個字符串在vba中，我如何使用數據？我想使用類別API知道每個類別中每個字母有多少項目，然後使用它來知道項目API中有多少頁面。 有人可以幫我嗎？

Answer 1

我不會爲此使用InternetExplorer。相反，我會使用XMLHTTP。

解析JSON與VBA參見https://github.com/VBA-tools/VBA-JSON。

Sub test() 

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

sURL = "http://services.runescape.com/m=itemdb_rs/api/catalogue/category.json?category=" 

For i = 0 To 1 'only category 0 and 1 because of clicking OK in MsgBox ;-) 
    sRequest = sURL & i 
    httpObject.Open "GET", sRequest, False 
    httpObject.send 
    sGetResult = httpObject.responseText 
    Set oJSON = JsonConverter.ParseJson(sGetResult) 
    Set oAlpha = oJSON("alpha") 
    For Each oLetter In oAlpha 
    sLetter = oLetter("letter") 
    lItems = oLetter("items") 
    MsgBox "In category " & i & ": Letter " & sLetter & " has " & lItems & " items." 
    Next 

Next 

End Sub