如何通过VBA将Internet Explorer的请求URL复制到Excel？

嘿，这个需求确实有点挑战——IE的原生VBA对象模型并没有直接提供访问开发者工具「网络」标签里请求URL的途径，你当前的代码只能拿到页面最终加载完成后的LocationURL（也就是地址栏显示的URL）。不过咱们可以通过两种可行的方案来实现你想要的效果：

方案一：借助Fiddler的COM接口捕获请求 #

Fiddler是一款常用的HTTP抓包工具，它提供了COM自动化接口，可以在VBA里调用它来捕获所有通过IE发出的HTTP请求。步骤如下：

1. 先安装Fiddler（安装时记得勾选「Register as system proxy」选项）
2. 在Excel VBA编辑器里添加对FiddlerScriptEngine的引用（点击「工具」→「引用」，找到并勾选它）
3. 使用以下代码捕获请求URL：

Sub CaptureIEHttpRequestURLs()
    Dim oFiddler As Fiddler.FiddlerApplication
    Dim oSessions As Fiddler.SessionState
    Dim oSession As Fiddler.Session
    Dim lastSessionCount As Long
    Dim i As Long
    Dim targetURL As String
    
    ' 初始化Fiddler服务
    Set oFiddler = New Fiddler.FiddlerApplication
    oFiddler.Startup 8888, True, True
    
    ' 获取要导航的目标URL
    targetURL = Cells(1, 1).Value
    
    ' 启动IE并导航
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True ' 可选，设为True方便查看页面加载状态
    IE.Navigate targetURL
    
    ' 等待页面加载完成，同时监听新请求
    lastSessionCount = oFiddler.SessionCount
    Do While IE.Busy Or IE.ReadyState <> 4
        ' 检查是否有新的请求产生
        If oFiddler.SessionCount > lastSessionCount Then
            For i = lastSessionCount To oFiddler.SessionCount - 1
                Set oSession = oFiddler.SessionItem(i)
                ' 将请求URL写入Excel第10列，从第2行开始累加
                Cells(i + 1, 10).Value = oSession.fullUrl
            Next i
            lastSessionCount = oFiddler.SessionCount
        End If
        DoEvents
    Loop
    
    ' 清理资源
    IE.Quit
    oFiddler.Shutdown
    Set IE = Nothing
    Set oFiddler = Nothing
End Sub

这段代码会捕获IE导航过程中所有发出的HTTP/HTTPS请求URL，并把它们依次写入Excel的第10列。

方案二：使用Windows API钩子捕获WinINet请求 #

如果不想依赖第三方工具，可以通过挂钩Windows的WinINet API（IE底层用它处理网络请求）来捕获URL。这种方法更复杂，需要声明多个API函数，适合有一定VBA和Windows API基础的用户。核心思路是挂钩InternetOpenUrl等函数，拦截请求并记录传入的URL参数。

以下是简化版的思路示例（注意32位/64位Excel的API声明差异）：

' 仅适用于32位Excel的API声明，64位需调整参数类型
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
    ByVal hInternet As Long, _
    ByVal lpszUrl As String, _
    ByVal lpszHeaders As String, _
    ByVal dwHeadersLength As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long

' 核心逻辑：通过钩子技术拦截InternetOpenUrl调用，提取lpszUrl参数并记录
' 注：完整钩子实现代码较长，需结合钩子框架（如EasyHook）或自定义钩子逻辑，此处仅提供方向

这种方法涉及底层API操作，调试难度较高，还可能被杀毒软件误报，所以非必要情况下优先推荐方案一。

补充说明 #

• 如果你只需要捕获页面主请求的URL（而非所有资源请求），可以在Fiddler代码里添加判断，比如过滤oSession.RequestMethod = "GET"且属于主文档的请求。
• 确保IE的代理设置指向Fiddler（默认安装后Fiddler会自动配置），否则无法捕获请求。

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