바이낸스 API 엑셀 모든 코인 현재 거래 시세 정리 - VBA

바이낸스 API 중 ticker 가 존재합니다.

 

ticker api를 활용하여 바이낸스에서 거래되고 있는 모든 코인의 시세를 정리할 수 있습니다.

 

코드는 간단합니다.

 

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
ResultText = wh.responsetext

Set wh = Nothing

End Sub

 

결괏값인 ResultText 에는

 

[{"symbol": "LTCBTC", "price": "4.00000200"}, {"symbol": "ETHBTC", "price": "0.07946600"}]

이런 식의 텍스트가 주어집니다. 이것을 파싱 해서 사용하시면 됩니다.

 

SYMBOL의 의미는 앞에 존재하는 코인을 뒤에 재화로 구매할 때 비용입니다.

ETHBTC : ETH를 BTC로 구매할 때 가격입니다.

파싱은 방법이 모두 다르기 때문에

 

제가 파싱을 적용한 엑셀 파일은 첨부하였습니다.

 

binance_ticker.xlsm

0.05MB