Я пытаюсь использовать VBA-Web для отправки REST API через Excel VBA и сталкиваюсь с проблемами
https://github.com/VBA-tools/VBA-Web
Я пытался изменить этот пример, чтобы использовать HttpBasicAuthenticator, но безуспешно он говоритОшибка HTTP 401. Когда я использую Почтальон для отправки запроса на отдых, это нормально.
https://github.com/revisohq/api-samples/tree/master/rest/excel
Если я использую этот URL, который не требует аутентификации.Работает как положено
https://rest.reviso.com/customers?demo=true
Private Sub Worksheet_Activate()
Dim Client As New WebClient
Dim Request As New WebRequest
Client.TimeoutMs = 30000 ' 30 seconds
Client.BaseUrl = "https://postman-echo.com/basic-auth"
'Client.BaseUrl = "https://rest.reviso.com/customers?demo=true"
Request.Format = WebFormat.Json
Dim Auth As New HttpBasicAuthenticator
Auth.Setup _
Username:="postman", _
Password:="password"
Dim Response As WebResponse
Set Response = Client.Execute(Request)
If Response.StatusCode <> Ok Then
Sheets("Test").Range("A1") = Response.StatusDescription
Exit Sub
End If
Dim Json As Object
Set Json = WebHelpers.ParseJson(Response.Content)
FillData Json
End Sub