Based the link, how to set the GET code for:
Great tks
my test code:
Option Explicit
Private Sub RestExample()
Dim APICall As String
Dim Query As String
Dim strKey As String
Dim myXML As New MSXML2.DOMDocument60
Dim nodes As IXMLDOMSelection
APICall = " With CreateObject("MSXML2.XMLHTTP")
.Open "GET", APICall, False
.setRequestHeader "Authorization", "Bearer zzzzzzzzzzzzzzzzzzzzzzzzzz"
.send
Debug.Print .responseText
End With
End Sub
in debug.print i have:
{"success":false,"message":"No auth provided, Basic Needed","error":110,"data":null}
Great tks
my test code:
Option Explicit
Private Sub RestExample()
Dim APICall As String
Dim Query As String
Dim strKey As String
Dim myXML As New MSXML2.DOMDocument60
Dim nodes As IXMLDOMSelection
APICall = " With CreateObject("MSXML2.XMLHTTP")
.Open "GET", APICall, False
.setRequestHeader "Authorization", "Bearer zzzzzzzzzzzzzzzzzzzzzzzzzz"
.send
Debug.Print .responseText
End With
End Sub
in debug.print i have:
{"success":false,"message":"No auth provided, Basic Needed","error":110,"data":null}