PDA

View Full Version : Looping Through Each Internet Explorer


Rajan_Verma
03-27-2012, 02:33 PM
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
03-27-2012, 02:47 PM
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
03-27-2012, 07:29 PM
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
03-27-2012, 07:30 PM
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