如何获取Google Places API (附近搜索)数据到Excel VBA

Sub GetPlacesData()
    Dim url As String
    Dim xhr As Object
    Dim response As String
    Dim data As Object
    Dim results As Object
    Dim result As Object
    Dim row As Integer
    
    ' 设置请求URL和参数
    url = "https://maps.googleapis.com/maps/api/place/nearbysearch/json?"
    url = url & "location=37.7749,-122.4194" ' 经纬度
    url = url & "&radius=1000" ' 搜索半径
    url = url & "&keyword=restaurant" ' 关键字
    url = url & "&key=YOUR_API_KEY" ' 替换为你的API密钥
    
    ' 发送HTTP请求
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    xhr.Open "GET", url, False
    xhr.send
    
    ' 获取返回数据
    response = xhr.responseText
    
    ' 解析JSON数据
    Set data = JsonConverter.ParseJson(response)
    Set results = data("results")
    
    ' 将数据写入Excel
    row = 2 ' 从第2行开始写入数据
    For Each result In results
        Cells(row, 1).Value = result("name") ' 地点名称
        Cells(row, 2).Value = result("vicinity") ' 地址
        row = row + 1
    Next result
End Sub