VBA操作IE网页时无法正确选中select标签下option选项如何解决

• 仅设置Selected = True没有触发select元素绑定的onchange事件：绝大多数网页的下拉框会绑定变更事件来同步显示内容、更新关联表单字段，只修改选中属性不会触发事件执行，因此页面不会渲染出你预期的选中效果。
• 遍历范围是全局所有option：如果页面存在多个select下拉框，可能会匹配到其他下拉框内符合文本条件的option，导致选中逻辑错误。

' 第一步：定位目标select元素，可根据实际页面结构调整定位方式
' 方式1：如果select有id属性，优先用id定位
Dim targetSelect As Object
Set targetSelect = ie.document.getElementById("替换为你的select元素实际ID")

' 方式2：如果没有id，也可以用你之前获取的集合按索引取，示例取页面第一个select
' Set targetSelect = objCollection(0)

' 第二步：仅遍历目标select下的option，匹配后触发change事件
Dim opt As Object
For Each opt In targetSelect.getElementsByTagName("option")
    ' 加Trim处理可以避免选项文本前后带空格导致匹配失败的问题
    If Trim(opt.innerText) = "1000" Then
        opt.Selected = True
        Debug.Print "found it"
        ' 主动触发下拉框的变更事件，让网页同步更新显示和关联数据
        targetSelect.FireEvent "onchange"
        Exit For
    End If
Next opt

如果运行后还是没有生效，可先确认代码执行前IE网页已经完全加载完成，没有异步请求还在更新下拉框内容。

内容的提问来源于stack exchange，提问作者Euclides Do Rosário