我需要将请求 URL 从 Internet Explorer 复制到 Excel 中

Question

有没有办法使用 VBA 将请求 URL 复制到 Excel 中。我目前使用的代码将位置 URL 复制到 Excel 中。但我真的需要请求 URL。您可以使用Internet Explorer中的开发人员工具找到此URL，并查看网络。

我现在的代码：

Sub GetUrl()
Const READYSTATE_COMPLETE As Long = 4
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate Cells(1, 1).Value
'// Wait for page to finish loading
While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
Cells(1, 10).Value = IE.LocationURL
End Sub

Answer 1

单元格(1,1(之间有什么区别。值和请求 URL，如果它们相同，则无需从 IE 浏览器获取请求 URL，只需复制值并粘贴到另一个单元格即可。

如果你想获取请求URL，作为一种解决方法，我建议你可以在你的网页中添加一个隐藏文件，并使用它来存储请求URL(当页面加载时，使用JavaScript设置值(，然后，你可以使用VBA脚本找到这个元素并获取值。