Loquate API

[Ashen]

I have a file of data already prepared for running through the API here

Address Verification, Data Validation & Geocoding Software | Loqate, a GBG solution

Improve data quality by capturing correct UK addresses. Boost conversions and user experience with postcode address verification and geocoding technology.

www.loqate.com

and i would REALLY like to do this using VBA, but i have to be honest, it could be because its late and i am tired, but i'm struggling to see how i can send this file [C:\Users\XXXX\Loquate.txt ] to the data cleansing service, and get the results back to either a text file or excel file.... I have a key, and am reasonable with VBA, but none of the googling i have done is giving me a clue....

 

[John_w]

Untested, etc. but try this, assuming your Loquate.txt file is in the format shown in the example request:

Public Sub API_request()

    Dim FSO As Object, httpReq As Object, ts As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set httpReq = CreateObject("MSXML2.XMLHTTP")
    With httpReq
        .Open "POST", "https://api.addressy.com/Cleansing/International/Batch/v1.00/json4.ws", False
        .setRequestHeader "Content-Type", "application/json"
        .send (FSO.OpenTextFile("C:\Users\XXXX\Loquate.txt").ReadAll)
        Set ts = FSO.CreateTextFile("C:\Users\XXXX\Results.txt")
        ts.Write .responseText
        ts.Close
    End With

End Sub

 

[Ashen]

Untested, etc. but try this, assuming your Loquate.txt file is in the format shown in the example request:

Public Sub API_request()

    Dim FSO As Object, httpReq As Object, ts As Object
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set httpReq = CreateObject("MSXML2.XMLHTTP")
    With httpReq
        .Open "POST", "https://api.addressy.com/Cleansing/International/Batch/v1.00/json4.ws", False
        .setRequestHeader "Content-Type", "application/json"
        .send (FSO.OpenTextFile("C:\Users\XXXX\Loquate.txt").ReadAll)
        Set ts = FSO.CreateTextFile("C:\Users\XXXX\Results.txt")
        ts.Write .responseText
        ts.Close
    End With

End Sub

wow - that looks amazing - thank you so much, just need to check my results - but seriously THANK YOU!