VB -- Get Data from an open IE Window

[TPR25]

You could use FindWindow to get the Window Titles, Etc, but this method allows you access to the HTMLDoc property and thus, any value on an html page.

Sub main()
 
Dim objShell As Object
Dim objShellWindows As Object
Dim sWin As Object
Dim x As Integer
    
    Set objShell = CreateObject("Shell.Application")
    Set objShellWindows = objShell.Windows
    'Here we place all open sessions of IE into a collection.
    'So the first instance of IE would be item(0), the
    'second item(1), the third Item(2) and so on. You can
    'the Window count by using objShellWindows.Count
    
    For Each sWin In objShellWindows
        'Set the on Error, just in case an instance of IE does
        'not exist.
        
        On Error Resume Next
        'Once set, you can do anything with IE that you could
        'do with the Webbrowser control. You have total control
        'of the available features.
        MsgBox sWin.Application.Document.Title & "---URL " & sWin.Application.Document.location.href
        If Err Then
            Err.Clear
        End If
    
    Next
    Set sWin = Nothing
    Set objShellWindows = Nothing
    Set objShell = Nothing
    
End Sub