VBA另存为覆盖不'；行不通

嘿，我每天都有一个需要覆盖的文件，但是我遇到了一个运行时错误（1004），它无法保存它。 你知道为什么或者我能用它做什么吗

代码的作用：

    Application.DisplayAlerts=false
Dim wrk as workbook
Set wrk = workbooks.add
Wrk.saveas filename:="path\filename.xlsx"
Application.displayAlerts=true
[rest of the code]

我在saveas行上得到一个调试。

---

谢谢。

您必须关闭现有文件。在打开另一个同名文件之前

Sub Test_Module()
    Application.DisplayAlerts = False
        Dim wrk As Workbook
        Set wrk = Workbooks.Add
        wrk.SaveAs Filename:="C:\filename.xlsx"
        wrk.Close
        Application.DisplayAlerts = True
End Sub

---

为什么在文件名之前有一个句点？我在那里没有句点，我只是不能在这里写路径。所以你真的有像

“[路径]\[filename].xlsx”

？它是作为常规路径“folder\folder\folder\filename.xlsx”（a）写的好吧，那么-如果您在某个地方放置了

，而不是反斜杠，那么这很可能是一个错误-最好先检查明显的错误。（b） 当您尝试用相同的名称保存新文件时，是否打开了该文件？（c） 如果文件在网络上，其他用户是否打开了该文件？