Need help using VBA to interact with a Child Window in IE8

Hello,

I am having trouble getting my code to interact with a Child Window in Internet Explorer. On our intranet webpage, when you click on a link, a RadWindow pops up. A RadWindow is a Modal Popup window, which is a Child Window of a Parent. The code I usually use does not work because it is only looking at the Parent Windows:

'Microsoft Internet Controls Reference is needed
'Microsoft HTML Object Library Reference is needed

Public Sub FindWindow()

    Dim objShellWins As SHDocVw.ShellWindows
    Dim objIE As SHDocVw.InternetExplorer
    Dim objDoc As Object
    Dim WebCheck As String
	
    'Location name of the webpage I am looking for
    WebCheck = "Google"

    'Check each open window for a window with the WebCheck string in the Location Name
    Set objShellWins = New SHDocVw.ShellWindows
    For Each objIE In objShellWins
        With objIE
            If (InStr(1, .LocationName, WebCheck, vbTextCompare)) Then
                Set objDoc = .document
                If (TypeOf objDoc Is HTMLDocument) Then
                    objIE.Visible = True

                    MsgBox "Window Found!!!"

                End If
            End If
        End With
    Next

End Sub

Does anyone know how to modify the code to look for a Child Window using VBA?

Thanks,
Matt

Here is an example of the problem I have. The attached spreadsheet has a button that when clicked will open a website that has an example of a RadWindow, which is a window within a window. It will read the value of an element on the parent window, which in this case is "POST", and display it in a message box. Then it will attempt to read and display the value of an element from the RadWindow (Child Window), and this is where I get an error. I can't figure out how to access the Child Window rather than the Parent.

Here is the code, if you would rather create a new workbook from scratch:

'Microsoft Internet Controls Reference is needed
'Microsoft HTML Object Library Reference is needed

Public Sub ReadNotes()

    Dim objShellWins As SHDocVw.ShellWindows
    Dim objIE As SHDocVw.InternetExplorer
    Dim objDoc As Object
    Dim WebCheck As String
    Dim SuccessCheck As Integer
    Dim URL1 As String

    'Demonstration Webpage URL and checks to make sure webpage is open
    URL1 = "http://demos.telerik.com/aspnet-ajax/window/examples/overview/defaultcs.aspx"
    WebCheck = "ASP.NET Window Demo"
    SuccessCheck = 0
    
    'Open new webpage and navigate to webpage
    Set objIE = New SHDocVw.InternetExplorer
    objIE.navigate URL1
    
    'Wait until internet explorer is done loading before proceeding
    Call ExplorerStatusCheck(objIE)
    
    'Check each open tab for the webpage
    Set objShellWins = New SHDocVw.ShellWindows
    For Each objIE In objShellWins
        With objIE
            If (InStr(1, .LocationName, WebCheck, vbTextCompare)) Then
                Set objDoc = .document
                If (TypeOf objDoc Is HTMLDocument) Then
                    SuccessCheck = 1
                    objIE.Visible = True
      
'-----------This section of code will read the element from the Parent window and display its value, "POST"----

                    Set objNotes1 = objIE.document.getElementsByName("ctl00$RatingAndReview$SubmitComment")
                    objNotes1 = objNotes1(0).Value
                    MsgBox objNotes1
                    
'-----------This is the section of code I am having problems with, I don't know how to get the value of an element in
'-----------a child window. I think the problem is that it is looking for the element in the Parent window.

                    Set objNotes2 = objIE.document.getElementsByName("ctl00$ProductSearch2$tbInMenuSearchBox$emptyTextInput")
                    objNotes2 = objNotes2(0).Value
                    MsgBox objNotes2
                                        
                    Exit For
'------------------------------------------------------------------------------------------------------------------

                End If
            End If
        End With
    Next
        
    'If the webpage is not found, displays an error message
    If SuccessCheck = 0 Then
        MsgBox ("Webpage not found." & vbCrLf & vbCrLf _
        & "Please try again."), vbCritical
    End If
    
End Sub

'Wait until internet explorer is done loading before proceeding
Public Sub ExplorerStatusCheck(objIE As SHDocVw.InternetExplorer)

    With objIE
        Do While .Busy: DoEvents: Loop
        Do While .readyState <> 4: DoEvents: Loop
        Do Until .Busy = False
        Loop
        While objIE.readyState <> READYSTATE_COMPLETE
            DoEvents
        Wend
    End With

End Sub

Thanks,
Matt

***Bump***

***Bump***

Thanks for the response. The window I am trying to access is similar to the one found on the website I provided: http://demos.telerik.com/aspnet-ajax...defaultcs.aspx

Since it is in an iframe, there is no way for VBA to access it?

Some forum posts I have been looking at with similar Parent/Child window problems suggest using WithEvents and NewWindow2 to locate the child window:

http://www.mrexcel.com/forum/excel-q...ld-window.html

http://visualbasic.about.com/od/stan...ieinstance.htm

However I have not been able to get it to work. This is my first time trying to access a child window.

Thanks,
Matt

Ah, thats why no matter what I tried I couldn't get it to work. Unfortunately I haven't much luck finding out how to use VBA to access a RadWindow, this WithEvents/NewWindow2 method is the closest I've been.

Wouldn't it just be easier to navigate to the frame source in the first instance?

True, however one should be able to parse the location of the iframe from the source code upon inspection - even if generated from JavaScript, it would be considerably lighter than automating IE. RE: the session, there's no particular reason you need to use IE to authenticate and use a session.

I wasn't commenting on your code more on the initial requirement

Hi all. I'm new to the forum. I know this is a quite old post, but just made my day. Thanks!!