Уже пятый день бьюсь головой об клавиатуру. Чтобы спарсить курсы валют в эксель таблицу. Пробовал и через PQ и даже что то пробовал через Макросы. Но ничего не получается. Нашел куда идет запрос https://www.binance.cc/bapi/c2c/v2/friendly/c2c/adv/search, но так же не могу подключится даже, не то чтобы получить интересующие меня курсы валют. Быть может есть здесь знающий человек, который хотя-бы направление правильно укажет.
Sub Parser_USD()
Dim OBJHTTP As Object
Dim Url$, Str$
Set OBJHTTP = CreateObject("MSXML2.XMLHTTP")
Url = "https://p2p.binance.com/bapi/c2c/v2/friendly/c2c/adv/search"
With OBJHTTP
.Open "POST", Url, False
.setRequestHeader "Accept", "*/*"
.setRequestHeader "Content-type", "application/json"
.setRequestHeader "Origin", "https://p2p.binance.com"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"
.send "{""page"":1,""rows"":10,""payTypes"":[],""asset"":""USDT"",""tradeType"":""BUY"",""fiat"":""USD"",""publisherType"":""merchant"",""merchantCheck"":true}"
Str = .ResponseText
End With
Set OBJHTTP = Nothing
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Кирилл Чернышев, ну, вот тут Николай рассказывает и показывает как затащить параметр с листа в запрос. А дальше уже по аналогии можете подставить полученный параметр в фильтре запроса к апи. Каким образом передается в апи данный параметр от сайта к серверу смотрите в Средствах разработчика браузера. Мне сейчас немножко не до этого.
PooHkrd, Я правильно понимаю в эту строчку добавляю content = Json.Document("{""page"":1,""rows"":20,""payTypes"":[],""asset"":""USDT"",""tradeType"":""BUY"",""fiat"":""USD"",""publisherType"":""merchant"",""merchantCheck"":true}") параметр в котором лимит указывается?
Кирилл Чернышев, Коля Иванов, уважаемые товарищи, еще вчера написал, нет у меня щас времени ковыряться с этим вопросом. Используйте Яндекс, там все есть. Когда увидите что именно отправляет на сервер браузер, подкорректируйте пример моего запроса под ваш случай.
Всем привет! Истратил неделю. Что делал: 1. Вставил Код в Макрос Excel - понимаю что запрос выполнен, но выгрузки в файл не провел. 2. Вставил Код в Power Query - ругается на Json.FromValue (не может распознать) 3. Попробовал через Google Sheets - importApi - не может вернуть нормальный запрос.