VBA IE更改下拉值

Sub ChangeDropdownValue()
    Dim IE As Object
    Dim dropdown As Object
    
    ' 创建IE对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    IE.Visible = True
    IE.Navigate "https://example.com" ' 替换为目标网页的URL
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取下拉框对象
    Set dropdown = IE.Document.getElementById("dropdown_id") ' 替换为目标下拉框的ID
    
    ' 更改下拉框的值
    dropdown.Value = "new_value" ' 替换为目标下拉框的新值
    
    ' 关闭IE对象
    IE.Quit
    Set IE = Nothing
End Sub