求地址转经纬度

findingyuzi

求老师如何实现批量地址转化为经纬度？
百度有个拾取坐标系统，下面是我手动找的几个，请问如何用VBA批量实现？
谢谢！  

地址	转换后的经纬度
上塘路60号	120.176515,30.285825
上塘路101号	120.175705,30.285942
上塘路200号	120.175383,30.28372

findingyuzi

求助，谢谢！

findingyuzi

请教各位  这个有希望实现吗？ 工作中需要 谢谢了

605751967

非要在地图上查询吗，有误差算不算

findingyuzi

605751967 发表于 2016-3-9 17:13
非要在地图上查询吗，有误差算不算

只要能用VBA实现就行  不是一定要地图上查询，我只要举个例子。 有一定误差没问题，大致位置就可以。 谢谢

605751967

1. Sub easy()
   
2. On Error Resume Next
   
3.     Set ie = CreateObject("InternetExplorer.application")
   
4.     With ie
   
5.         .Navigate "http://map.yanue.net/"
   
6.         .Visible = True
   
7.         Do Until .ReadyState = 4
   
8.         Loop
   
9.         For m = 2 To [a65536].End(3).Row
   
10.          DoEvents
    
11.          .Document.getelementbyid("addrs").Value = Cells(m, 1)
    
12.          .Document.getelementbyid("toLatLngBtn").Click
    
13.          Application.Wait (Now + TimeValue("00:00:01"))
    
14.          Cells(m, 2) = Split(.Document.getelementbyid("showResults").innerText, ":")(1)
    
15.         Next
    
16.     End With
    
17.     Shell ("taskkill /f /im 360se.exe"): Shell ("taskkill /f /im IEXPLORE.exe")
    
18. End Sub

复制代码

YZC51

请看网址：http://zhaoziang.com/amap/zero_8_1.html
俺不会，还清大师来帮你吧！

YZC51

上传个附件，请大师帮你做吧！
根据地址查询经纬度.rar (3.09 KB, 下载次数: 371)

2016-3-12 09:00 上传

点击文件名下载附件

天然丶草

楼主，你解决这个问题了吗

fujianfei686

多谢大师，可以批量查了