Looping Through Each Internet Explorer

User will get the URL of All running webBrowser.

Code:

---

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 is not only give details for the active web browser but also give details of the active / open folders.
:) Thanks for sharing this.

Quote:

---

Originally Posted by Rajan_Verma

User will get the URL of All running webBrowser.

Code:

---

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

Quote:

---

Originally Posted by Rajan_Verma

User will get the URL of All running webBrowser.

Code:

---

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