使用vba从网页上的下拉列表中选择值

Sub SelectValueFromDropdown()
    Dim IE As Object
    Dim doc As Object
    Dim dropdown As Object
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    IE.Navigate "http://example.com"
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取网页文档对象
    Set doc = IE.document
    
    ' 根据下拉列表的ID或名称获取下拉列表对象
    Set dropdown = doc.getElementById("dropdownID") ' 或者使用doc.getElementsByName("dropdownName")(0)
    
    ' 选择下拉列表中的值
    dropdown.Value = "选项1" ' 根据实际情况修改选项的值
    
    ' 关闭Internet Explorer对象
    IE.Quit
    
    ' 释放对象变量
    Set dropdown = Nothing
    Set doc = Nothing
    Set IE = Nothing
End Sub