如何通过Excel VBA关闭Chrome单个标签页？快捷键方法无效

问题背景 #

我想通过Excel VBA打开带预填内容的Google Form链接（数据会同步到Google Sheet），希望1秒后自动关闭这个新打开的标签页，但用SendKeys执行^W或%{F4}会关掉所有Chrome标签页，请问怎么只关闭最后打开的那个？

我目前用的打开和等待代码：

ActiveWorkbook.FollowHyperlink myURL
Application.Wait Now + #12:00:01 AM#

可行解决方案 #

方法1：用Shell启动独立Chrome窗口并关闭进程 #

直接通过Shell命令启动Chrome的新窗口（而非标签页），获取进程ID后关闭该进程，不会影响其他Chrome窗口。

代码示例：

Dim chromePID As Double
' 用--new-window参数强制打开独立Chrome窗口
chromePID = Shell("chrome.exe --new-window " & myURL, vbNormalFocus)
' 等待1秒
Application.Wait Now + #12:00:01 AM#
' 强制关闭对应进程
Shell "taskkill /PID " & chromePID & " /F", vbHide

优点：逻辑简单，无需复杂API调用；缺点：打开的是独立窗口而非原有窗口的新标签页。

方法2：通过Windows API定位最新Chrome标签页 #

利用Windows API找到Chrome的窗口句柄，定位到最新打开的标签页后发送关闭消息。

代码示例：

' 声明API函数（64位Excel需加PtrSafe）
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
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
Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Const WM_CLOSE = &H10

Sub OpenAndCloseChromeTab()
    ' 打开目标链接
    ActiveWorkbook.FollowHyperlink myURL
    ' 等待1秒
    Application.Wait Now + #12:00:01 AM#
    
    Dim chromeMainWnd As LongPtr, tabWnd As LongPtr
    ' 定位Chrome主窗口
    chromeMainWnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    If chromeMainWnd <> 0 Then
        ' 逐层找到标签页容器（Chrome窗口层级可能随版本变化）
        tabWnd = FindWindowEx(chromeMainWnd, 0, "Chrome_TabStrip", vbNullString)
        tabWnd = FindWindowEx(tabWnd, 0, "Chrome_Window", vbNullString)
        ' 发送关闭消息
        If tabWnd <> 0 Then PostMessage tabWnd, WM_CLOSE, 0, 0
    End If
End Sub

注意：Chrome的窗口类名可能随版本更新改变，如果代码失效，需要用窗口探测工具（如Spy++）重新获取最新类名。

方法3：借助VBScript关闭最后打开的标签页 #

编写VBScript脚本遍历Chrome窗口，找到最后打开的标签页并关闭，在VBA中调用该脚本。

VBA代码：

' 打开链接
ActiveWorkbook.FollowHyperlink myURL
' 等待1秒
Application.Wait Now + #12:00:01 AM#
' 调用VBS脚本
Shell "wscript.exe ""C:\CloseLastChromeTab.vbs""", vbHide

CloseLastChromeTab.vbs脚本内容（保存到C盘根目录，路径可自行修改）：

Set objShell = CreateObject("Shell.Application")
Set allWindows = objShell.Windows
Dim chromeTabs()
ReDim chromeTabs(-1)

' 收集所有Chrome窗口
For Each win In allWindows
    If InStr(win.FullName, "chrome.exe") > 0 Then
        ReDim Preserve chromeTabs(UBound(chromeTabs)+1)
        Set chromeTabs(UBound(chromeTabs)) = win
    End If
Next

' 关闭最后一个打开的Chrome窗口/标签页
If UBound(chromeTabs) >= 0 Then
    chromeTabs(UBound(chromeTabs)).Quit
End If

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