使用VBA直接获取百度地图两个城市直接的距离代码问题

majiechi

有一个代码，可以使用VBA直接获取百度地图两个城市直接的距离，但是有些距离是0的，不知道什么情况啊？
另外有些网友的代码会出现“没有注册类”，如下图，求大神帮忙，帮我看看代码有什么问题，什么有小部分城市距离是0的？

majiechi

Sub 里程查询()
k = [a65535].End(xlUp).Row
For i = 2 To k
CityFrom = Cells(i, 1)
CityTo = Cells(i, 2)
Dim strText As String
Dim URL As String
Dim dis, mtime

URL = "http://map.baidu.com/?"
URL = URL & "qt=nav"
URL = URL & "&c=223"
URL = URL & "&sn=2$$$$$$" & CityFrom & "$$0$$$$"
URL = URL & "&en=2$$$$$$" & CityTo & "$$0$$$$"

With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
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


这个是代码

小油门

majiechi 发表于 2020-1-16 11:49
Sub 里程查询()
k = [a65535].End(xlUp).Row
For i = 2 To k

牛！牛！牛！牛！牛！牛！

majiechi

小油门 发表于 2020-1-16 13:09
牛！牛！牛！牛！牛！牛！

这个代码是网站里找的，但是有缺陷啊，有些数据是0，搞不懂啊