我明白你遇到的困扰——明明能找到资源管理器的窗口句柄，但就是没法把它激活到前台。这种情况大多是因为BringWindowToTop的能力有限，尤其是当窗口处于最小化状态，或者系统有焦点保护机制的时候。咱们来调整一下代码，用更可靠的API组合来解决这个问题。

修正后的完整代码 #

首先需要补充两个关键的API函数，然后调整激活窗口的逻辑：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

' 定义窗口状态常量
Const SW_RESTORE = 9
Const SW_SHOW = 5

Sub ActivateOrOpenExplorer()
    Dim directory As String
    directory = "C:\...\practice contracts\"
    Dim directorySplit() As String
    directorySplit = Split(directory, "\")
    Dim targetWindowTitle As String
    targetWindowTitle = directorySplit(UBound(directorySplit) - 1)
    
    Dim targetWindowHandle As Long
    targetWindowHandle = FindWindow("CabinetWClass", targetWindowTitle)
    
    If targetWindowHandle <> 0 Then
        ' 如果窗口是最小化状态，先恢复正常显示
        ShowWindow targetWindowHandle, SW_RESTORE
        ' 强制将窗口设为前台并激活
        SetForegroundWindow targetWindowHandle
    Else
        ' 窗口未打开时启动资源管理器
        Shell "explorer.exe " & directory, vbNormalFocus
    End If
End Sub

为什么原来的方法失效？ #

• BringWindowToTop只是把窗口移到Z顺序的最上层，但不会强制它获得输入焦点，当其他窗口正处于前台且系统有焦点保护时，这个调用就没效果。
• SetForegroundWindow是系统专门用来将窗口设置为前台窗口的API，能确保窗口获得焦点并激活，效果比BringWindowToTop可靠得多。
• 如果目标窗口处于最小化状态，必须先用ShowWindow配合SW_RESTORE参数把它恢复到正常显示状态，否则即使调用激活API，窗口也不会出现在视野里。

额外排查建议 #

如果调整后还是有问题，可以检查这两点：

• 确认资源管理器的窗口标题完全匹配你提取的targetWindowTitle：中文系统下，资源管理器窗口标题可能会额外加上 - 资源管理器后缀；如果路径太长，也可能显示完整路径而非最后一级文件夹名，这时候需要调整标题匹配的逻辑。
• 对于多标签页的资源管理器，FindWindow只能找到主窗口的句柄，但只要你需要激活的是整个资源管理器窗口，上面的代码就足够用。如果要定位到特定标签页，还需要更复杂的API调用，但你的场景应该不需要。

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