Excel VBA 关闭而不保存 - VBA

在 Excel VBA 中，我们可以使用 ActiveWorkbook.Close 方法来关闭当前活动的工作簿。然而，如果我们没有保存工作簿，Excel 会提示我们保存工作簿。如果我们想关闭工作簿而不保存更改，我们可以使用 SaveChanges 参数。以下是示例代码：

Sub CloseWorkbookWithoutSaving()
    ActiveWorkbook.Close SaveChanges:=False
End Sub

在上面的代码中，SaveChanges 参数设置为 False，表示不保存更改，仅关闭工作簿。

如果您不想保存当前活动的工作簿，您可以使用以下代码：

Sub CloseActiveWorkbookWithoutSaving()
    ActiveWindow.Close SaveChanges:=False
End Sub

在上面的代码中，我们使用 ActiveWindow 对象的 Close 方法来关闭活动窗口，同样，SaveChanges 参数设置为 False。

最后，如果您想关闭所有打开的工作簿而不保存更改，您可以使用以下代码：

Sub CloseAllWorkbooksWithoutSaving()
    Dim i As Integer
    
    For i = Workbooks.Count To 1 Step -1
        Workbooks(i).Close SaveChanges:=False
    Next i
End Sub

在上面的代码中，我们使用 Workbooks 集合的 Count 属性来获取打开的工作簿数目，然后使用 For 循环依次关闭每个工作簿，SaveChanges 参数同样设置为 False，表示不保存更改。

以上是 Excel VBA 关闭而不保存的几种方法，可以根据需要选择使用。