我无法在Microsoft Excel中获取国家/地区的纬度和经度

Function GetLatLng(address As String) As String
    Dim url As String
    Dim http As Object
    Dim response As String
    Dim latLng As String
    
    ' 构建请求URL
    url = "https://apis.map.qq.com/ws/geocoder/v1/?address=" & address & "&key=YOUR_API_KEY"
    
    ' 创建HTTP请求对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    http.Open "GET", url, False
    http.send
    
    ' 获取响应数据
    response = http.responseText
    
    ' 解析JSON响应，提取纬度和经度数据
    latLng = Split(Split(response, """location"":{""lat"":")(1), ",")(0) & "," & Split(Split(response, """location"":{""lng"":")(1), "}")(0)
    
    ' 返回纬度和经度数据
    GetLatLng = latLng
End Function