如何获取百度地图中的距离？

我也是马甲

wcymiss 发表于 2014-11-5 19:28

非常感谢老师，我知道如何修改了。感谢

blanksoul12

哈,我真是笨笨...........
我想問,那個C=223,好像會變的,是怎樣啊?

我也是马甲

wcymiss 发表于 2014-11-5 19:28

老师好，有个问题请教一下，比如我在单元格中录入两个地址

新疆维吾尔自治区        广东省

像这样的两个地址，点击查询后，有时候它能得出结果，有时候得出的结果又是0公里，不明白为什么？我在多电脑中测试都这样，一下有结果，一下没有结果。。。

我也是马甲

wcymiss 发表于 2014-11-5 19:28

好的。。有可能是网络问题

我也是马甲

再求助一下，假如遇到这样的情况，必须要去点击选择一个终点才有公里数，不然为0，这个应该如何解决？
看了这里的链接，修改后还是没有变化

1. http://club.excelhome.net/thread-1142225-1-1.html

复制代码

wcymiss

我也是马甲 发表于 2014-11-24 15:26
再求助一下，假如遇到这样的情况，必须要去点击选择一个终点才有公里数，不然为0，这个应该如何解决？
看了 ...

试试看：

1. Sub Main()
   
2.     Dim CityFrom As String
   
3.     Dim CityTo As String
   
4.     Dim strText As String
   
5.     Dim strURL As String
   
6.     Dim lngDis As Long
   
7.     Dim lngTime As Long
   
8.     Dim strJS As String
   
9.    
   
10.     CityFrom = "襄阳市"
    
11.     CityTo = "十堰市"
    
12.    
    
13.     With CreateObject("MSXML2.XMLHTTP")
    
14. 100:        strURL = "http://map.baidu.com/?"
    
15.         strURL = strURL & "qt=nav"
    
16.         strURL = strURL & "&c=223"
    
17.         strURL = strURL & "&sn=2$$$$$$" & CityFrom & "$$0$$$$"
    
18.         strURL = strURL & "&en=2$$$$$$" & CityTo & "$$0$$$$"
    
19.         
    
20.         .Open "GET", strURL, False
    
21.         .Send
    
22.         strText = .responsetext
    
23.         
    
24.         strJS = "var a=" & strText & ";"
    
25.         lngDis = JSEval(strJS & "a.content.dis||0;")
    
26.         
    
27.         If lngDis = 0 Then '如果获取不到距离则取新的城市名
    
28.             CityFrom = JSEval(strJS & "a.content[0][0].name;")
    
29.             GoTo 100
    
30.         End If
    
31.         
    
32.         lngTime = JSEval(strJS & "a.content.time;")
    
33.         strText = "起点：  " & CityFrom
    
34.         strText = strText & vbCr & "终点：  " & CityTo
    
35.         strText = strText & vbCr & "方式：  驾车"
    
36.         strText = strText & vbCr & "路程：  " & Format(lngDis / 1000, "0.00公里")
    
37.         strText = strText & vbCr & "时间：  " & Format(lngTime / 86400, "hh小时nn分钟")
    
38.         MsgBox strText
    
39.     End With
    
40. End Sub
    
41. 
    
42. Function JSEval(s As String) As String
    
43.     With CreateObject("MSScriptControl.ScriptControl")
    
44.         .Language = "javascript"
    
45.         JSEval = .Eval(s)
    
46.     End With
    
47. End Function

复制代码

我也是马甲

wcymiss 发表于 2014-11-25 10:07
试试看：

多谢吴姐，测试这个可以。。我自己修改一下就行了。感谢

VBA万岁

wcymiss 发表于 2014-11-25 10:07
试试看：

学习了，多谢分享！

Maxwells_Felix

谢谢老师~帮了我大忙{:soso_e183:}

hellosheep

老师 请问如果是查询深圳市内部的，小区到某个超市的距离时间 应该怎样改 ？