SaveAs 不提示保存

Posted 2023-05-07

【中文标题】SaveAs 不提示保存

【英文标题】：SaveAs without prompt to save

【发布时间】：2015-01-09 11:02:27

【问题描述】：

我有这个 excel 宏，我用它来复制文件（Newbook），更改它并以新名称保存原始文件（Oldbook）。

但是，即使我使用的是 SaveAs，excel 也会不断提示我确认我想以我提供的名称保存原始文件。

我已经试过了：

Oldbook.Saved = True

SaveChanges = True

Application.DisplayAlerts = False

没有工作。

    Application.DisplayAlerts = False

    Newbook.Save
    Newbook.Close

    Oldbook.SaveAs Filename:=fNameOld, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False

    Oldbook.Close

    Application.DisplayAlerts = True

有什么想法吗？

【问题讨论】：

提示中的确切信息是什么？ fNameOld 的值是多少？

感谢您的回复@Jean-FrançoisCorbett。提示是一个“另存为”框，其中包含我已经在那里制作的正确位置和名称，因此您只需按“保存”。 fNameOld 是用 Application.GetSaveAsFilename

制作的

@Jean-FrançoisCorbett：是的，我现在看到了我的错误，不应该使用 Application.GetSaveAsFilename！我太傻了，谢谢！

唯一一次我得到确认消息是当已经存在一个同名的文件并提示覆盖时。该评论是否解决了您的问题？如果是这样，请发布您自己的答案。否则，您可以在获取文件名的位置发布代码吗？

【参考方案1】：

找到答案了！问题是我使用 Application.GetSaveAsFilename 来制作 fNameOld，这会出现“另存为”提示。

【参考方案2】：

您尝试保存文件的位置是否有任何异常，例如，它是网络位置还是共享点库？无论如何，请尝试在您的保存之后和关闭之前添加这两行

Cancel = True
Oldbook.Saved = True