如何通过Excel VBA激活已打开的Microsoft Edge窗口？

直接用AppActivate "Microsoft Edge"失败，是因为Edge的窗口标题不是固定的这个字符串——每个标签页的窗口标题是当前页面标题 + " - Microsoft Edge"，所以AppActivate匹配不到正确的窗口。下面给两种可行的解决方案：

方法一：通过Windows API查找并激活Edge窗口 #

这种方法通过调用系统API定位Edge的主窗口，再将其置于前台。需要先声明API函数，然后编写激活逻辑：

' 声明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 FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long

Sub ActivateEdgeWindow()
    Dim edgeMainWnd As LongPtr
    Dim edgeChildWnd As LongPtr
    Dim windowTitle As String * 256
    
    ' 查找Edge的主窗口类名为"Chrome_WidgetWin_1"（Edge基于Chromium，类名和Chrome一致）
    edgeMainWnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    
    If edgeMainWnd <> 0 Then
        ' 找到主窗口下的子窗口（实际显示的窗口）
        edgeChildWnd = FindWindowEx(edgeMainWnd, 0, "Chrome_WidgetWin_1", vbNullString)
        
        If edgeChildWnd <> 0 Then
            ' 获取窗口标题确认
            GetWindowText edgeChildWnd, windowTitle, 256
            ' 激活窗口
            SetForegroundWindow edgeChildWnd
            MsgBox "已激活Edge窗口，标题：" & Left(windowTitle, InStr(windowTitle, vbNullChar) - 1)
        Else
            MsgBox "未找到Edge的子窗口"
        End If
    Else
        MsgBox "未运行Microsoft Edge"
    End If
End Sub

注意：Chrome_WidgetWin_1是Chromium内核Edge的窗口类名，若你用的是旧版Edge（非Chromium），类名会不同，需要调整。

方法二：通过进程名定位并激活 #

先找到msedge.exe的进程，再关联到对应的窗口并激活：

Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As LongPtr, lpdwProcessId As Long) As Long
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
Private Declare PtrSafe Function EnumWindows Lib "user32" (ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long

Dim targetPID As Long

Sub ActivateEdgeByProcess()
    Dim objWMIService As Object
    Dim colProcesses As Object
    Dim objProcess As Object
    
    ' 获取Edge进程的PID
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'msedge.exe'")
    
    For Each objProcess In colProcesses
        targetPID = objProcess.ProcessId
        Exit For
    Next
    
    If targetPID = 0 Then
        MsgBox "未运行Microsoft Edge"
        Exit Sub
    End If
    
    ' 枚举所有窗口，找到对应PID的窗口并激活
    EnumWindows AddressOf EnumWindowsProc, 0
End Sub

Function EnumWindowsProc(ByVal hWnd As LongPtr, ByVal lParam As LongPtr) As Boolean
    Dim pid As Long
    
    GetWindowThreadProcessId hWnd, pid
    If pid = targetPID Then
        ' 激活窗口
        SetForegroundWindow hWnd
        EnumWindowsProc = False ' 停止枚举
    Else
        EnumWindowsProc = True ' 继续枚举
    End If
End Function

这种方法更可靠，不管窗口标题是什么，只要进程存在就能找到对应的窗口。

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