將瀏覽器中的地址欄導入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