vba 删除临时生成还未保存的工作簿

可以使用以下代码删除临时生成但还未保存的工作簿：

Application.DisplayAlerts = False '禁用警告提示框
ThisWorkbook.Saved = True '将工作簿标记为已保存，以便关闭时不会出现保存提示框
ThisWorkbook.Close '关闭工作簿
Kill ThisWorkbook.FullName '删除工作簿文件
Application.DisplayAlerts = True '恢复警告提示框

这段代码将标记工作簿为已保存，关闭工作簿并删除工作簿文件。请注意，这将永久删除该文件，因此请确保您的代码正确执行并删除了正确的文件。

相关问题

用VBA生成一个批量删除工作表的代码

可以使用以下 VBA 代码批量删除工作表：

Sub DeleteWorksheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

这段代码会循环遍历当前工作簿中的所有工作表，并删除它们。在删除工作表时，我们需要将 DisplayAlerts 属性设置为 False，以避免出现删除确认对话框。

excel vba 将工作簿所有工作表保存为图片

可以使用以下 VBA 代码将工作簿中的所有工作表保存为图片：

Sub SaveWorksheetsAsImages()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        '设置图片文件名为工作表名称
        Dim fileName As String: fileName = ws.Name & ".png"
        '保存工作表为图片
        ActiveSheet.Export fileName:=fileName, FilterName:="PNG"
    Next ws
End Sub

这段代码将遍历工作簿中的所有工作表，将每个工作表保存为以工作表名称命名的 PNG 图片文件。你可以将代码复制到 VBA 编辑器中，并在工作簿中运行该宏。