【记录】Excel 2021｜（三）VBA使用Selenium自动登录网页_vba selenium

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

1 安装 Selenium Basic

首先需要安装 Selenium Basic ，才能在工具栏中找到 Selenium Type Library 。

在安装Selenium Basic之前，请确保您的计算机上已安装Visual Basic for Applications（VBA）。VBA是Microsoft Office应用程序（如Excel、Word等）中使用的宏语言。

安装Selenium Basic方法如下：

首先，下载Selenium Basic安装程序。您可以从以下链接下载最新版本的Selenium Basic： https://florentbr.github.io/SeleniumBasic/ ，如果打不开那就打开这个链接 https://github.com/florentbr/SeleniumBasic/releases/ 。
下载安装程序exe：
运行Selenium Basic安装程序，并按照安装向导的指示进行操作。在安装过程中，您可以选择要安装的浏览器驱动程序，例如ChromeDriver、FirefoxDriver等。（就是一路Accept、next）
安装完成后，启动Excel，并在VBA编辑器中选择“工具”菜单，然后选择“引用”。
在“可用引用”列表中，找到“Selenium Type Library”并选中该库，然后单击“确定”按钮。这将向您的VBA项目中添加对Selenium Basic的引用。
现在，您可以在VBA项目中编写使用Selenium Basic的代码，并运行它。

请注意，如果您使用的是64位版本的Office，您可能需要使用64位版本的Selenium Basic。同样，如果您使用的是Mac或Linux系统，您需要使用相应的Selenium Basic版本。

2 下载webdriver

参考： Selenium for VBA的配置-知乎-语言堂

保证浏览器driver 和你的浏览器版本相配，以Chrome为例: ChromeDriver下载地址 - WebDriver for Chrome - Downloads 。打开页面，如果你是新版，按指示跳转到另一个页面去下载。

我的是111，所以下载111版本，下载链接。

关于版本怎么查看，找到设置里的关于Chrome就行。

在这里插入图片描述
3. 将匹配的driver 复制到 SeleniumBasic 的安装文件夹 ,例如： C:\Users[你的用户名]\AppData\Local\SeleniumBasic

下载 MS .Net 3.5 ： Download Microsoft .NET Framework 3.5 from Official Microsoft Download Center
注意：点开了就能下载，如果没弹出下载说明网络有问题，可以尝试点击手动下载。

这一步很重要 ，没有.Net，运行VBA的时候会出现 Automation Error 的报错。

3 自动登录

安装好1、2步骤后，重新打开Excel程序，然后打开宏编辑窗口：

一个简单的脚本如下：

Sub LoginToWebsite()
    Dim driver As New ChromeDriver
    Dim URL As String
    Dim MyLogin As String
    Dim MyPassword As String
    '设置网站登录页面的URL
    URL = "http://10.12.xxx.xx/ui/sessions/signin"
    '设置登录信息
    MyLogin = "myname"
    MyPassword = "mypasswd"
    '打开Chrome浏览器
    driver.Start "Chrome"
    '访问登录页面
    driver.Get URL
    '输入用户名和密码
    driver.FindElementById("username").SendKeys MyLogin
    driver.FindElementById("passwd").SendKeys MyPassword
    '提交登录表单
    driver.FindElementById("signin_button").Click
    '等待页面加载
    driver.Wait 5000
    '检查是否成功登录
    If InStr(driver.PageSource, "仪表板") > 0 Then
        MsgBox "登录成功！"
        MsgBox "登录失败！"
    End If
    '关闭浏览器
    driver.Quit
End Sub
只要在网页上找到输入框的id，再把账号密码填进去就完事了。 
 本账号所有文章均为原创，欢迎转载，请注明文章出处：https://blog.csdn.net/qq_46106285/article/details/129613315。百度和各类采集站皆不可信，搜索请谨慎鉴别。技术类文章一般都有时效性，本人习惯不定期对自己的博文进行修正和更新，因此请访问出处以查看本文的最新版本。 
[code=vb]Url=“xxx”
set wshshell=CreateObject(“wscript.shell”)
wshshell.Run""“C:\Program Files (x86)\Google\Chrome\Application\chrome.exe”"" & Url
wscript.sleep 200...
				开始– 选择你自己的Selenium 工具
大部分人开始于Selenium-IDE.这也是我们推荐的。这是一种简单的方式来熟悉Selenium命令. 你可以在几分钟内开发你第一个脚本. Selenium-IDE也很容易安装。
你也可以在Selenium-IDE跑你自己的脚本.这很容易用所以推荐给缺少技术的用户.IDE准许你开发和跑测试用例却不需要你有程序开发背景.Selenium-IDE 提供...
               .document.getelementbyid("u").Value = "123456789"
               .document.getelementbyid("p").Value = "3s3.cn***"
                 .document.getelementbyid("button").Click '登 录
           Do Until .readystate = 4
            DoEvents
       .document.getelementbyid("u").Value = "123456789"
        .document.getelementbyid("p").Value = "3s3.cn****"
         Do Until .readystate = 4
            DoEvents
        .document.getelementbyid("verifytip").Value = .document.getelementbyid("verifyshow").Value
         .document.getelementbyid("button").Click '登 录
    End With
End Sub
				可以使用VBA调用Selenium来操作Excel中的数据和网页。以下是一个简单的例子：
首先，你需要从seleniumhq.org下载Selenium VBA库，将其导入到你的Excel项目中。
然后，你需要在代码中添加对Selenium VBA库的引用。你可以在VBA编辑器中打开“工具”菜单，并选择“引用”选项。在弹出的对话框中勾选“Selenium Type Library”并点击“确定”按钮。
接下来，你需要创建一个Selenium WebDriver对象，并使用它来打开一个网页。例如：
```vb
Dim driver As New WebDriver
driver.Start "chrome", "http://www.google.com"
然后，你可以使用Selenium的API来查找和操作网页元素，例如：
```vb
Dim searchBox As WebElement
Set searchBox = driver.FindElementByCss("#lst-ib")
searchBox.SendKeys "Excel VBA"
searchBox.Submit
最后，你可以使用Selenium来获取网页内容或截图，并将其保存到Excel中。例如：
```vb
Dim screenshot As New Screenshot
Set screenshot = driver.TakeScreenshot
screenshot.SaveAs "screenshot.png"