使用vba在html中的自动完成下拉菜单中选择一项

<select id="myDropdown">
  <option value="option1">选项1</option>
  <option value="option2">选项2</option>
  <option value="option3">选项3</option>
</select>

Sub SelectDropdownItem()
    Dim IE As Object
    Dim doc As Object
    Dim dropdown As Object
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开HTML页面
    IE.Navigate "http://example.com/myPage.html"
    
    ' 等待页面加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取页面的Document对象
    Set doc = IE.Document
    
    ' 获取下拉菜单元素
    Set dropdown = doc.getElementById("myDropdown")
    
    ' 选择下拉菜单中的第二个选项（索引从0开始）
    dropdown.selectedIndex = 1
    
    ' 关闭Internet Explorer对象
    IE.Quit
End Sub