VBA-WEB не может авторизоваться с помощью httpbasic authenticator - PullRequest
0 голосов
/ 05 июля 2019

Я пытаюсь использовать 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...