VBA interacting with new IE window

Ice223 · Aug 28, 2006

I'm using the code below to open up ie and navigate to a website. However, when I navigate around to get to the data I need, a new window pops up with the results that I need to retrieve. How do I set the focus to the new window so I can interact with that?

Thanks.

Code:

Sub Update()
Set Ie = CreateObject("InternetExplorer.Application")
With Ie
.Visible = True
.Navigate "http://..."
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop

.Navigate "javascript:doExport('exportdlg')"

'a new window has now popped up.
'need code here to work with it.

end sub

Legacy 98055 · Aug 28, 2006

Ice223.zip

Code:

'set a reference to Microsoft Internet Controls or
'Microsoft Browser Helpers
Private WithEvents ie As InternetExplorer

Sub Update()
Set ie = CreateObject("InternetExplorer.Application")
With ie
    .Visible = True
    .Navigate "http://..."
    Do Until .ReadyState = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop
End With
.Navigate "javascript:doExport('exportdlg')"

'a new window has now popped up.
'need code here to work with it.

End Sub

Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
'ppDisp will provide an object reference to the new instance
End Sub

Ice223 · Aug 28, 2006

Thanks for the reply, RC.

It's not quite working for me. It seems to jump to the private sub and trys to execute that before the new window pops up. I get an error (in the private sub)..and then once I hit "End" the window will pop up.

Legacy 98055 · Aug 28, 2006

Ice223_2.zip

You will notice a cancel argument. You are being notified of the creation of the window and being given the opportunity to cancel this creation. basically a popup blocker. So what you need to do is declare another module level variable or use the existing one. It depends on if you need to retain a reference to the original or parent instance...

Code:

Option Explicit

'set a reference to Microsoft Internet Controls or
'Microsoft Browser Helpers
Private WithEvents ie As InternetExplorer
Private iePopup As InternetExplorer

Sub Update()

    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate "http://..."
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        .Navigate "javascript:doExport('exportdlg')"
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
    End With
    'a new window has now popped up.
    'need code here to work with it.
    If Not iePopup Is Nothing Then
        'work with your new window here
        
    Else
        'failed to create or reference new window
    End If

End Sub

Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
    'ppDisp will provide an object reference to the new instance
    Set iePopup = ppDisp
End Sub

Ice223 · Aug 29, 2006

Thanks for the reply. I'm not quite getting it to work...

This is my code:

Code:

Option Explicit

'set a reference to Microsoft Internet Controls or
'Microsoft Browser Helpers
Private WithEvents ie As InternetExplorer
Private iePopup As InternetExplorer

Sub Update()

    Set ie = CreateObject("InternetExplorer.Application")
    With ie
    .Visible = True
        .Navigate "http://..."
            Do Until .ReadyState = 4: DoEvents: Loop
            Do While .Busy: DoEvents: Loop
        .Navigate "javascript:doExport('exportdlg')"
            Do Until .ReadyState = 4: DoEvents: Loop
            Do While .Busy: DoEvents: Loop
    End With
    'a new window has now popped up.
    'need code here to work with it.
    If Not iePopup Is Nothing Then
        'work with your new window here
        MsgBox "hi"
        iePopup.Document.all("from").Value = "2"
    Else
        'failed to create or reference new window
        MsgBox "fail"
    End If

End Sub

Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
    'ppDisp will provide an object reference to the new instance
    Set iePopup = ppDisp
End Sub

my msgbox "fail" comes up...so it looks like I'm not doing something right..

Legacy 98055 · Aug 29, 2006

I really cannot troubleshoot without the actual URL's

Ice223 · Aug 29, 2006

k, this is the same method/concept...

Code:

Option Explicit

'set a reference to Microsoft Internet Controls or
'Microsoft Browser Helpers
Private WithEvents ie As InternetExplorer
Private iePopup As InternetExplorer

Sub Update()

    Set ie = CreateObject("InternetExplorer.Application")
    With ie
    .Visible = True
        .Navigate "http://www.dowjones.com/TheCompany/AboutDowJones.htm"
            Do Until .ReadyState = 4: DoEvents: Loop
            Do While .Busy: DoEvents: Loop
        .Navigate "javascript:openWindow('/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg',693,541)"
        Application.Wait (Now + TimeValue("0:00:03"))
    End With
    'a new window has now popped up.
    'need code here to work with it.
    If Not iePopup Is Nothing Then
        'work with your new window here
        MsgBox "hi"
        'Would like code here to work with new window
    Else
        'failed to create or reference new window
        MsgBox "fail"
    End If

End Sub

Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
    'ppDisp will provide an object reference to the new instance
    Set iePopup = ppDisp
End Sub

...I get the fail msgbox.

Legacy 98055 · Aug 29, 2006

Ice223_3.zip

