将浏览器中的地址栏导入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