Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Howto close all Excel Applications
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Title:
Howto close all Excel Applications
Miscellaneous
Thread ID:
00485601
Message ID:
00485601
Views:
43
Sometimes I need to close unconditionally all running Excel or Word applications on the remote server. I do it as described in http://support.microsoft.com/support/kb/articles/Q246/0/21.ASP, like:
*------------------------
DECLARE LONG FindWindowA IN WIN32API STRING class, STRING title
DECLARE INTEGER SendMessage IN Win32API ;
INTEGER HWND,INTEGER Msg, Short WParam, INTEGER LPARAM

* Pass the class name for Excel - "XLMain" to FindWindowA
lcMSClassName="XLMain"

oWordHandle = FindWindowA(lcMSClassName,NULL)
do while oWordHandle>0
=SendMessage(oWordHandle,16,0,0)
oWordHandle = FindWindowA(lcMSClassName,NULL)
enddo
*----------------------------
The problem is when changes were made on particular file, the messagebox appears asking for "do you want to save..." and waiting for response.
In all my applications I use objExcel.DisplayAlerts=.f. to avoid it, but I can not figure out how to control others.
I will appreciate your help.
Next
Reply
Map
View

Click here to load this message in the networking platform