如何用VBA结合Selenium获取Chrome当前URL及最后活动标签页URL？

一、Excel VBA + Selenium 获取Chrome当前URL #

如果是通过Selenium启动并控制的Chrome实例，直接调用driver.CurrentUrl即可获取当前活动标签页的URL，示例代码如下：

首先确保已在VBA编辑器中添加Selenium Type Library引用（工具 → 引用）：

Sub GetChromeUrlWithSelenium()
    Dim driver As New ChromeDriver
    
    ' 启动Chrome并打开目标页面（也可连接已运行的Chrome实例，需提前启动带调试端口的Chrome）
    driver.Start "chrome"
    driver.Get "https://www.example.com"
    
    ' 获取当前标签页URL
    Debug.Print "当前URL：" & driver.CurrentUrl
    MsgBox "当前URL：" & driver.CurrentUrl
    
    driver.Quit
End Sub

如果要连接已运行的Chrome实例（需先以调试模式启动Chrome，比如在命令行执行chrome.exe --remote-debugging-port=9222），可替换启动代码为：

driver.SetCapability "debuggerAddress", "127.0.0.1:9222"
driver.Start

二、获取Chrome最后活动实例/标签页的URL #

Selenium无法直接获取用户手动打开的Chrome活动实例，需借助Windows API和Chrome的COM自动化接口实现，步骤如下：

1. 在VBA编辑器中添加Microsoft Internet Controls和Microsoft Shell Controls And Automation引用（工具 → 引用）
2. 示例代码：

' 声明Windows API函数
Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long
Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long

Sub GetLastActiveChromeTabUrl()
    Dim shellApp As Shell
    Dim chromeWin As InternetExplorer
    Dim targetUrl As String
    
    Set shellApp = New Shell
    
    ' 遍历所有窗口，筛选Chrome实例并获取最后活动窗口的当前标签URL
    For Each chromeWin In shellApp.Windows
        If InStr(LCase(chromeWin.FullName), "chrome.exe") > 0 Then
            targetUrl = chromeWin.LocationURL
            Debug.Print "最后活动Chrome标签URL：" & targetUrl
            MsgBox "最后活动Chrome标签URL：" & targetUrl
            Exit For
        End If
    Next
    
    ' 释放对象
    Set chromeWin = Nothing
    Set shellApp = Nothing
End Sub

注意：该方法依赖Chrome的COM自动化支持，若Chrome版本较新，需确保未禁用自动化功能（默认启用），部分环境可能需要在Chrome启动参数中添加--enable-automation。

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