求可用Excel VBA代码：将3×3表格数据自动勾选网页复选框

前置准备 #

• 安装Selenium Basic：自行下载适配Office版本的安装包完成安装
• 下载对应Chrome版本的ChromeDriver：确保版本与你的Chrome浏览器一致，将ChromeDriver.exe放到Excel文件所在文件夹，或系统环境变量Path包含的路径中
• 在Excel VBE中添加引用：按Alt+F11打开VBE，点击「工具」→「引用」，找到并勾选「Selenium Type Library」

完整代码 #

Sub CheckChromeCheckboxes()
    Dim driver As New ChromeDriver
    Dim ws As Worksheet
    Dim rowNum As Integer, colNum As Integer
    Dim checkboxes As WebElements
    Dim checkbox As WebElement
    Dim excelValue As Variant
    
    ' 指定读取数据的工作表（可根据实际修改）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    On Error GoTo Cleanup ' 错误捕获，确保浏览器能正常关闭
    
    ' 启动Chrome并打开目标网页（替换为实际操作的网页URL）
    driver.Get "https://your-target-url-here.com"
    
    ' 获取网页上所有复选框（若有精准选择器可修改，比如"input[class='checkbox-item']"）
    Set checkboxes = driver.FindElementsByTag("input").Where(Function(e) e.Attribute("type") = "checkbox")
    
    ' 遍历Excel的3行3列数据
    For rowNum = 1 To 3
        For colNum = 1 To 3
            ' 读取当前单元格的值（建议用True/False表示是否勾选）
            excelValue = ws.Cells(rowNum, colNum).Value
            
            ' 计算对应复选框的索引（3×3共9个，索引从0开始，行优先排序）
            Dim cbIndex As Integer
            cbIndex = (rowNum - 1) * 3 + (colNum - 1)
            
            ' 确保索引在复选框列表范围内
            If cbIndex < checkboxes.Count Then
                Set checkbox = checkboxes(cbIndex)
                ' 根据Excel值执行勾选/取消操作
                If excelValue = True And checkbox.Selected = False Then
                    checkbox.Click
                ElseIf excelValue = False And checkbox.Selected = True Then
                    checkbox.Click ' 不需要取消勾选可删除此句
                End If
            End If
        Next colNum
    Next rowNum
    
Cleanup:
    ' 关闭浏览器
    driver.Quit
    Set driver = Nothing
    Set ws = Nothing
End Sub

关键调整说明 #

• 替换代码中的https://your-target-url-here.com为实际操作的网页地址
• 如果网页复选框有规律的id/name（比如cb_1_1对应第一行第一列），可将复选框定位代码改为driver.FindElementById("cb_" & rowNum & "_" & colNum)，避免索引匹配错误
• 若Excel中用"是"/"否"等文本表示勾选需求，需修改excelValue的判断逻辑，例如If excelValue = "是" And checkbox.Selected = False Then

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