Is there a way to close all open internet explorer windows from Excel
VBA. I am able to write the code to close the windows that my code
opens, but I cant get it to close the windows that were already open
prior to running the code. If you can't close them from Exel VBA
code, can you check if any are open.

Thanks for your help

Try code like the following:

Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal HWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Public Const WM_CLOSE As Long = &H10
Public Const IE_WINDOW_CLASS = "IEFrame"


Sub CloseAllInternetExplorer()

Dim HWnd As Long
HWnd = FindWindow(IE_WINDOW_CLASS, vbNullString)
Do Until HWnd = 0
SendMessage HWnd, WM_CLOSE, 0&, 0&
HWnd = FindWindow(IE_WINDOW_CLASS, vbNullString)
Loop

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Is there a way to close all open internet explorer windows from Excel
> VBA. I am able to write the code to close the windows that my code
> opens, but I cant get it to close the windows that were already open
> prior to running the code. If you can't close them from Exel VBA
> code, can you check if any are open.
>
> Thanks for your help
>

I should have noted that the code I posted will not work properly for IE7 if
the "close tabs" confirmation dialog is set to display when IE7 closes.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"Chip Pearson" <(E-Mail Removed)> wrote in message
news:FBDC5BC0-5074-4DF7-915C-(E-Mail Removed)...
> Try code like the following:
>
> Option Explicit
>
> Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
> ByVal lpClassName As String, _
> ByVal lpWindowName As String) As Long
>
> Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
> ByVal HWnd As Long, _
> ByVal wMsg As Long, _
> ByVal wParam As Long, _
> lParam As Any) As Long
>
> Public Const WM_CLOSE As Long = &H10
> Public Const IE_WINDOW_CLASS = "IEFrame"
>
>
> Sub CloseAllInternetExplorer()
>
> Dim HWnd As Long
> HWnd = FindWindow(IE_WINDOW_CLASS, vbNullString)
> Do Until HWnd = 0
> SendMessage HWnd, WM_CLOSE, 0&, 0&
> HWnd = FindWindow(IE_WINDOW_CLASS, vbNullString)
> Loop
>
> End Sub
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting
> www.cpearson.com
> (email on the web site)
>
>
> <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Is there a way to close all open internet explorer windows from Excel
>> VBA. I am able to write the code to close the windows that my code
>> opens, but I cant get it to close the windows that were already open
>> prior to running the code. If you can't close them from Exel VBA
>> code, can you check if any are open.
>>
>> Thanks for your help
>>
>