Checking to see if Excel.exe is running - then close it

[Randy Wayne]

I use a program that imports into Excel that requires that the workbook is
closed prior to the import.

How do you check to see if an Excel workbook is open, and then close the
workbook?

How do you then look to see if Excel is still running and then close it
(Excel.exe)?

I already know how to open an instance of Excel, use it, and then close it,
but I have not figured out how to check for an already open instance of a
workbook and/or Excel.

Thanks,
--

Randy

[Paul Clement]

On Mon, 22 Aug 2005 04:52:11 -0700, "Randy Wayne" <ra********@discussions.microsoft.com> wrote:

¤ I use a program that imports into Excel that requires that the workbook is
¤ closed prior to the import.
¤
¤ How do you check to see if an Excel workbook is open, and then close the
¤ workbook?
¤
¤ How do you then look to see if Excel is still running and then close it
¤ (Excel.exe)?
¤
¤ I already know how to open an instance of Excel, use it, and then close it,
¤ but I have not figured out how to check for an already open instance of a
¤ workbook and/or Excel.

You can use API function calls to do this reliably. You can also use the second argument in
FindWindow, which is the window (title) name.

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Int32, ByVal wMsg
As Int32, _
ByVal wParam As Int32, ByVal
lParam As Int32) As Int32

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As
String, _
ByVal lpDirectory As
String, _
ByVal lpResult As
System.Text.StringBuilder) As Int32

Public Function TerminateExcel()

Dim ClassName As String
Dim WindowHandle As Int32
Dim ReturnVal As Int32
Const WM_QUIT = &H12

Do

ClassName = "XLMain"
WindowHandle = FindWindow(ClassName, Nothing)

If WindowHandle Then
ReturnVal = PostMessage(WindowHandle, WM_QUIT, 0, 0)
End If

Loop Until WindowHandle = 0

End Function
Paul
~~~~
Microsoft MVP (Visual Basic)

[Randy Wayne]

Paul:

Thanks for the reply.

Visual Studio states that I need to declare "FindWindow". What variable
type is it?

--
Thanks,

Randy
"Paul Clement" wrote:

On Mon, 22 Aug 2005 04:52:11 -0700, "Randy Wayne" <ra********@discussions.microsoft.com> wrote:

¤ I use a program that imports into Excel that requires that the workbook is
¤ closed prior to the import.
¤
¤ How do you check to see if an Excel workbook is open, and then close the
¤ workbook?
¤
¤ How do you then look to see if Excel is still running and then close it
¤ (Excel.exe)?
¤
¤ I already know how to open an instance of Excel, use it, and then close it,
¤ but I have not figured out how to check for an already open instance of a
¤ workbook and/or Excel.

You can use API function calls to do this reliably. You can also use the second argument in
FindWindow, which is the window (title) name.

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Int32, ByVal wMsg
As Int32, _
ByVal wParam As Int32, ByVal
lParam As Int32) As Int32

Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As
String, _
ByVal lpDirectory As
String, _
ByVal lpResult As
System.Text.StringBuilder) As Int32

Public Function TerminateExcel()

Dim ClassName As String
Dim WindowHandle As Int32
Dim ReturnVal As Int32
Const WM_QUIT = &H12

Do

ClassName = "XLMain"
WindowHandle = FindWindow(ClassName, Nothing)

If WindowHandle Then
ReturnVal = PostMessage(WindowHandle, WM_QUIT, 0, 0)
End If

Loop Until WindowHandle = 0

End Function
Paul
~~~~
Microsoft MVP (Visual Basic)

[John Timney \(ASP.NET MVP\)]

you should be able to use the diagnostics classes

http://www.c-sharpcorner.com/1/protracker_csv1.asp

--
Regards

John Timney
ASP.NET MVP
Microsoft Regional Director

"Randy Wayne" <ra********@discussions.microsoft.com> wrote in message
news:38**********************************@microsof t.com...

I use a program that imports into Excel that requires that the workbook is
closed prior to the import.

How do you check to see if an Excel workbook is open, and then close the
workbook?

How do you then look to see if Excel is still running and then close it
(Excel.exe)?

I already know how to open an instance of Excel, use it, and then close
it,
but I have not figured out how to check for an already open instance of a
workbook and/or Excel.

