如何将Internet Explorer窗口置于前台？宏操作后需重新激活IE

我之前也踩过这个坑！当宏和其他窗口交互完，IE的焦点经常就“飘”走了，普通的IE.Activate或者IE.Visible = True根本不管用。试试这几个经过实测的方案，应该能解决你的问题：

首先，在你打开IE的时候，先把它的窗口标题记录下来（如果担心后续页面跳转修改标题，可以提前取初始加载完成后的标题）：

Dim IE As InternetExplorer
Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate "你的目标网址"
' 等待页面加载完成后记录标题
Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Loop
Dim ieTitle As String
ieTitle = IE.Document.Title

然后添加Windows API声明（放在模块的最顶部，所有过程之外），通过标题找到窗口句柄并激活：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As Long

在需要重新激活IE的地方调用：

Dim ieHwnd As LongPtr
' IE的窗口类名固定为IEFrame
ieHwnd = FindWindow("IEFrame", ieTitle)
If ieHwnd <> 0 Then
    SetForegroundWindow ieHwnd
End If

⚠️ 注意：如果有多个IE窗口标题相同，这个方法可能会激活错误的窗口，所以最好确保你的目标IE窗口标题唯一。

如果标题不可靠，比如页面会跳转修改标题，可以记录IE的进程ID，通过进程匹配窗口。同样先添加API声明：

Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As LongPtr, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function EnumWindows Lib "user32" (ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long
Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As Long

Dim targetPID As Long ' 全局变量记录目标IE的进程ID

打开IE时记录进程ID：

Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate "你的目标网址"
' 等待加载后获取进程ID
Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Loop
GetWindowThreadProcessId IE.hwnd, targetPID

然后添加一个枚举窗口的回调函数，用来找到对应进程的IE窗口：

Private Function EnumWindowsProc(ByVal hwnd As LongPtr, ByVal lParam As LongPtr) As Boolean
    Dim pid As Long
    Dim className As String * 256
    ' 获取窗口类名，判断是否是IE窗口
    GetClassName hwnd, className, 256
    If Left(Trim(className), 7) = "IEFrame" Then
        GetWindowThreadProcessId hwnd, pid
        ' 匹配目标进程ID
        If pid = lParam Then
            SetForegroundWindow hwnd
            EnumWindowsProc = False ' 找到后停止枚举
            Exit Function
        End If
    End If
    EnumWindowsProc = True ' 继续枚举下一个窗口
End Function

最后在需要激活IE的地方调用：

EnumWindows AddressOf EnumWindowsProc, targetPID

这个方法几乎不会出错，因为每个进程对应唯一的IE主窗口（多标签页的情况也能激活主窗口，后续再处理标签页即可）。

有时候Windows的焦点保护会阻止SetForegroundWindow生效，这时候可以结合模拟按下Alt键来绕过，添加这个API声明：

Private Declare PtrSafe Function keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr) As Long
Const VK_MENU = &H12 ' Alt键的虚拟键码
Const KEYEVENTF_KEYUP = &H2

然后修改激活代码：

If ieHwnd <> 0 Then
    SetForegroundWindow ieHwnd
    ' 模拟按下并松开Alt键，触发系统焦点切换逻辑
    keybd_event VK_MENU, 0, 0, 0
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End If

这个小技巧能解决大部分系统阻止焦点的问题，亲测有效。

另外提醒下：如果你用的是64位Office，所有API声明必须带PtrSafe；32位Office可以去掉PtrSafe。测试时尽量关闭其他“总是置顶”的窗口，避免干扰。

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