如何使用VBA IE自动化实现div类型下拉菜单的点击操作

该下拉菜单为jQuery UI组件，普通click方法和FireEvent无效的核心原因是：事件绑定在jQuery的事件缓存队列中，并非原生行内绑定事件，VBA内置的事件触发方法无法触达这类绑定事件。以下是三种可行解决方案：

方案1：调用页面JS触发点击（最稳定） #

通过IE的JS执行接口直接触发元素绑定的点击事件，无需考虑事件绑定方式：

' 假设IE已完成页面加载，对象名为ie
' 1. 点击下拉箭头展开菜单
ie.Document.parentWindow.execScript "document.getElementById('teste2').click();", "javascript"
' 等待菜单渲染完成
Application.Wait Now + TimeValue("00:00:01")
' 2. 点击选中对应选项，示例为选择值为B的选项
ie.Document.parentWindow.execScript "document.querySelector('.row[val=""B""]').click();", "javascript"

如果页面加载了jQuery，也可以用jQuery触发事件：

ie.Document.parentWindow.execScript "$('#teste2').trigger('click');", "javascript"

方案2：直接修改表单值（无需展开下拉，效率最高） #

如果不需要模拟用户点击交互，仅需要提交正确的选中值，可以直接修改存储值的隐藏域和显示输入框，跳过点击步骤：

' 修改实际提交的隐藏域值，示例为设置选中值为A
ie.Document.getElementById("ddl").Value = "A"
' 修改前端输入框的显示内容
ie.Document.getElementById("input").Value = "A"
' 如有值变更联动逻辑，可触发change事件
ie.Document.parentWindow.execScript "$('#ddl').trigger('change');", "javascript"

方案3：Windows API模拟物理点击（兜底方案） #

如果页面安全策略限制了JS执行，可以使用系统API模拟真实鼠标点击：

' API声明放在模块顶部
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_CLICK = &HF5

' 点击逻辑
Dim arrowEle As Object
Set arrowEle = ie.Document.getElementById("teste2")
SendMessage arrowEle.Click, BM_CLICK, 0, 0

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