How to parse this URL

[cryptophan]

hi Experts..

how can i parse the data from this website into excel?

https://api.binance.com/api/v1/ticker/allPrices

into 2 columns

Symbol and Price

really appreciate the help

 

[cryptophan]

cryptophan

Did you follow the installation instructions on that page?

yes...

the code is working well in other website like this one

Sub getADA()

    Set MyRequest = CreateObject("winhttp.winhttprequest.5.1")
    MyRequest.Open "GET", "https://vip.bitcoin.co.id/api/ada_idr/ticker"
    MyRequest.send
    'MsgBox myrequest.responsetext
    
    Dim JSON As Object
    Set JSON = JsonConverter.ParseJSON(MyRequest.ResponseText)
    
    Range("C4") = JSON("ticker")("last")
   
End Sub

but it is error on this https://api.binance.com/api/v3/ticker/price?symbol=ADABTC

 

[Rick Rothstein]

hi rick
got run time error (80090326) when i try to run it

Which line of code was highlighted when that error message was displayed?

 

[Rob Kalan]

Hi Cryptophan,

I was tying to solve the same problem with the JsonConverter. Have you managed to solve the problem yet?

The code I have:

_________________________________________________________________

Sub Ticker()

Set wh = CreateObject("winhttp.winhttprequest.5.1")

Url = "https://api.binance.com/api/v3/ticker/price"

wh.Open "get", Url
wh.Send
wh.WaitForResponse
wh.ResponseText

Set wh = Nothing

Dim Json As Object
Dim result As Dictionary

Set Json = JsonConverter.ParseJson(wh.ResponseText)

For Each result In Json("results")

Debug.Print result("symbol")
Debug.Print result("price")

Next

Dim WrkSht As Worksheet
Set WrkSht = ThisWorkbook.Worksheets("json")


Count = 1

For Each result In Json("results")

WrkSht.Cells(Count, 1).Value = result("symbol")

WrkSht.Cells(Count, 2).Value = result("price")


Count = Count + 1

Next

End Sub
_________________________________________________________________


Many thanks