Closing an open IE in VBA

[sthrncaliguy]

Hello,

I have a macro that opens a series of URL's and extracts data from the site... How would I go about closing an existing IE window in VBA??

There may be multiple windows open, and the window titles are not always unique, but I do need to close all open IE windows. Is there a way to do that in Excel VBA?

 

[sthrncaliguy]

Couldn't I use some form of AppActivate to set focus and close existing IE windows?

 

[John_w]

Loop through Shell.Windows - see http://www.mrexcel.com/forum/showpost.php?p=1960139&postcount=5 - and call IE.Quit.

 

[sthrncaliguy]

Thanks for the help John..

I have taken the linked code and modified it to fit my needs, but in testing it is only closing some of the IE windows... In particular I am calling seperate IE windows in an IF loop, then I am calling the below code to close the windows, but only 3 are closed.

Any ideas why only 3?

Public Sub CloseIE()
    Dim Shell As Object
    Dim IE As Object
 
    Set Shell = CreateObject("Shell.Application")
 
    For Each IE In Shell.Windows
        If TypeName(IE.Document) = "HTMLDocument" Then
            IE.Quit
        End If
    Next
End Sub

 

[John_w]

Try looping backwards through the Shell.Windows array with a While loop.