根据地址查询经纬度-百度和高德

YZC51 · 发表于 2019-2-2 19:09

YZC51 发表于 2019-2-2 08:12
谢谢老师鼓励！

再次谢谢老师鲜花鼓励！

YZC51 · 发表于 2019-2-3 09:18

《根据地址查询经纬度-高德.htm》文件，待调试完成后上传！

ivccav · 发表于 2019-2-3 11:31

感谢分享，在手机上看，点赞不了，帮你顶一下。我还没学会网抓呢。vba板块每天的人数就几百(我根据新帖数猜测的)，多数都是带着问题来的，得到答案后可能再也不会回来，哪里会回复你的帖呢？以前的帖回复人数很多，说明还是比较爱学习的(没有智能机的年代，哈哈），现在的人有空就玩手机，没空学习了。一个新帖每天有一两百个浏览量，就很多了。老帖浏览量更少。

YZC51 · 发表于 2019-2-3 12:51

ivccav 发表于 2019-2-3 11:31
感谢分享，在手机上看，点赞不了，帮你顶一下。我还没学会网抓呢。vba板块每天的人数就几百(我根据新帖数猜 ...

说的有道理。一个不注重学习的...是不会有希望的！

YZC51 · 发表于 2019-2-3 12:53

从老师的帖子里学到很多知识。谢谢老师！！！

YZC51 · 发表于 2019-2-3 14:15

本 .htm 文件在手机上也可以查询经纬度！

samsinn · 发表于 2019-2-3 14:27

送楼主一个API版本查经纬
百度查经纬.png

YZC51 · 发表于 2019-2-3 14:36

samsinn 发表于 2019-2-3 14:27
送楼主一个API版本查经纬

谢谢老师新年大礼！

samsinn · 发表于 2019-2-3 14:41

YZC51 发表于 2019-2-3 14:36
谢谢老师新年大礼！

新年快乐！

YZC51 · 发表于 2019-2-3 15:48

samsinn 发表于 2019-2-3 14:41
新年快乐！

祝老师们新年快乐！
下面是API的应用
Sub apijwd()
URL = "http://api.map.baidu.com/geocoder?address="
With CreateObject("MSXML2.XMLHTTP")
      mr = [a65536].End(3).Row
      For m = 2 To [a65536].End(3).Row
         Cells(m, 6) = "": Cells(m, 7) = ""
         .Open "GET", URL & yy = GetU(Cells(m, 1)), False
         .send
         V = .responseText
         Cells(m, 7) = Split(Split(V, "at>")(1), "<")(0)
         Cells(m, 6) = Split(Split(V, "g>")(1), "<")(0)
      Next
End With
End Sub

		自动登录	找回密码
密码			免费注册

[分享] 根据地址查询经纬度-百度和高德

评分

评分