Question

嘿我有一个文件需要每天覆盖，但我得到一个运行时错误（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行上进行了调试。感谢。

Answer 1

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

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

VBA saveas覆盖不起作用

1 个答案: