如何使用VBA操控内网网页中的特定下拉列表？

问题重现 #

内网网页包含两个下拉列表，HTML结构如下：

<select id="select1">
<option value="1" selected="selected">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
</select> - 
<select id="select2" disabled="disabled">
<option value="1" selected="selected">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
</select>

尝试以下VBA代码操控未生效：

Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("select_1").Value = "2"
Application.Wait Now + TimeValue("00:00:05")
.document.getElementById("select_2").Value = "1"

问题根源 #

1. ID拼写错误：HTML中第一个下拉列表的ID是select1，但代码里写成了select_1，导致无法定位元素
2. 禁用状态限制：第二个下拉列表默认处于disabled状态，直接赋值Value不会触发任何变化
3. 未触发页面事件：仅修改Value属性可能无法触发页面绑定的联动逻辑（比如下拉切换后的JS响应）

修正后的VBA代码 #

' 等待页面加载完成
Application.Wait Now + TimeValue("00:00:01")

' 操作第一个下拉列表：修正ID并触发change事件
With .document
    .getElementById("select1").Value = "2"
    ' 触发change事件，确保页面感知选择变化
    .parentWindow.execScript "document.getElementById('select1').dispatchEvent(new Event('change'))"
End With

' 等待页面响应联动逻辑
Application.Wait Now + TimeValue("00:00:01")

' 操作第二个下拉列表：先移除禁用属性再赋值
With .document
    .getElementById("select2").removeAttribute("disabled")
    .getElementById("select2").Value = "1"
    .parentWindow.execScript "document.getElementById('select2').dispatchEvent(new Event('change'))"
End With

备选方案（模拟点击） #

如果页面有特殊事件拦截，可直接模拟点击对应选项：

' 点击第一个下拉列表的"2"选项
.document.getElementById("select1").getElementsByTagName("option")(1).Click

' 等待联动后操作第二个下拉列表
Application.Wait Now + TimeValue("00:00:01")
With .document.getElementById("select2")
    .removeAttribute("disabled")
    .getElementsByTagName("option")(0).Click
End With

内容的提问来源于stack exchange，提问作者MAHDI HSSAINI