如何在 Excel 中删除当前工作簿（即当前文件）？

本方法将为您介绍一段 VBA 代码，助您在不关闭 Excel 的情况下，轻松删除当前已打开的工作簿。请按以下步骤操作：

1. 同时按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，将以下 VBA 代码复制并粘贴到弹出的模块窗口中。

VBA：在 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 将无法将其删除；不过，您只需直接关闭该未保存的工作簿即可实现删除。