高速公路物流里程批量查询软件-地图路程查询行驶里程查询

给大家分享一个自己写的VBA里程批量查询的小程序，具体的代码功能是根据百度地图URL中的GET方式进行查询，根据百度地图得到最终里程。

1、录入起点重点明细地址，再点击查询即可直接查询里程信息；

2、本程序查询的并非是坐标计算的直线距离，而是实际的地图里程；

3、有部分里程数据可能会因为起点终点有重名情况，此时默认是第一个；

4、若显示里程为0，则可能地址并未找到，请更新明细或更换附近地址查询。

具体的宏代码如下：

Sub 里程查询()

k = [a65535].End(xlUp).Row

On Error Resume Next

For i = 2 To k

CityFrom = Cells(i, 1)

CityTo = Cells(i, 2)

Dim strText As String

Dim URL As String

Dim dis, mtime

With CreateObject("MSXML2.ServerXMLHTTP")

.Open "GET", URL, False

.Send

'等待响应

Do While .readystate <> 4

DoEvents

Loop

strText = .responsetext

dis = Val(Split(strText, """dis"":")(1))

'mtime = Val(Mid(strText, InStrRev(strText, """time"":") + 7))

Cells(i, 3) = dis / 1000

End With

Next

End Sub

————————————————

源文件请到数据矿工博客下载：http://www.zwd56.cn/?id=12