VBA+Selenium+谷歌浏览器

搁浅2008

工作中遇到一个网站必须用谷歌浏览器，才能打开。搜索后发现EH里有大神用VBA+Selenium可以解决，原贴地址如下：http://club.excelhome.net/thread-1452021-1-1.html
一、安装
安装参照原贴，一定要按原贴提供的谷歌浏览器版本还有Selenium安装包以及chromedriver。

二、利用ID来操作浏览器
1.获取ID
用谷歌浏览器打开想要操作的浏览器，在想要操作的位置（录入框或者按钮等），右键-检查(有的需要弹出右边内容后,再次右键-检查)，能看到定位到的字符串中含有ID="????" 这里的ID就是我们想要的。下边以百度为例：

这里的kw就是录入框的ID我们以这个ID就可以控制录入框

同样方法或者取得按钮的ID为su。

2.根据ID操作浏览器输入和输出
Sub 测试1()    '工具引用Selenium   第一种通过ID
    Dim cd As New ChromeDriver
    Dim keys As New Selenium.keys   

    cd.Start
    cd.Get "https://www.baidu.com/"
    cd.Wait 1000'暂停1秒

'方法1
    ' cd.FindElementById("kw").SendKeys("Selenium").SendKeys keys.Enter  '向ID为kw的搜索框内输入Selenium并回车

    '方法2
    'cd.FindElementById("kw").SendKeys ("Selenium") '方法2 分2部 先发送 Selenium 再发送一个回车
    'cd.FindElementById("kw").SendKeys keys.Enter

    '方法3
    cd.FindElementById("kw").SendKeys ("Selenium") '方法2 分2部 先发送 再按百度按钮
    cd.FindElementById("su").Click '点击按钮

     Debug.Print cd.FindElementById("kw").Value '输出结果 有的是text这个自己测试
    cd.Quit
End Sub
上边三种方式都可以利用ID操作输入和输出最简单，找到ID就能操作。但是很多是无法获得ID，下边就学习另外一种几乎万能的方法。

三、利用Path来操作浏览器
1.获取元素的Path
还是以百度为例:在定位到的字符串上右键获取Path

获取的结果为://*[@id="kw"] 在VBA中字符串中把"改成'改完后字符串为"//*[@id='kw']"
同样方法获得按钮的Path为 //*[@id='su']

2.根据Path操作浏览器输入和输出
Sub 测试2()    ' 第二种方法 通过Path
    Dim cd As New ChromeDriver
    Dim keys As New Selenium.keys   

    cd.Start
    cd.Get "https://www.baidu.com/"
    cd.Wait 1000

    cd.FindElementByXPath(" //*[@id='kw']").SendKeys("Selenium").SendKeys keys.Enter    '其他和测试1一样 只是定位的方式不同

    Debug.Print cd.FindElementByXPath(" //*[@id='kw']").Value  '输出结果 有的是text这个自己测试
End Sub
这种利用Path方法也很简单，浏览器已经提供了Path的copy XPath。

三、实战获取胜负彩销量
1.打开网站 "http://kaijiang.500.com/sfc.shtml" 找到销量的 然后右键 检查 这时我们发现找ID就没办法了 只能利用Path

取得销量的Path为:"/html/body/div[6]/div[3]/div[2]/div[1]/div[2]/table[1]/tbody/tr[4]/td/span[1]"

2.获取销量
Sub 测试3()    '实战  彩票取数
    Dim cd As New ChromeDriver
    Dim keys As New Selenium.keys  
    cd.Start
    cd.Get "http://kaijiang.500.com/sfc.shtml"
    '/html/body/div[6]/div[3]/div[2]/div[1]/div[2]/table[1]/tbody/tr[4]/td/span[1]  
    cd.Wait 1000
    Debug.Print cd.FindElementByXPath("/html/body/div[6]/div[3]/div[2]/div[1]/div[2]/table[1]/tbody/tr[4]/td/span[1]").Text '可以通过立即窗口测试
End Sub


执行Debug.Print cd.FindElementByXPath("/html/body/div[6]/div[3]/div[2]/div[1]/div[2]/table[1]/tbody/tr[4]/td/span[1]").Value的时候发现返回是空白
然后换成Text就取得了想要的结果，其他的输入输出按钮等等自己去测试就可以了。

注意:多利用立即窗口来测试能不能返回想要的结果

关于网站的验证还有上传文件都没有研究，另外上边有些名词可能使用不当，理解意思就好！！！

我是来讨说法的

chromedriver和chrome版本要匹配上，搜索一下版本对照表就行了，你安装的chrome是什么版本，下载对应的chromedriver就可以测

搁浅2008

我是来讨说法的 发表于 2020-1-1 15:10
chromedriver和chrome版本要匹配上，搜索一下版本对照表就行了，你安装的chrome是什么版本，下载对应的chro ...

这个谷歌浏览器不能换成最新版本 因为这个国外的大神只做了这个版本的 以后的版本都不行 我测试过。原贴这样说： 这个封装器是一个叫florentbr的老外写的开源项目，他把selenium封装成了window下的com库，这样我们就能使用vba来使用他了。不过他只更新到了2016年，所有对应的浏览器驱动不是很新。他最大的贡献就是在于把原来java、c#、python才能玩的东西给大家做成了VBA玩家也能玩的东西了。

chis3

可惜不再更新版本
如果只是這樣倒不如用回ie 11好了
MS又不肯把edge封裝對像在vba能用

vbexcelhome

Selenium操作各种浏览器的原理就是利用WebDriver。VB版的WebDriver没有。
分享一下：
老外的《VBS写的控制谷歌浏览器的驱动-WebDriverBeta》https://www.lanzous.com/i6wulrg
我做了一个VB版的WebDriver的框架，是个类模块，包含的功能有：打开浏览器、获得当前网页标题、获得网页源码、获得cookie
下载地址：https://www.lanzous.com/i84sowb
愿意自己打造工具的可以完善。

WebDriver的参考资料https://github.com/SeleniumHQ/se ... sionidelementidname

vbexcelhome

这个框架亲测最新版本的浏览器都是支持的

liuxi001

不明觉厉~~~~

lilyhcn1

谷歌上有一个浏览器插件，录制一下操作过程就可以录制成python脚本，运行就可以了。

lilyhcn1

selenium ide

lyb200

厉害，记录一下。