[發問] 有關強制關閉EXCEL不存檔問題

ltc

如果使用
ThisWorkbook.Close (False)     '關閉現行的活頁簿True=儲存變更不警告,False=不儲存變更不警告
只能關閉檔案，無法關閉excel

如果使用
Application.Quit            '關閉EXCEL
如有變更資料，就會出現是否存檔對話框

請問我希望直接關閉excel，而且不希望存檔，且不要出現對話框
請教該如何處理，謝謝:)

GBKEE

回復 1# ltc
ThisWorkbook 的預設程序 (活頁簿關閉事件)

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Me.Close 0
   
3. End Sub

複製代碼

ltc

GBKEE 版主您好：
我將程式碼放入ThisWorkbook內，這樣對嗎?

執行結果還是無法關閉execl

我想要關閉活頁簿及execl程式
謝謝

Hsieh

就是先關活頁簿不儲存,再關應用程式

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Me.Close 0
   
3.    Application.Quit
   
4. End Sub

複製代碼

FAlonso

以下的code是改良版

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. ActiveWorkbook.Saved = True
   
3. Application.Quit
   
4. End Sub

複製代碼

ltc

感謝兩位大大的指導，這正是我需要的
非常抱歉，現在才回覆

補上我剛剛找的資料

Workbook.Saved 屬性
如果指定活頁簿從上次儲存至今未做過變更，則本屬性值為 True。可讀寫的 Boolean。
語法
運算式.Saved
運算式   代表 Workbook 物件的變數。
備註
如果活頁簿從未進行儲存，則其 Path 屬性會傳回空字串 ("")。
如果要關閉某個已變更的活頁簿，但又不想儲存它或不想出現儲存提示，可將此屬性設定為 True。

940678

已學會
感謝各位大大熱心教導