如何通过excel vba ie自动化向复选框添加复选标记？

Sub AddCheckBoxes()
    Dim ie As Object
    Dim doc As Object
    Dim checkBoxes As Object
    Dim checkBox As Object
    Dim i As Integer
    
    ' 创建IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    ie.Navigate "https://example.com" ' 替换为需要操作的网页地址
    
    ' 等待网页加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取网页文档对象
    Set doc = ie.document
    
    ' 根据复选框的HTML标签名称获取所有复选框
    Set checkBoxes = doc.getElementsByTagName("input")
    
    ' 遍历复选框并添加复选标记
    For i = 0 To checkBoxes.Length - 1
        Set checkBox = checkBoxes.Item(i)
        
        ' 判断复选框是否为复选框类型
        If checkBox.Type = "checkbox" Then
            ' 添加复选标记
            checkBox.Checked = True
        End If
    Next i
    
    ' 关闭IE对象
    ie.Quit
    
    ' 释放对象
    Set ie = Nothing
    Set doc = Nothing
    Set checkBoxes = Nothing
    Set checkBox = Nothing
End Sub