执行MS Paint截图代码后，VBA的Application.SendKeys无法触发IE弹窗确认

我看到你遇到的问题了——在执行完截图并通过MS Paint保存的操作后，用Application.SendKeys "{ENTER}"无法触发IE弹出的确认按钮，但跳过截图步骤就正常。这其实是系统焦点丢失导致的：截图操作后，焦点还停留在Paint或后台进程上，按键根本没发送到IE的弹窗上。咱们不用改动核心代码，只需要调整焦点控制的逻辑就能解决：

具体修改方案 #

1. 在触发弹窗的点击操作后，重新激活IE窗口（包括弹出的确认框）
2. 改用WScript.Shell的SendKeys替代Application.SendKeys，它对跨窗口焦点的兼容性更好

修改后的关键代码片段如下：

'===============================================================
Application.Wait (Now + TimeValue("00:00:02"))
Dim e
Set e = IE.Document.GetElementsByClassName("btn btn-default btn-lg")(0)
e.Click ' 触发确认弹窗

' 等待弹窗加载完成
Application.Wait (Now + TimeValue("00:00:02"))

' 重新获取IE窗口句柄并激活，确保焦点落在弹窗上
HWNDSrc = IE.hWnd
SetForegroundWindow HWNDSrc
' 给系统一点时间完成窗口激活
Application.Wait (Now + TimeValue("00:00:01"))

' 使用WScript.Shell发送Enter按键，比Application.SendKeys更可靠
Dim WSH_Confirm As Object
Set WSH_Confirm = CreateObject("WScript.Shell")
WSH_Confirm.SendKeys "{ENTER}"
Set WSH_Confirm = Nothing

IE.Quit
MsgBox "End"
Next j
'=================================================================

为什么这个方案有效？ #

• 截图操作后，MS Paint的窗口大概率还占据着系统焦点，SetForegroundWindow HWNDSrc会强制把IE窗口（包括弹出的确认对话框）带到前台并激活，确保后续按键能被正确捕获。
• WScript.Shell.SendKeys相比Excel自带的Application.SendKeys，在处理跨程序窗口的按键发送时稳定性更强，尤其是针对弹出式对话框这类非主窗口元素。

你也可以根据实际运行情况调整等待时间（比如把3秒的等待缩短到1-2秒），提升脚本的执行效率。

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