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

YZC51

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

再次谢谢老师鲜花鼓励！

YZC51

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

ivccav

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

YZC51

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

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

YZC51

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

YZC51

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

samsinn

送楼主一个API版本查经纬

YZC51

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

谢谢老师新年大礼！

samsinn

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

新年快乐！

YZC51

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