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

YZC51

将《根据地址查询经纬度-百度.htm》和《根据地址查询经纬度-高德.htm》文件解压到 F:\ 盘根目录下，然后运行 经纬度查询.xlsm 文件即可！
经纬度查询.rar (15.97 KB, 下载次数: 1021)

2019-2-1 22:02 上传

点击文件名下载附件

YZC51

修改代码如下：
Sub easy1()
On Error Resume Next
    Set ie = CreateObject("InternetExplorer.application")
    With ie
        .navigate "F:/根据地址查询经纬度-百度.htm"
        .Visible = True
        Do Until .ReadyState = 4
        Loop
        For m = 2 To [a65536].End(3).Row
            DoEvents
            .Document.getelementbyid("text_").Value = Cells(m, 1)
            .Document.getelementbyid("text11").Click
            Application.Wait (Now + TimeValue("00:00:02"))
            V = Split(.Document.getelementbyid("result_").Value, ",")
            Cells(m, 2) = V(0)
            Cells(m, 3) = V(1)
        Next
    End With
    ie.Quit
End Sub

YZC51

为了增加可靠性，再次修改！
Sub easy1()
    'On Error Resume Next
    Set ie = CreateObject("InternetExplorer.application")
    With ie
        .navigate "F:/根据地址查询经纬度-百度.htm"
        .Visible = True
        Do Until .ReadyState = 4
        Loop
        mr = [a65536].End(3).Row
        For m = 2 To [a65536].End(3).Row
            DoEvents
            Cells(m, 2) = "": Cells(m, 3) = ""
            .Document.getelementbyid("text_").Value = Cells(m, 1)
            .Document.getelementbyid("text11").Click
            If m = 2 Then Application.Wait (Now + TimeValue("00:00:01"))
            Application.Wait (Now + TimeValue("00:00:01"))
            V = Split(.Document.getelementbyid("result_").Value, ",")
            Cells(m, 2) = V(0): Cells(m, 3) = V(1)
        Next
    End With
    ie.Quit
End Sub

zpy2

不错，赞一个。。。。

YZC51

zpy2 发表于 2019-2-2 06:35
不错，赞一个。。。。

谢谢老师鼓励！

YZC51

又做出高德地图的，也没有多少人回复，看来是没人喜欢，就先不上传了！

YZC51

代码如下：
Sub 高德地图()
    'On Error Resume Next
    Set ie = CreateObject("InternetExplorer.application")
    With ie
        .navigate "F:/根据地址查询经纬度-高德.htm"
        .Visible = True
        Do Until .ReadyState = 4
        Loop
        mr = [a65536].End(3).Row
        For m = 2 To [a65536].End(3).Row
            DoEvents
            Cells(m, 2) = "": Cells(m, 3) = ""
            .Document.getelementbyid("key_2").Value = Cells(m, 1)
            .Document.getelementbyid("text11").Click
            If m = 2 Then Application.Wait (Now + TimeValue("00:00:01"))
            Application.Wait (Now + TimeValue("00:00:01"))
            V = Split(.Document.getelementbyid("result").innerHTML, " ")
            Cells(m, 4) = V(0)
            Cells(m, 5) = V(1)
        Next
    End With
    ie.Quit
End Sub

Kaohsing

都忙着返乡，归宅，过年了。

YZC51

Kaohsing 发表于 2019-2-2 12:01
都忙着返乡，归宅，过年了。

给老师拜个早年！！！
预祝大家春节快乐！！

YZC51

代码审核中