如何在 Excel 中刪除目前的工作簿（當前檔案）？

此方法將介紹一段 VBA 程式碼，讓您在不關閉 Excel 的情況下，刪除目前已開啟的工作簿。請依照下列步驟操作：

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點擊插入 > 模組，複製下列 VBA 程式碼並貼上至開啟的模組視窗中。

VBA：在 Excel 中刪除當前工作簿但不關閉 Excel

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub

3. 按下 F5 鍵或點擊執行按鈕，立即執行此 VBA！

注意事項：

（1) 此 VBA 可刪除目前的工作簿，但無法關閉 Excel 視窗。若刪除後無其他活頁簿開啟，請手動關閉 Excel 視窗。

（2) 若目前的工作簿從未儲存過，此 VBA 無法將其刪除；不過，您可直接關閉該活頁簿，即可移除這個未儲存的檔案。