VBA:转到IE站点并按元素勾选

Sub GoToIEAndCheckElement()
    Dim IE As Object
    Dim doc As Object
    Dim element As Object
    
    ' 创建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
    
    ' 根据元素的ID或其他属性找到指定的元素
    Set element = doc.getElementById("elementID")
    
    ' 如果找到了元素，则勾选它
    If Not element Is Nothing Then
        element.Checked = True
    End If
    
    ' 关闭IE浏览器
    IE.Quit
    
    ' 释放对象
    Set IE = Nothing
    Set doc = Nothing
    Set element = Nothing
End Sub