另存為，但不提示保存

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

您嘗試將文件保存在什么地方有什么異常之處，例如，它是網絡位置還是共享點庫？ 無論如何，請嘗試在另存為之后和關閉之前添加這兩行

Cancel = True
Oldbook.Saved = True