Looping Through Each Internet Explorer

[Rajan_Verma]

User will get the URL of All running webBrowser.

Sub LoopThroughEachIEWindow()

'Reference : Microsoft Internet Control
    
    Dim objSh    As New SHDocVw.ShellWindows
    Dim ibR     As SHDocVw.WebBrowser
    For Each ibR In objSh
        Debug.Print ibR.LocationURL
    Next
End Sub

[technicalupload]

This is not only give details for the active web browser but also give details of the active / open folders.
Thanks for sharing this.

[Rajan_Verma]

User will get the URL of All running webBrowser.

Sub LoopThroughEachIEWindow()

'Reference : Microsoft Internet Control
    
    Dim objSh    As New SHDocVw.ShellWindows
    Dim ibR     As SHDocVw.WebBrowser
    For Each ibR In objSh
        Debug.Print ibR.LocationURL
    Next
End Sub

this code will work with Internet explorer only.

Thanks

[Rajan_Verma]

User will get the URL of All running webBrowser.

Sub LoopThroughEachIEWindow()

'Reference : Microsoft Internet Control
    
    Dim objSh    As New SHDocVw.ShellWindows
    Dim ibR     As SHDocVw.WebBrowser
    For Each ibR In objSh
        Debug.Print ibR.LocationURL
    Next
End Sub

this code will work with Internet explorer only.

Thanks