退出 Excel 并保存更改对话框 VB.NET / VBA

在 VB.NET 和 VBA 中，可以使用 Application 对象的 Quit 方法来退出 Excel。如果在 Excel 中进行了更改，Excel 会弹出一个对话框询问是否保存更改。我们可以使用 Application 对象的 DisplayAlerts 属性将该对话框设置为不显示，然后使用 Workbooks 对象的 Save 方法保存所有未保存的更改，最后使用 Application 对象的 Quit 方法退出 Excel。

以下是使用 VB.NET 编写的退出 Excel 并保存更改对话框的示例代码：

Sub ExitExcel()
    '设置不显示保存更改对话框
    Application.DisplayAlerts = False
    '保存所有未保存的更改
    Workbooks.Save()
    '退出 Excel
    Application.Quit()
End Sub

以下是使用 VBA 编写的退出 Excel 并保存更改对话框的示例代码：

Sub ExitExcel()
    '设置不显示保存更改对话框
    Application.DisplayAlerts = False
    '保存所有未保存的更改
    Workbooks.Save()
    '退出 Excel
    Application.Quit()
End Sub

在上面的示例代码中，我们首先将 Application 对象的 DisplayAlerts 属性设置为 False，这样 Excel 就不会弹出保存更改对话框。然后，我们使用 Workbooks 对象的 Save 方法保存所有未保存的更改。最后，我们使用 Application 对象的 Quit 方法退出 Excel。

需要注意的是，如果有多个工作簿未保存时执行退出操作，要确保所有未保存的更改都已经保存。另外，如果用户没有设置自动保存选项，则需要在退出之前提示用户保存更改。

参考链接：

• Application.Quit 方法 (Excel)
• Application.DisplayAlerts 属性 (Excel)
• Workbooks.Save 方法 (Excel)