VBA中使用selenium抓取网页数据的几个实例

Kaohsing

   首先，根据源理老师此片神贴http://club.excelhome.net/thread-1452021-1-1.html，安装好.DLL。
   其次，为了不给网页造成负担，以yzc51老师此贴所提供本地html为例http://club.excelhome.net/thread-1459824-1-2.html。
如有侵权，请告知删除。

Kaohsing

我把yzc51老师的html文件稍微改了一下。一般打开显示如下画面
改造后的html文件如下：
百度经纬度查询.zip (1.12 KB, 下载次数: 86)

2019-2-5 13:57 上传

点击文件名下载附件

chis3

我也在用,不錯,就是可惜作者不在更新vba的版本了,要用舊的firefox
舊的firefox有很多不支援問題,像書籤很有問題
不知道作者還會否更新

Kaohsing

chis3 发表于 2019-2-5 12:42
我也在用,不錯,就是可惜作者不在更新vba的版本了,要用舊的firefox
舊的firefox有很多不支援問題,像書籤很 ...

firefox和谷歌，一般初学者很少用到，我打算用IE，以便大多数初学者可以拿来可用。

chis3

Kaohsing 发表于 2019-2-5 12:51
firefox和谷歌，一般初学者很少用到，我打算用IE，以便大多数初学者可以拿来可用。

ie 現在有些不便
如下載時會彈出下載按鈕停頓
但firefox則是直接下載的

605751967

能给我们普及一下InternetExplorer.application和selenium有什么功能上的差异吗？除了浏览器的差异外，有什么常用功能是ie实现不了而selenium能实现的吗？对selenium不是很了解

Kaohsing

chis3 发表于 2019-2-5 12:59
ie 現在有些不便
如下載時會彈出下載按鈕停頓
但firefox則是直接下載的

传个网址......

Kaohsing

605751967 发表于 2019-2-5 13:17
能给我们普及一下InternetExplorer.application和selenium有什么功能上的差异吗？除了浏览器的差异外，有什 ...

只说一句selenium是个测试工具。至于两者区别，请百度，谷歌.

Kaohsing

先上个gif.

Kaohsing

源码如下：
Sub search_location_usedBaidu_BySelennium()
    Dim i As Long, r As Long
    Dim ie As New IEDriver
   rem 前期应用 selenium中IE驱动。你可能没有安装谷歌和火狐，但是类IE 的浏览器，不可能冇安装吧？
    Dim deng As Waiter
    r = [a65536].End(3).Row
    rem  变量声明
    '---------------------------------
    ie.Start                                                                                       ‘#启动浏览器。ie.Quit  退出浏览器     
    ie.Get "C:\Users\Administrator\Desktop\百度经纬度查询.htm"           '#本地网址的绝对路径
     。
     
    For i = 2 To r                                                                              ‘#for next 循环                  
        ie.FindElementById("text_").Clear
        ie.FindElementById("text_").SendKeys Cells(i, 1).Text                  ’#输入查询的地方        ie.FindElementById("result_").Clear
        ie.FindElementById("text11").ClickDouble                                   ’#双击查询。开始以为是单击
        ie.Wait (0.1)                                                                            ’#显示等待.
        Range("B" & i).Resize(1, 2) = Split(ie.FindElementById("result_").Value)     '# split 获取的经纬度.   
    Next
    '------------------------------------------
    ie.Quit                                                                                          #
End Sub
网速不稳建议把
ie.Wait (0.1)
替换成

Do Until Len(ie.FindElementById("result_").Value) > 0
            DoEvents
Loop