получить данные через rest api

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » получить данные через rest api (Макросы/Sub)

SuperMicha

Дата: Воскресенье, 17.05.2020, 13:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Пытаюсь получить данные через rest api.
Пробовал и через WinHttpRequest и через MSXML2.ServerXMLHTTP60

Как только в строке запроса хоть одна русская буква - сразу вылетает с ошибкой

-2147012744 Сервер вернул недопустимый или не распознанный ответ. Причем скорее всего даже запрос не отправлялся.

Через Postman и через браузер - API работает. И без каких-либо header-ов.

Кто-то знает что делать?

Вот примеры кода.

[vba]

Код

Sub Макрос1()

Dim hRequest As Object

Set hRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
hRequest.SetTimeouts 200000, 200000, 200000, 200000
urlapi = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Фkljbkyihgvkyv"
hRequest.Open "GET", urlapi, False
hRequest.Send

End Sub

Sub Макрос2()

Dim requestString As String
Dim request As MSXML2.ServerXMLHTTP60

requestString = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Oфbject to request"
Set request = New ServerXMLHTTP60
request.Open "GET", requestString, False
request.Send

End Sub

[/vba]