è¦ç¨VBAæ¥å
³éå·¥ä½ç°¿ï¼ç¨Workbook.Close æ¹æ³å³å¯ï¼èè¦éåºExcelï¼åç¨Application.Quit æ¹æ³ï¼
å
³éæ´»å¨å·¥ä½ç°¿ï¼å¦æå·¥ä½ç°¿ææ´æ¹ï¼æ示æ¯å¦ä¿åï¼
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
å¦æè¦é¿å
åºç°æ示ï¼å¯æ·»å âSaveChangesâåæ°ï¼å¦ç´æ¥ä¿å并å
³éå·¥ä½ç°¿ï¼
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
End Sub
å°ä¸è¿°ä»£ç ä¸çâTrueâæ¹ä¸ºâFalseâï¼åç´æ¥å
³éå·¥ä½ç°¿èä¸ä¿åã
å
³éæææå¼çå·¥ä½ç°¿ï¼å¹¶æ示æ¯å¦ä¿åï¼
Sub CloseAllWorkbooks()
On Error Resume Next
Workbooks.Close
End Sub
éåºExcelï¼å¹¶æ示对ææ´æ¹çå·¥ä½ç°¿è¿è¡ä¿åï¼
Sub QuitExcel()
Application.Quit
End Sub
ä¿åæ´»å¨å·¥ä½ç°¿å¹¶éåºExcelï¼
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
Application.Quit
End Sub
ä¸é¢ç代ç å¨éåºExcelæ¶é½ä¸ä¼æ示æ¯å¦ä¿åå·¥ä½ç°¿ã
ä¿åæææå¼çå·¥ä½ç°¿å¹¶éåºExcelï¼
Sub SaveAllAndQuit()
For Each wbk In Workbooks
wbk.Save
Next
Application.Quit
End Sub
éåºExcelï¼ææçæ¹å¨é½ä¸ä¿åï¼
Sub QutiAndNoAlerts()
Application.DisplayAlerts = False
Application.Quit
End Sub
温馨提示:答案为网友推荐,仅供参考