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

Kaohsing · 发表于 2019-2-3 16:36

YZC51 发表于 2019-2-2 11:55
代码如下：
Sub 高德地图()
'On Error Resume Next

可以Document.getelementbyid("result").innertext是否为空

一把小刀闯天下 · 发表于 2019-2-3 16:54

'预祝各位新年快乐！

17楼的代码编译了一下，，，

经纬度查询.zip (7.23 KB, 下载次数: 127)

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

YZC51 发表于 2019-2-3 15:48
祝老师们新年快乐！
下面是API的应用
Sub apijwd()

.Open "GET", URL & yy = GetU(Cells(m, 1)), False
上面这句临时修改下
.Open "GET", URL & Cells(m, 1), False

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

现在上传附件

经纬度查询-2.rar (33.03 KB, 下载次数: 146)

lzqlaj · 发表于 2019-2-15 21:58

'.Navigate "F:/根据地址查询经纬度-高德.htm"
.Navigate ThisWorkbook.Path & "/根据地址查询经纬度-高德.htm"
将《根据地址查询经纬度-百度.htm》、《根据地址查询经纬度-高德.htm》、经纬度查询.xlsm解压到同一文件夹，然后运行经纬度查询.xlsm 文件即可！感觉这样方便些。

YZC51 · 发表于 2019-2-15 22:12

lzqlaj 发表于 2019-2-15 21:58
'.Navigate "F:/根据地址查询经纬度-高德.htm"
.Navigate ThisWorkbook.Path & "/根据地址查询经纬度-高 ...

很好，谢谢老师指教

king780723 · 发表于 2019-6-14 02:39

能批量查询吗？经纬度能得出两地距离吗

jaxzhu · 发表于 2019-6-19 16:31

好好学习，天天向上。

水刀梁 · 发表于 2019-7-17 21:22

本帖最后由水刀梁于 2019-7-17 21:24 编辑

YZC51 发表于 2019-2-3 23:53
现在上传附件

向铁杆同志学习，另外，建议修改目录为当前文件夹，这是根据一般人的下载和使用习惯进行的必要调整。25楼建议了，我才看到

YZC51 · 发表于 2019-7-17 21:33

水刀梁发表于 2019-7-17 21:22
向铁杆同志学习，另外，建议修改目录为当前文件夹，这是根据一般人的下载和使用习惯进行的必要调整。25楼 ...

谢谢老师的建议！已经修改，附件在楼下！

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

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

评分

评分

评分

评分