Excel VBA操作Internet Explorer点击按钮触发运行时错误424求解决方案

运行时错误'424：需要对象'的核心原因是代码错误将按钮的onclick事件属性值作为了DOM元素检索参数，document.all("doNewLookup(document.personxref)")无法匹配到页面对应按钮对象，调用Click方法时就会抛出对象缺失错误。

有两种通用修复方式可选：

• 方案1：遍历页面按钮元素匹配目标按钮
  查找页面所有input元素，匹配value为「Lookup」的按钮后执行点击，兼容性最强。
• 方案2：直接执行按钮绑定的JS函数
  按钮本身绑定的就是doNewLookup(document.personxref)方法，可直接通过IE执行JS脚本触发，无需定位按钮。

这里以方案1为例，完整可运行代码如下：

Sub WebForm()
    Dim IE As Object
    Dim btn As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "https://lambda.byu.edu/ae/prod/person/cgi/personLookup.cgi"
    IE.Visible = True
    ' 等待页面完全加载
    While IE.Busy Or IE.readyState <> 4
        DoEvents
    Wend

    ' 填写表单
    IE.document.all("inpSearchPattern").Value = "Some Last Name"
    
    ' 定位并点击Lookup按钮
    For Each btn In IE.document.getElementsByTagName("input")
        If btn.Value = "Lookup" Then
            btn.Click
            Exit For
        End If
    Next
End Sub

如果使用方案2，直接替换按钮定位部分的代码即可：

IE.document.parentWindow.execScript "doNewLookup(document.personxref)", "JavaScript"

• 如果页面存在异步渲染内容，可在页面加载完成的等待逻辑后加1~2秒延时，避免元素未渲染完成导致的定位失败
• 若执行脚本无反应，可检查IE的安全设置，将目标站点加入受信任站点，降低安全级别避免脚本被拦截

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