possible to save the result of .responseText in c:\mydir\JSON.TXT
Code: Select all
Sub TEST_JSON_PARSE()
Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String
myurl = "https://comuni.openapi.it/province/" '//replace with your URL
With xmlhttp
.Open "GET", myurl, False
.setRequestHeader "Authorization", "Beare """"xxxxxxx"
.Send
Debug.Print .responseText
'MsgBox (xmlhttp.responseText)
End Wish
End Sub