使用Google Maps API的两个邮政编码和Excel中的一组邮政编码之间的距离

-1

我在Excel中拥有一组邮政编码对。我的目标是使用谷歌地图API或任何其他良好的来源，并获得这两个邮政编码之间的距离。这可能吗？如果这些数据点位于SQL Server表中，是否有使用SSIS Web服务任务的方法？使用Google Maps API的两个邮政编码和Excel中的一组邮政编码之间的距离

我想了解如何做到最好的一些指针。我查看了Google Distance Matrix API，但明确提到严格禁止在非Google地图用法中使用该API。

预先感谢您指导我如何设计。

来源

2015-05-27 Manus

这查询已被回答。我使用了TMH提供的TheAnalystCave网站链接上提供的代码片段。 – Manus

分析员洞有一个伟大的写了关于使用谷歌API的正是这一点：
http://www.analystcave.com/excel-calculate-distances-between-addresses/

Public Function GetDuration(start As String, dest As String) 
    Dim firstVal As String, secondVal As String, lastVal As String 
    firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins=" 
    secondVal = "&destinations=" 
    lastVal = "&mode=car&language=pl&sensor=false" 
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
    URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal 
    objHTTP.Open "GET", URL, False 
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 
    objHTTP.send ("") 
    If InStr(objHTTP.responseText, """duration"" : {") = 0 Then GoTo ErrorHandl 
    tmpVal = Right(objHTTP.responseText, Len(objHTTP.responseText) - InStr(objHTTP.responseText, """duration"" : {") - Len("""duration"" : {")) 
    tmpVal = Right(tmpVal, Len(tmpVal) - InStr(tmpVal, """value"" : ") - Len("""value"" :")) 
    tmpVal = Left(tmpVal, InStr(tmpVal, "}") - 1): tmpVal = Replace(tmpVal, ".", ",") 
    GetDuration = CLng(Replace(tmpVal, ",", "")) 
Exit Function 
ErrorHandl: 
    GetDuration = -1 
End Function

然后，您可以使用谷歌API来找到更多的参数：
https://developers.google.com/maps/documentation/distancematrix/#JSON

来源

2015-05-27 20:02:07 TMH8885

请总结或引用相关部分，以确保链接到期时答案仍然有效。 http://stackoverflow.com/help/how-to-answer –

你好TMH8885，你的建议帮了大忙。分析洞穴上的代码唯一的变化是你应该使用https而不是http，否则它会返回REQUEST DENIED错误。感谢您向我指出这个资源。 – Manus

我还建议获取APi密钥以跟踪您的API请求。对我来说非常方便。 – Manus

使用Google Maps API的两个邮政编码和Excel中的一组邮政编码之间的距离

回答

相关问题