Создание GET запроса на API и получение JSON ответа с импортом данных в нужные ячейки

[YellRobin]

Serge_Bliznykov, скажите пожалуйста, т.е я могу при помощи одного, созданного собой, макроса импортировать посредством GET данные из одной колонки на API, и посредством Json ( ответ сервера текстовым значением по каждой ячейке) ответные данные будут прилетать в другую колонку с ячейками???

[Serge_Bliznykov]

Вы запускаете макрос, в макросе делаете запрос, получаете данные и размещаете их туда, куда нужно.

посмотрите, например, вот эту тему - http://www.excelworld.ru/forum/10-23392-1

Option Explicit

'http://steamcommunity.com/market/priceoverview/?currency=5&country=us&appid=11111&market_hash_name=22222&format=json
'вместо 11111 должно быть значение из 1 колонки, а вместо 22222 - из второй.
'Пример ответа: {"success":true,"lowest_price":"71,08 p\u0443\u0431.","volume":"1,126","median_price":"70,56 p\u0443\u0431."}
Sub qwerty()
Dim i, r, a, b, s, u, lr
With Лист3
lr = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(2, 3).Resize(lr - 1, 3).ClearContents
For r = 2 To lr
    a = .Cells(r, 1)
    b = .Cells(r, 2)
    s = "http://steamcommunity.com/market/priceoverview/?currency=5&country=us&appid="
    s = s & a & "&market_hash_name="
    s = s & b & "&format=json"
    i = GetHTTPResponse(s)
    Debug.Print i
    u = Split(i, ":")
    .Cells(r, 3) = Replace(Trim(Replace(Split(u(2), "\")(0), "p", "")), Chr(34), "")
    .Cells(r, 4) = Replace(Trim(Replace(Split(u(4), "\")(0), "p", "")), Chr(34), "")
    .Cells(r, 5) = Now
Next r
End With
End Sub

Private Function GetHTTPResponse(ByVal sURL As String) As String
    Dim oXMLHTTP
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .SetRequestHeader "Cache-Control", "max-age=0"
        .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        .SetRequestHeader "Accept-Encoding", "deflate"
        .SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
        .send
        GetHTTPResponse = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function

ещё полезно почитать вот эти темы -
http://excelerator.solutions/2017/08...p-get-request/
https://www.planetaexcel.ru/forum/in...ID=96058&MID=s

[YellRobin]

Спасибо за ресурсы - ознакомлюсь!