将浏览器中的地址栏导入Excel

请告诉我，如果有任何程序或浏览器的分辨率，它允许您自动复制在Excel中的地址栏？

Answer 1

使用VBA，这个副本打开IE应用程序的地址栏。

Public Sub Test() Dim objWindow As Object Dim objIEApp As Object Dim objShell As Object Dim objItem As Object Set objShell = CreateObject("Shell.Application") Set objWindow = objShell.Windows() For Each objItem In objWindow If LCase(objItem.FullName Like "*iexplore*") Then Set objIEApp = objItem End If Next objItem Debug.Print objIEApp.LocationURL End Sub