Данные из Binance.com в Excel через API


    Одним из простых способов получения данных из криптовалютных торговых бирж в программу MS Excel для дальнейшего использования или анализа , это вставка программного кода в сам Excel.

   Программа на VBA подключается к бирже через API и в зависимости от того, какие вы хотите получить данные меняете строку подключения. В результате получаете данные в виде стоки, которую в дальнейшем в коде можно распарсить по своему усмотрению.

Вот простой пример получения текущей цены торгуемой пары EOS/ETH с биржи Binance:

Private Sub Workbook_Open()
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", "https://api.binance.com/api/v3/ticker/price?symbol=EOSETH", False
    
    XMLHTTP.Send
    If XMLHTTP.statustext = "OK" Then
        txt = XMLHTTP.responseText
        Cells(2, 5) = txt
        txt = Mid(txt, 29, 10)
        Cells(2, 3) = txt
    End If
    XMLHTTP.abort
    Set XMLHTTP = Nothing

End Sub

Эта простенькая программа считываемую строку, для примера, выводит в ячеку MS Excel вот в таком виде:

{"symbol":"EOSETH","price":"0.02672500"}

Ну а дальше вырезает текущую цену с помощью функции VBA MID начиная с 29 символа и длиной 10 и вставляет в другую ячейку Excel.

Можно конечно нужное значение строки вырезать и другими функциями VBA, например Replace, заменяя ненужные символы пустой строкой, но это дело вкуса каждого.

Например так, в два этапа

txt = Replace(txt,"{""symbol"":""EOSETH"",""price"":""", "")

txt = Replace(txt, """}", "")

Вот таким простым способом можно взаимодействовать с криптовалютными биржами через MS Excel на VBA.

Добавить комментарий