Thanks,
--

Randy

[Randy Wayne]

John:

Thank you for the reply. I will look at that class as well as the link you
provided sometime today.
--
Thanks,

Randy
"John Timney (ASP.NET MVP)" wrote:

you should be able to use the diagnostics classes

http://www.c-sharpcorner.com/1/protracker_csv1.asp

--
Regards

John Timney
ASP.NET MVP
Microsoft Regional Director

"Randy Wayne" <ra********@discussions.microsoft.com> wrote in message
news:38**********************************@microsof t.com...

I use a program that imports into Excel that requires that the workbook is
closed prior to the import.

How do you check to see if an Excel workbook is open, and then close the
workbook?

How do you then look to see if Excel is still running and then close it
(Excel.exe)?

I already know how to open an instance of Excel, use it, and then close
it,
but I have not figured out how to check for an already open instance of a
workbook and/or Excel.

Thanks,
--

Randy

[Paul Clement]

On Mon, 22 Aug 2005 12:50:02 -0700, "Randy Wayne" <ra********@discussions.microsoft.com> wrote:

¤ Paul:
¤
¤ Thanks for the reply.
¤
¤ Visual Studio states that I need to declare "FindWindow". What variable
¤ type is it?

FindWindow is an API function call. It should be declared at the top of the code module. The declare
is in the code I posted.
Paul
~~~~
Microsoft MVP (Visual Basic)

[Randy Wayne]

Paul:

Again I thank you for the reply.

Please forgive my ingorance, but I have looked and looked for a Declaration
for "FindWindow". I have copied back the two Declare statements from your
first post.

What am I missing?

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd
As Int32, _
ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As
Int32

Declare Function FindExecutable Lib "shell32.dll" Alias
"FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, _
ByVal lpResult As System.Text.StringBuilder) As Int32

--
Thanks,

Randy
"Paul Clement" wrote:

On Mon, 22 Aug 2005 12:50:02 -0700, "Randy Wayne" <ra********@discussions.microsoft.com> wrote:

¤ Paul:
¤
¤ Thanks for the reply.
¤
¤ Visual Studio states that I need to declare "FindWindow". What variable
¤ type is it?

FindWindow is an API function call. It should be declared at the top of the code module. The declare
is in the code I posted.
Paul
~~~~
Microsoft MVP (Visual Basic)

[Paul Clement]

On Tue, 23 Aug 2005 11:46:44 -0700, "Randy Wayne" <ra********@discussions.microsoft.com> wrote:

¤ Paul:
¤
¤ Again I thank you for the reply.
¤
¤ Please forgive my ingorance, but I have looked and looked for a Declaration
¤ for "FindWindow". I have copied back the two Declare statements from your
¤ first post.
¤
¤ What am I missing?
¤
¤ Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd
¤ As Int32, _
¤ ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As
¤ Int32
¤
¤ Declare Function FindExecutable Lib "shell32.dll" Alias
¤ "FindExecutableA" _
¤ (ByVal lpFile As String, ByVal lpDirectory As String, _
¤ ByVal lpResult As System.Text.StringBuilder) As Int32

Sorry, my bad. I posted the incorrect API declare. Below is FindWindow:

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

Paul
~~~~
Microsoft MVP (Visual Basic)

[Randy Wayne]

Paul:

Fantastic!!

Thank you for sticking with this for me.

Randy
"Paul Clement" wrote:

On Tue, 23 Aug 2005 11:46:44 -0700, "Randy Wayne" <ra********@discussions.microsoft.com> wrote:

¤ Paul:
¤
¤ Again I thank you for the reply.
¤
¤ Please forgive my ingorance, but I have looked and looked for a Declaration
¤ for "FindWindow". I have copied back the two Declare statements from your
¤ first post.
¤
¤ What am I missing?
¤
¤ Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd
¤ As Int32, _
¤ ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As
¤ Int32
¤
¤ Declare Function FindExecutable Lib "shell32.dll" Alias
¤ "FindExecutableA" _
¤ (ByVal lpFile As String, ByVal lpDirectory As String, _
¤ ByVal lpResult As System.Text.StringBuilder) As Int32

Sorry, my bad. I posted the incorrect API declare. Below is FindWindow:

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

Paul
~~~~
Microsoft MVP (Visual Basic)