如何使用Excel VBA结合Selenium和Chrome填充网页表单？

原代码使用Shell打开Chrome浏览器无法实现页面元素交互，需改用Selenium的VBA驱动控制浏览器完成表单填充和提交操作。以下是实现需求的完整方案：

完整代码 #

Option Explicit
Sub FillAndSubmitForm()
    Dim driver As New ChromeDriver
    Dim ws1 As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    Dim subjectText As String
    Dim messageText As String
    Dim MyURL As String
    
    ' 初始化工作表对象
    Set ws1 = ThisWorkbook.Sheets("rawdata")
    ' 获取A列最后一行行号
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 配置ChromeDriver（确保ChromeDriver路径正确，或已配置到系统环境变量）
    driver.SetCapability "chromeOptions", "start-maximized"
    
    For i = 1 To lastRow
        MyURL = ws1.Cells(i, 1).Value
        subjectText = ws1.Cells(i, 2).Value ' 读取当前行B列内容
        messageText = ws1.Cells(i, 3).Value ' 读取当前行C列内容
        
        ' 打开目标URL
        driver.Get MyURL
        
        ' 等待页面加载，确保元素可被定位
        driver.Wait 2000 ' 等待2秒，可根据页面加载速度调整
        
        ' 1. 填充subject输入框
        driver.FindElementByName("subject").SendKeys subjectText
        
        ' 2. 填充messagetext文本域
        driver.FindElementByName("messagetext").SendKeys messageText
        
        ' 3. 点击提交按钮（通过type和value定位）
        driver.FindElementByXPath("//input[@type='submit' and @value='Send message']").Click
        
        ' 等待提交完成，可根据实际情况调整等待时间
        driver.Wait 3000
        
        ' 关闭当前标签页，继续下一个URL
        driver.Close
    Next i
    
    ' 退出ChromeDriver
    driver.Quit
    Set driver = Nothing
End Sub

关键说明 #

• 依赖准备：需在VBA编辑器中添加Selenium相关引用（如Selenium Type Library），并确保ChromeDriver与本地Chrome版本匹配，可将ChromeDriver放在Excel文件同目录或系统环境变量路径中。
• 元素定位：
  • 输入框和文本域通过name属性定位，对应网页HTML中的name="subject"和name="messagetext"
  • 提交按钮通过XPath定位，匹配type="submit"且value="Send message"的元素
• 循环逻辑：循环处理A列每一行的URL，同步读取对应行的B、C列内容填充表单，完成提交后关闭标签页继续下一个任务
• 等待设置：添加Wait方法确保页面元素加载完成，避免因页面未加载完全导致的元素定位失败

内容的提问来源于stack exchange，提问作者Mark Baker