VBA驱动Internet Explorer自动化时confirm弹窗阻塞代码的解决方法

之前参考思路调整的代码无法生效，核心是执行顺序完全颠倒：

• 原调整逻辑是先点击“Submit All”按钮，再注入脚本覆写window.confirm方法
• 网页原生的confirm()是同步阻塞的模态弹窗，触发后VBA执行流会立刻卡住，根本没有机会运行后续的覆写脚本
• 这也是SendKeys方案无效的本质：弹窗一旦弹出，VBA后续所有指令都会被阻塞，直到人工手动关闭弹窗才会恢复执行，哪怕加再多延时，也抢不到弹窗弹出时的执行时机

核心逻辑：在触发按钮点击动作之前，先注入脚本覆写页面原生的confirm方法，让该方法不弹出系统提示框、直接返回true，从根源上消除阻塞点。
同时修正原代码中冗余创建IE实例、变量名不统一、未等待表单提交完成的问题，完整可运行代码如下：

Sub AutoSubmitBypassPopup()
    Dim tbl As ListObject
    Dim tRows As Long
    Dim searchtxt As Object, myie As Object
    Dim elems As Object, e As Object
    Dim pageWin As Object
    Dim i As Long
    
    ' 初始化自动化IE对象
    Set myie = New InternetExplorerMedium
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    With tbl.DataBodyRange
        tRows = .Rows.Count + 2
    End With

    For i = 2 To tRows - 1
        ' 导航到目标页面并等待加载完成
        With myie
            .Navigate Range("G" & i)
            .Visible = True
            Do While .Busy: DoEvents: Loop
            Do While .ReadyState <> 4: DoEvents: Loop
        End With
        
        ' 填充表单字段
        myie.document.getElementById("colorCategory").Value = "P"
        Set searchtxt = myie.document.getElementsByName("comment")(0)
        searchtxt.Value = Range("F" & i)
        
        ' 获取当前页面的window对象
        Set pageWin = myie.document.parentWindow
        
        ' 关键步骤：点击按钮前，先覆写confirm方法屏蔽弹窗
        pageWin.execScript "window.confirm = function(){ return true; };"
        
        ' 点击Submit All按钮，此时触发的confirm会直接执行自定义逻辑，无弹窗阻塞
        Set elems = myie.document.getElementsByTagName("input")
        For Each e In elems
            If e.getAttribute("value") = "Submit All" Then
                e.Click
                Exit For
            End If
        Next e
        
        ' 等待表单提交完成，避免下一轮循环时页面未加载
        Do While myie.Busy: DoEvents: Loop
        Do While myie.ReadyState <> 4: DoEvents: Loop
        
        Range("H" & i).Value = "Complete"
        Application.CutCopyMode = False
    Next i
    
    ' 释放占用资源
    myie.Quit
    Set searchtxt = Nothing
    Set myie = Nothing
End Sub

• 覆写confirm的脚本必须严格在按钮点击逻辑之前执行，一旦执行顺序颠倒，就会被原生弹窗卡住
• 自定义的confirm方法保留了返回true的逻辑，完全等价于人工点击弹窗“OK”按钮的效果，不会打断网页原本的表单提交流程
• 整套实现不依赖SendKeys、全局延时等易受系统环境影响的逻辑，运行稳定性更高
• 原代码中无接收对象的CreateObject("internetexplorer.application")属于冗余无效代码，已在修正版本中移除，避免无意义的进程占用

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