I have no idea and could not find any help on the internet. The event is firing but the argument, ppDisp, is pointing to nothing... Oh well, here is a good enough workaround that could be improved with a bit more work...

<table width="100%" border="1" bgcolor="White" style="filter

rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');" ><td> Option Explicit


 'set a reference to Microsoft Internet Controls or
 'Microsoft Browser Helpers
 Private WithEvents ie As InternetExplorer
 Private iePopup As InternetExplorer

 Sub Update()

 Set ie = New InternetExplorer
 With ie
 .Visible = True
 .Navigate "http://www.dowjones.com/TheCompany/AboutDowJones.htm"
 Do Until .ReadyState = 4: DoEvents: Loop
 Do While .Busy: DoEvents: Loop
 .Navigate "javascript

penWindow('/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg',693,541)"
 End With

 If iePopup Is Nothing Then
 Set iePopup = GetInstance(TimeOutInSeconds:=5, _
 URL:="11http://www.dowjones.com/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg")
 End If

 If Not iePopup Is Nothing Then
 'work with your new window here
 MsgBox "hi"
 'Would like code here to work with new window
 Else
 'failed to create or reference new window
 MsgBox "fail"
 End If

 End Sub

 Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
 'ppDisp will provide an object reference to the new instance
 Set iePopup = ppDisp
 End Sub

 Private Function GetInstance(TimeOutInSeconds As Double, Optional URL As String, _
 Optional LocationName As String, Optional WindowTitle As String, _
 Optional Hwnd As Long) As InternetExplorer

 On Error GoTo Err_GetInstance
 Dim ShellWinList As New ShellWindows, o As InternetExplorer
 Dim TimeOutTime As Date

 TimeOutTime = DateAdd("s", TimeOutInSeconds, Now)

 Do Until Now > TimeOutTime
 For Each o In ShellWinList
 If o.LocationURL = URL Then
 Set GetInstance = o
 Exit Function
 End If
 Next
 Loop

 Exit Function
 Err_GetInstance:
 'handle local errors
 End Function
</td></tr></table>
<button onclick='document.all("TomsCode2").value=document.all("TomsCode2").value.replace(/ \s\s/g,"");document.all("TomsCode2").value=document.all("TomsCode2").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("TomsCode2").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="TomsCode2" wrap="virtual">
Option Explicit

'set a reference to Microsoft Internet Controls or
'Microsoft Browser Helpers
Private WithEvents ie As InternetExplorer
Private iePopup As InternetExplorer

Sub Update()

Set ie = New InternetExplorer
With ie
.Visible = True
.Navigate "http://www.dowjones.com/TheCompany/AboutDowJones.htm"
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
.Navigate "javascript

penWindow('/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg',693,541)"
End With

If iePopup Is Nothing Then
Set iePopup = GetInstance(TimeOutInSeconds:=5, _
URL:="11http://www.dowjones.com/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg")
End If

If Not iePopup Is Nothing Then
'work with your new window here
MsgBox "hi"
'Would like code here to work with new window
Else
'failed to create or reference new window
MsgBox "fail"
End If

End Sub

Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
'ppDisp will provide an object reference to the new instance
Set iePopup = ppDisp
End Sub

Private Function GetInstance(TimeOutInSeconds As Double, Optional URL As String, _
Optional LocationName As String, Optional WindowTitle As String, _
Optional Hwnd As Long) As InternetExplorer

On Error GoTo Err_GetInstance
Dim ShellWinList As New ShellWindows, o As InternetExplorer
Dim TimeOutTime As Date

TimeOutTime = DateAdd("s", TimeOutInSeconds, Now)

Do Until Now > TimeOutTime
For Each o In ShellWinList
If o.LocationURL = URL Then
Set GetInstance = o
Exit Function
End If
Next
Loop

Exit Function
Err_GetInstance:
'handle local errors
End Function
</textarea>

Ice223_3.zip

Ice223 · Aug 30, 2006

Hmm...still not quite getting it. Oh well. Don't worry 'bout it..not worth spending more time on. Thanks for all your help. At the very least, I did learn a few things from your code.

Cheers.

Legacy 98055 · Aug 30, 2006

Well. It worked for me. Pass the URL of the popup window to the function. Edit the URL in my example...

"11http://www.dowjones.com/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg"

note the "11" as the first two characters.
it should be

"http://www.dowjones.com/DJCom/Images/ContentImages/TheCompany/virtuouscircle.jpg"

I purposely entered the wrong URL to test it but did not edit to correct.

VBA interacting with new IE window

Ice223

Active Member

Excel Facts

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Similar threads

Forum statistics

Share this page

VBA interacting with new IE window

Ice223

Active Member

Excel Facts

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Ice223

Active Member

Legacy 98055

Guest

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock