closing a pop up window when navigating from xl to ie

chrisbrocco · Oct 20, 2006

I am using excel to navigate aroung internet explorer. What I would like to be able to do is this.

when I navigate to a certain web page a second internet window pops up. I do want it to pop up but I also want to be able to close it. As I ave not called this popup window I cant reference to it, in order to close it.

The title of the pop up window always changes so I cant reference to its title as I will not know what it will be, nor can I use the address as it to always changes.

any suggestions

Legacy 98055 · Oct 20, 2006

Generally speaking...
If you cannot id the window using the locationURL or the title, you need to determine how you will identify this window. Since this window pops up after a predetermined action ("when I navigate to a certain web page a second internet window pops up"), we could assume with a reasonable degree of certainty that the next IE window to be created is the one you want to reference. Correct?

Try this method first. New Window Event

Example code to detect and create a reference to the new window.

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

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

 'this code goes into an object class model
 Private WithEvents ie As InternetExplorer
 Private PopUp As InternetExplorer

 Sub example()
 Dim TimedOut As Date

 Set ie = New InternetExplorer
 ie.Visible = True

 ie.Navigate "URL"
 'add a five second timeout
 TimedOut = DateAdd("s", 5, Now)
 Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
 'assuming that the above url results in a popup

 Do Until Not PopUp Is Nothing Or Now > TimedOut: Loop

 If Not PopUp Is Nothing Then
 'we have a reference to the new window
 'do stuff with the window
 PopUp.Quit
 Set PopUp = Nothing
 Else
 'we don't
 End If

 End Sub

 Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
 Set PopUp = ppDisp
 End Sub
</td></tr></table><button onclick='document.all("1020200620359531").value=document.all("1020200620359531").value.replace(/ \s\s/g,"");document.all("1020200620359531").value=document.all("1020200620359531").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("1020200620359531").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="1020200620359531" wrap="virtual">
Option Explicit

'this code goes into an object class model
Private WithEvents ie As InternetExplorer
Private PopUp As InternetExplorer

Sub example()
Dim TimedOut As Date

Set ie = New InternetExplorer
ie.Visible = True

ie.Navigate "URL"
'add a five second timeout
TimedOut = DateAdd("s", 5, Now)
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
'assuming that the above url results in a popup

Do Until Not PopUp Is Nothing Or Now > TimedOut: Loop

If Not PopUp Is Nothing Then
'we have a reference to the new window
'do stuff with the window
PopUp.Quit
Set PopUp = Nothing
Else
'we don't
End If

End Sub

Private Sub ie_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set PopUp = ppDisp
End Sub</textarea>

Unfortunately, the NewWindow2 event is somewhat exclusive. Here is another option that needs to be refined a bit more.

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

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

 'this code goes into an object class model
 Private WithEvents sw As ShellWindows
 Private PopUp As Object

 Sub example()
 Dim TimedOut As Date, ie As InternetExplorer

 Set ie = New InternetExplorer
 ie.Visible = True

 Set sw = New ShellWindows
 ie.Navigate "URL"
 'add a five second timeout
 TimedOut = DateAdd("s", 5, Now)
 Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
 'assuming that the above url results in a popup

 Do Until Not PopUp Is Nothing Or Now > TimedOut: Loop

 If Not PopUp Is Nothing Then
 'we have a reference to the new window
 'do stuff with the window
 PopUp.Quit
 Set PopUp = Nothing
 Else
 'we don't
 End If

 End Sub

 Private Sub sw_WindowRegistered(ByVal lCookie As Long)
 'get an object reference to the most recently created window
 'this may or may not be an internet explorer window. you will need
 'to determine this in your code
 Set PopUp = sw(sw.Count - 1)
 End Sub
</td></tr></table><button onclick='document.all("1020200620947234").value=document.all("1020200620947234").value.replace(/ \s\s/g,"");document.all("1020200620947234").value=document.all("1020200620947234").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("1020200620947234").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="1020200620947234" wrap="virtual">
Option Explicit

'this code goes into an object class model
Private WithEvents sw As ShellWindows
Private PopUp As Object

Sub example()
Dim TimedOut As Date, ie As InternetExplorer

Set ie = New InternetExplorer
ie.Visible = True

Set sw = New ShellWindows
ie.Navigate "URL"
'add a five second timeout
TimedOut = DateAdd("s", 5, Now)
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
'assuming that the above url results in a popup

Do Until Not PopUp Is Nothing Or Now > TimedOut: Loop

If Not PopUp Is Nothing Then
'we have a reference to the new window
'do stuff with the window
PopUp.Quit
Set PopUp = Nothing
Else
'we don't
End If

End Sub

Private Sub sw_WindowRegistered(ByVal lCookie As Long)
'get an object reference to the most recently created window
'this may or may not be an internet explorer window. you will need
'to determine this in your code
Set PopUp = sw(sw.Count - 1)
End Sub</textarea>

There are several other less direct methods to accomplish this as well. If you are having difficulty adapting this to your current project, please post your code including your attempts at utilizing the above methods.

chrisbrocco · Oct 23, 2006

excellent works perfectly many thanks

closing a pop up window when navigating from xl to ie

chrisbrocco

Board Regular

Excel Facts

Legacy 98055

Guest

chrisbrocco

Board Regular

Similar threads

Forum statistics

Share this page

closing a pop up window when navigating from xl to ie

chrisbrocco

Board Regular

Excel Facts

Legacy 98055

Guest

chrisbrocco

Board Regular

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