假设您从网站下载了一个工作簿，它会自动打开。但该工作簿可能并非您所需的文件，或其中不包含所需信息，您希望直接将其删除。有时，您甚至可能忘记了文件默认保存的位置。别担心——无需关闭 Excel，您就可以直接删除当前已打开的工作簿。

使用 VBA 删除当前工作簿（当前文件）

使用 VBA 删除当前工作簿（当前文件）

本方法将为您介绍一段 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 将无法将其删除；不过，您只需直接关闭该未保存的工作簿即可实现删除。

太棒了！在 Excel 中像使用 Chrome、Edge、Firefox 和 Safari 一样高效地使用 Tabs！
每天为您节省 50% 的时间，并减少成千上万次鼠标点击！