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

Question

请告诉我，如果有任何程序或浏览器的分辨率，它允许您自动复制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