使用VBA选择HTML中的所有选项

Sub SelectAllOptionsInHTML()
    Dim ie As Object
    Dim htmlDoc As Object
    Dim htmlSelect As Object
    Dim htmlOption As Object
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开HTML页面
    ie.Navigate "http://example.com/page.html"
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取HTML文档对象
    Set htmlDoc = ie.document
    
    ' 根据HTML元素的ID或其他属性定位到<select>元素
    Set htmlSelect = htmlDoc.getElementById("selectElementID")
    
    ' 循环遍历<select>元素中的所有<option>元素，并选择它们
    For Each htmlOption In htmlSelect.Options
        htmlOption.Selected = True
    Next htmlOption
    
    ' 关闭Internet Explorer对象
    ie.Quit
    Set ie = Nothing
End Sub