Access an open IE window

kg8299 · May 4th, 2006, 07:18 AM

Hi,

I want to access an IE window from a set of open IE windows based on the address bar information.

Can anyone help me in this regard?

Thanks

maccas · May 4th, 2006, 07:50 AM

I think this is the sort of thing you mean:

Code:

Sub Test()

Dim SW As SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer

    Set SW = New ShellWindows

    ' Loop through all the shell windows on the desktop
    For Each IE In SW

        ' If its an HTML document = a webpage
        If TypeOf IE.Document Is HTMLDocument Then
            MsgBox IE.LocationName
        End If

    Next IE

    Set SW = Nothing

End Sub