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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)