Excel vba从网页上的下拉列表中选择项目

Sub SelectItemFromWebDropdown()
    Dim IE As Object
    Dim dropdown As Object
    Dim item As Object
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    IE.Navigate "https://example.com"
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取下拉列表对象
    Set dropdown = IE.document.getElementById("dropdown_id")
    
    ' 选择下拉列表中的项目
    For Each item In dropdown.Options
        If item.Value = "item_value" Then
            item.Selected = True
            Exit For
        End If
    Next item
    
    ' 关闭Internet Explorer对象
    IE.Quit
    
    ' 释放对象变量
    Set IE = Nothing
    Set dropdown = Nothing
    Set item = Nothing
End Sub