数据矿工的博客

您现在的位置是:首页 > 数据看板 > 正文

数据看板

物流里程批量查询地图路程查询行驶里程查询

张文迪2018-01-05数据看板20006
给大家分享一个自己写的VBA里程批量查询的小程序,具体的代码功能是根据百度地图URL中的GET方式进行查询,根据百度地图得到最终里程。

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



1、录入起点重点明细地址,再点击查询即可直接查询里程信息;
2、本程序查询的并非是坐标计算的直线距离,而是实际的地图里程;
3、有部分里程数据可能会因为起点终点有重名情况,此时默认是第一个;
4、若显示里程为0,则可能地址并未找到,请更新明细或更换附近地址查询。


物流里程批量查询地图路程查询行驶里程查询



文件模板下载地址:

开发辛苦,还请打赏 支付9.99元查看




发表评论

评论列表

  • liuliuliumeimei(2019-04-10 17:44:53)回复取消回复

    您好,我在Excel home这个网站下载了您的附件,直接打开里面的表格,点击按钮运行,提示下标越界,打开代码dis = Val(Split(strText, """dis"":")(1))这句标黄,提示dis=空值,请问如何解决?本人代码小白,求大神帮忙,感激不尽~

    • admin(2019-04-18 09:25:04)回复取消回复

      @liuliuliumeimei 在代码第21行strText = .responsetext前面加:
      Do While .readystate 4
      DoEvents
      Loop

  • admin(2019-04-18 09:24:58)回复取消回复

    在代码第21行strText = .responsetext前面加:
    Do While .readystate 4
    DoEvents
    Loop

  • 访客(2021-05-18 13:18:00)回复取消回复

    我需要查里程的地址,在百度地图上可能会查出很多个地址,导致里程数计算不出来;
    我要查的地址又非常多,没法改成唯一的地址;
    请问怎么改代码改成默认取搜到的第一个地址

    • admin(2022-08-15 08:12:39)回复取消回复

      @访客 本代码就是默认查询的第一个

展开