Excel VBA IE自动化- VBA在Window.confirm弹出后停止

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://example.com"

Do While ie.Busy Or ie.ReadyState <> 4
    DoEvents
Loop

SendKeys "{ENTER}"

Sub AutoIE()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://example.com"
    
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 在需要停止的地方，使用SendKeys函数模拟按下"Enter"键
    SendKeys "{ENTER}"
    
    ' 其他操作...
    
    ie.Quit
    Set ie = Nothing
End Sub