save json resuult in c:\mydir

[sal21]

ths code return a json.

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

[HansV]

Code: Select all

Sub TEST_JSON_PARSE()
    Dim f As Long
    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", "***********"
        .Send
        f = FreeFile
        Open "C:\MyDir\JSON.TXT" For Output As #f
        Print #f, .responseText
        Close #f
    End With
    
End Sub

[sal21]

Code: Select all

Sub TEST_JSON_PARSE()
    Dim f As Long
    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", "Bearer xxxx"
        .Send
        f = FreeFile
        Open "C:\MyDir\JSON.TXT" For Output As #f
        Print #f, .responseText
        Close #f
    End With
    
End Sub

tks!

plese hide the key!

[HansV]

Done. Please don't post sensitive information such as keys in the future.

[sal21]

Done. Please don't post sensitive information such as keys in the future.