Wie Google die Adresse und den Rückgabewert wieder in Excel mit den Excel-VBA?

Sollte die folgenden Informationen erforderlich, um das problem zu lösen

Hier ist ein Beitrag, der zeigt, wie Sie mit VBA und XML, um die Interaktion mit Google Maps (über google-maps api).

Und Hier ist google Place API, die ist, was Sie suchen (anfordern/empfangen von Informationen von google).

Antwort

Habe ich einen working test. Erstellen Sie ein google-API-Schlüssel, Sie können gehen hier zu tun. Sobald Sie den API-Schlüssel, steckte ihn in den code, und führen Sie es.

Beachten Sie, dass Google nicht einschränken, wie oft ein API-Schlüssel kann verwendet werden, jeden Tag. Ein free-user scheint um 1000 "Anforderungen" an den "Ort" API-jeden Tag. Dummerweise sind einige der Anrufe scheinen mehr Wert sein "Anfragen" sind als andere. Mein code macht 2 Anrufe zu google ' s "place" - API, aber google zählt als 11 Anfragen. Dies ist, da ein Aufruf von "Ort/textsearch" im Wert von 10 "Anfragen". Meine anderen Ruf war es, Orte/details lohnt sich 1. All dies bedeutet, dass Sie beschränkt sind 90 Einträge pro Tag/free-api-Schlüssel mit dieser Methode.

Hier ist Google ' s place/search-Dokumentation

Hier ist Google ' s place/Daten Dokumentation

Schließlich diese war ein toller Beitrag für dieses Thema, ich basiert mein code aus.

Test Ausgabe:

Code:

Sub myTest()
    Dim xhrRequest As XMLHTTP60
    Dim domDoc As DOMDocument60
    Dim domDoc2 As DOMDocument60
    Dim placeID As String
    Dim query As String
    Dim nodes As IXMLDOMNodeList
    Dim node As IXMLDOMNode

    'you have to replace spaces with +
    query = "Cornell+Museum+of+Glass"

    'You must acquire a google api key and enter it here
    Dim googleKey As String
    googleKey = "imaginary api key" 'your api key here

    'Send a "GET" request for place/textsearch
    Set xhrRequest = New XMLHTTP60

    xhrRequest.Open "GET", "https://maps.googleapis.com/maps/api/place/textsearch/xml?" & _
        "query=Cornell+Museum+of+Glass&key=" & googleKey, False
    xhrRequest.send

    'Save the response into a document
    Set domDoc = New DOMDocument60
    domDoc.LoadXML xhrRequest.responseText

    'Find the first node that is called "place_id" and is the child of the "result" node
    placeID = domDoc.SelectSingleNode("//result/place_id").Text

    'recycling objects (could just use new ones)
    Set domDoc = Nothing
    Set xhrRequest = Nothing

    'Send a "GET" request for place/details
    Set xhrRequest = New XMLHTTP60
    xhrRequest.Open "GET", "https://maps.googleapis.com/maps/api/place/details/xml?placeid=" & placeID & _
    "&key=" & googleKey, False
    xhrRequest.send

    'Save the response into a document
    Set domDoc = New DOMDocument60
    domDoc.LoadXML xhrRequest.responseText

    Dim output As String
    Dim s As String

    'hacky way to get postal code, you might want to rewrite this after learning more
    Set nodes = domDoc.SelectNodes("//result/address_component/type")
    For Each node In nodes
        s = node.Text
        If s = "postal_code" Then
            'this is bad, you should search for "long_name", what i did here was assume that "long_name was the first child"
            output = vbNewLine & "Postal Code: " & node.ParentNode.FirstChild.Text
        End If
    Next node

    'output
    MsgBox "Formatted Address: " & domDoc.SelectSingleNode("//result/formatted_address").Text & output
End Sub

'####

EDIT: Jetzt mit Platz-API eher als Geocoding API

InformationsquelleAutor Alter

Man sich einen API-key und dann funktioniert der code einwandfrei. Gehen Sie auf den link unten, und klicken Sie auf die Schaltfläche, die liest 'A KEY'.

https://developers.google.com/maps/documentation/javascript/tutorial

InformationsquelleAutor