用VBA下拉菜单填写网站表单

Sub FillWebsiteForm()
    Dim IE As Object
    Dim formElement As Object
    Dim selectElement As Object
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网站
    IE.Navigate "https://www.example.com/form"
    
    ' 等待网站加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取表单元素
    Set formElement = IE.Document.getElementById("form-id")
    
    ' 获取下拉菜单元素
    Set selectElement = formElement.getElementById("dropdown-id")
    
    ' 选择下拉菜单中的选项
    selectElement.Value = "Option 1"
    
    ' 提交表单
    formElement.submit
    
    ' 关闭Internet Explorer对象
    IE.Quit
End Sub