iT邦幫忙

DAY 28
3

WSH研習記錄系列 第 30

WSH研習記錄--Office應用程式操作篇(Excel應用三)

不知道各位大大到目前為止是否有發現個問題
開啟活頁簿、關閉活頁簿之後....
Excel應用程式還是開著耶..
那要怎麼將它關掉呢??
結束Excel應用程式(Quit方法)
在Excel.Application物件中
利用Ouit方法可協助關閉Excel應用程式

範例... (這才是重點..)

Option Explicit

Private XLS
Private wp

On Error Resume Next
Do
	Set XLS = GetObject(, "Excel.Application")
	On Error GoTo 0
	If IsEmpty(XLS) Then Exit Do
	For Each wp In XLS.Workbooks
		wp.Saved = True
	Next
	XLS.EnableEvents = False
	XLS.Quit
Loop Until True
Set XLS = Nothing

以上這個範例使用上請小心
它會將你目前所有開啟的Excel應用程式關閉
而且是在未存檔的情況下進行關閉...

若要避免這個情況
請將
wp.Saved = True

改成
wp.Saved = False

如此在關閉時就會詢問你是否存檔..

提供給有需要的人..


上一篇
WSH研習記錄--Office應用程式操作篇(Excel應用二)
下一篇
WSH研習記錄--個人小嘗試分享
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言