SaveAs没有提示保存

Question

我有这个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

有什么想法吗？

Answer 1

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

Answer 2

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

Cancel = True
Oldbook.Saved = True