如何使用VBA从Chrome的下拉列表中选择一个选项？

Sub SelectOptionFromChromeDropdown()
    Dim chromeApp As New InternetExplorer
    Dim htmlDoc As HTMLDocument
    Dim dropdown As HTMLSelectElement
    Dim option As HTMLOptionElement
    
    ' 启动Chrome浏览器
    chromeApp.Visible = True
    chromeApp.navigate "https://example.com" ' 替换为目标网页的URL
    
    ' 等待页面加载完成
    Do While chromeApp.Busy Or chromeApp.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' 获取页面HTML文档
    Set htmlDoc = chromeApp.document
    
    ' 根据下拉列表的ID或名称获取下拉列表对象
    Set dropdown = htmlDoc.getElementById("dropdownID") ' 替换为目标下拉列表的ID或名称
    
    ' 根据选项的索引或值选择一个选项
    dropdown.selectedIndex = 2 ' 替换为目标选项的索引或值
    
    ' 或者，根据选项的文本选择一个选项
    For Each option In dropdown.Options
        If option.Text = "目标选项文本" Then ' 替换为目标选项的文本
            option.Selected = True
            Exit For
        End If
    Next option
    
    ' 关闭Chrome浏览器
    chromeApp.Quit
    Set chromeApp = Nothing
End Sub