如何使用VBA和Google API key检索地址全名？

Option Explicit

Sub GetFullAddress()
    Dim address As String
    Dim url As String
    Dim xmlHttp As New MSXML2.XMLHTTP60
    Dim xmlDoc As New MSXML2.DOMDocument60
    Dim resultNode As MSXML2.IXMLDOMNode
    
    ' 输入要检索的地址
    address = "Your Address"
    
    ' 构建Google Geocoding API的URL
    url = "https://maps.googleapis.com/maps/api/geocode/xml?address=" & _
          URLEncode(address) & "&key=YOUR_API_KEY"
    
    ' 发送HTTP请求并获取响应
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
    ' 解析XML响应
    xmlDoc.LoadXML xmlHttp.responseText
    
    ' 获取地址全名节点
    Set resultNode = xmlDoc.SelectSingleNode("//formatted_address")
    
    ' 输出地址全名
    If Not resultNode Is Nothing Then
        MsgBox resultNode.Text
    Else
        MsgBox "Address not found."
    End If
End Sub

Function URLEncode(ByVal str As String) As String
    Dim i As Integer
    Dim charCode As Integer
    Dim result As String
    
    For i = 1 To Len(str)
        charCode = Asc(Mid(str, i, 1))
        If charCode < 128 Then
            result = result & Chr(charCode)
        Else
            result = result & "%" & Hex(charCode)
        End If
    Next i
    
    URLEncode = result
End Function