如何在VBA IE自动化中相对点击复选框(从excel单元格中提供数据)？

Sub ClickCheckbox()
    Dim IE As Object
    Dim doc As Object
    Dim checkbox As Object
    Dim dataRange As Range
    Dim cell As Range
    
    ' 创建IE对象并打开网页
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://example.com" ' 替换为目标网页的URL
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取网页文档对象
    Set doc = IE.Document
    
    ' 获取Excel单元格范围
    Set dataRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A10") ' 替换为实际的单元格范围
    
    ' 遍历单元格范围
    For Each cell In dataRange
        ' 获取复选框对象
        Set checkbox = doc.getElementById(cell.Value)
        
        ' 检查复选框是否存在
        If Not checkbox Is Nothing Then
            ' 判断单元格的值，根据需要进行相应操作
            If cell.Offset(0, 1).Value = "Y" Then
                checkbox.Checked = True
            Else
                checkbox.Checked = False
            End If
        End If
    Next cell
    
    ' 关闭IE对象
    IE.Quit
    Set IE = Nothing
End Sub