VBA爬取单页Web应用时输入框赋值后点击搜索提示为空问题求助

• 目标页面是Angular框架开发的单页应用，直接修改输入框DOM的value属性不会触发Angular的双向绑定更新，框架内部绑定的搜索参数变量仍然为空，因此点击搜索按钮时校验不通过。
• 现有代码逻辑错误：搜索按钮点击操作写在遍历input元素的循环体内，会出现还未完成输入框赋值就提前触发搜索的问题。

调整VBA代码逻辑，给输入框赋值后主动触发input事件通知框架值更新，同时把点击搜索的操作移出循环，修正后的代码如下：

Sub macro()
    Dim a As String
    Dim IE As InternetExplorerMedium
    Set IE = New InternetExplorerMedium
    Dim Ist As IHTMLElementCollection
    Dim i As IHTMLElement
    IE.Visible = True
    a = "https://doc30-ui.uhg.com/doc30-ui/search"
    IE.navigate a
    
    Do While IE.ReadyState <> READYSTATE_COMPLETE
    Loop
    Application.Wait Now + TimeValue("00:00:3")
    
    Dim DOC  As HTMLDocument
    Set DOC = IE.document
    Set Ist = DOC.getElementsByTagName("input")
    For Each i In Ist
        If i.ID = "u_edi_claim_key0" Then
           i.Focus
           i.Value = 66827839
           ' 触发input事件通知Angular值更新
           i.FireEvent ("oninput")
           ' 额外触发change事件确保绑定生效
           i.FireEvent ("onchange")
           Application.Wait Now + TimeValue("00:00:0.5")
        End If
    Next
    ' 搜索点击移出循环，赋值完成后再执行
    DOC.getElementById("Search").Click
    MsgBox "done"
End Sub

如果上述FireEvent方法不生效，可以改用dispatchEvent手动触发事件，VBA写法如下：

' 替换上述i.FireEvent部分的代码
Dim evt As Object
Set evt = DOC.createEvent("HTMLEvents")
evt.initEvent "input", True, False
i.dispatchEvent evt

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