如何将提前未知的应用程序窗口置于前台？附VBA文件打开子程序

嘿，我之前也遇到过类似的需求——你的StartDoc函数虽然能自动用对应程序打开文件，但它没法返回任何关于启动的应用的进程或窗口信息，这就导致我们没法直接把窗口拉到前台。要解决这个问题，我们得换用ShellExecuteEx这个更强大的Windows API，它能帮我们获取启动的进程ID，接着通过进程ID找到对应的主窗口，最后调用API把窗口置顶。

第一步：声明所需的Windows API和结构体 #

首先得在标准模块（别放在窗体模块里）顶部声明这些内容，因为VBA本身没有这些系统级功能：

' ShellExecuteEx需要的结构体
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    ' 扩展成员，用于获取进程信息
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type

' 调用系统程序并获取进程信息
Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpExecInfo As SHELLEXECUTEINFO) As Long

' 根据窗口获取进程ID，以及枚举所有窗口
Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As Long) As Long

' 将窗口置于前台
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

' 常量定义
Private Const SEE_MASK_NOCLOSEPROCESS = &H40  ' 要求返回进程句柄
Private Const SW_SHOWNORMAL = 1              ' 正常显示窗口
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)  ' 用于等待窗口加载

第二步：写个辅助函数找进程对应的窗口 #

因为我们不知道打开的应用窗口标题，只能通过进程ID匹配窗口。这里需要一个回调函数来枚举所有顶层窗口，找到属于目标进程的可见窗口：

Private lngTargetPID As Long
Private lngFoundHWND As Long

' 窗口枚举的回调函数
Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim lngPID As Long
    GetWindowThreadProcessId hwnd, lngPID
    ' 匹配进程ID且窗口可见，就记录窗口句柄并停止枚举
    If lngPID = lngTargetPID And IsWindowVisible(hwnd) Then
        lngFoundHWND = hwnd
        EnumWindowsProc = 0
    Else
        EnumWindowsProc = 1 ' 继续找下一个窗口
    End If
End Function

' 根据进程ID获取主窗口句柄
Private Function GetMainWindowHandleByPID(ByVal PID As Long) As Long
    lngTargetPID = PID
    lngFoundHWND = 0
    EnumWindows AddressOf EnumWindowsProc, 0
    GetMainWindowHandleByPID = lngFoundHWND
End Function

第三步：修改你的打开文件子程序 #

把原来的StartDoc替换成ShellExecuteEx，这样就能拿到进程ID，进而找到窗口并激活：

Public Sub OpenNativeAppAndActivate(ByVal psDocName As String)
    Dim sei As SHELLEXECUTEINFO
    Dim lngProcessID As Long
    Dim hwndApp As Long
    Dim msg As String
    
    ' 初始化ShellExecuteEx的参数
    With sei
        .cbSize = Len(sei)
        .fMask = SEE_MASK_NOCLOSEPROCESS ' 必须加这个才能拿到进程句柄
        .hwnd = 0
        .lpVerb = "open"
        .lpFile = psDocName
        .lpParameters = ""
        .lpDirectory = ""
        .nShow = SW_SHOWNORMAL
        .hInstApp = 0
        .hProcess = 0
    End With
    
    ' 执行打开操作
    If ShellExecuteEx(sei) Then
        lngProcessID = sei.hProcess
        ' 等500毫秒，给应用足够时间创建窗口（避免找不到）
        Sleep 500
        
        ' 根据进程ID找主窗口
        hwndApp = GetMainWindowHandleByPID(lngProcessID)
        
        ' 找到窗口就带到前台
        If hwndApp <> 0 Then
            SetForegroundWindow hwndApp
        End If
    Else
        msg = "Failed to open the file."
        MsgBox msg, vbExclamation
    End If
End Sub

关键细节说明 #

1. 为什么不用StartDoc？：StartDoc是比较老旧的API，没有返回进程信息的能力，而ShellExecuteEx专门提供了这个功能，完美适配我们的需求。
2. 等待窗口加载：加Sleep 500是因为有些应用启动慢，窗口还没创建就查找会失败，你可以根据实际情况调整延迟时间，或者用DoEvents循环替代。
3. 64位Office适配：如果你的Office是64位的，需要把API声明里的Long换成LongPtr，结构体里的指针类型也要对应调整，比如把hwnd As Long改成hwnd As LongPtr。

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