Добрый день. Есть функция которую писали в VBA (парсит курс валют), в новых версиях excel отрабатывает все хорошо, в старом 2003 excel выдает #знач. В чем может быть проблема?
Сама функция выложил ниже, а также для ее работы необходима библиотека Json, ее я прикрепил. Задавать валютную пару нужно в таком формате BTC_UAH
Сама функция выложил ниже, а также для ее работы необходима библиотека Json, ее я прикрепил. Задавать валютную пару нужно в таком формате BTC_UAH
Код |
---|
Function BtcBid(pair) Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String Dim x As Object API = "https://btc-trade.com.ua/api/ticker/" + pair xmlhttp.Open "GET", API, False xmlhttp.Send Set x = ParseJson(xmlhttp.responseText) Set xmlhttp = Nothing BtcBid = val(x(pair)("buy")) End Function |