ActiveWorkbook.SaveAs参数设置

Question

当我使用ActiveWorkbook.SaveAs覆盖一个文件时，消息窗口会弹出是或否。

我如何设置ActiveWorkbook.SaveAs覆盖已经保存的文件，而不需要额外的yes或no按钮？

Answer 1

您可以使用Application.DisplayAlerts property关闭警报。

对工作簿使用SaveAs方法覆盖现有文件时，Confirm SaveAs对话框默认值为No__，而当DisplayAlerts属性设置为False__时，Excel将选择Yes响应。Yes响应将覆盖现有文件。

在关闭它们之后，不要忘记再次打开它们。

Application.DisplayAlerts = False 
ThisWorkbook.SaveAs
Application.DisplayAlerts = True

离题

请注意，在大多数情况下，您需要的不是ActiveWorkbook，而是ThisWorkbook。

VBA是具有焦点/在顶部的工作簿(这可以通过一次鼠标轻松更改click.

• ThisWorkook是当前
• ActiveWorkbook代码所在的工作簿(这永远不会更改)。

因此，ThisWorkbook更可靠。并且很少需要ActiveWorkbook (例如，如果您编写了外接程序)。