加强版的使用VBA保存和关闭工作簿的代码

主要观点总结

文章介绍了如何使用VBA代码保存并关闭Excel工作簿，特别考虑了一些例外情况，如只读工作簿或未保存的新工作簿。文章提供了改进后的代码，并确保在当前工作簿不是只读并且已经保存过的情况下执行保存和关闭操作。

关键观点总结

关键观点1: 原始VBA代码用于保存并关闭工作簿，但未考虑例外情况。

文章首先介绍了一个简单的VBA代码片段，用于保存并关闭当前工作簿。但这个代码没有处理一些特殊情况，如只读工作簿或未保存的新工作簿。

关键观点2: 改进后的代码验证了工作簿的状态。

为了处理这些特殊情况，文章提供了改进后的代码。这段代码会验证当前工作簿是否只读以及是否已保存。只有在这两个条件都满足的情况下，才会执行保存和关闭操作。

关键观点3: 如何验证工作簿的状态。

文章中介绍了如何使用ActiveWorkbook.ReadOnly属性来检查工作簿是否为只读，以及使用ActiveWorkbook.Path属性来检查工作簿是否已经保存。这些技巧对于确保正确保存和关闭工作簿非常重要。

关键观点4: 社群交流和获取更多资源。

文章最后鼓励读者参与社群交流，获取更多电子资料，并通过社群加入专门的微信讨论群，以便更方便地交流和学习Excel技术。

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA 有时候，我们需要使用 VBA 代码来保存并关闭工作簿，常用的代码如下： Sub SaveAndClose() '保存并关闭当前工作簿 ActiveWorkbook.Save ActiveWindow.Close End Sub 考虑一些例外情况，例如如果是只读工作簿或者是新建工作簿，上面的代码将会有问题。我们对上面的代码进行改进，验证当前工作簿不是只读工作簿，以及之前当前工作簿已经被保存过。 改进后的代码如下： Sub SaveAndClosePlus() '保存并关闭当前工作簿 '验证当前工作簿不是只读的 '并且之前本工作簿已经保存  If Not ActiveWorkbook.ReadOnly And Len(ActiveWorkbook.Path) > 0 Then ActiveWorkbook.Save ActiveWindow.Close End If End Sub 代码中： ActiveWorkbook.ReadOnly 判断当前工作簿是否只读，若是则返回 True ，否则返回 False 。因为我们要保存的工作簿不应该是 ………………………………