Excel宏会覆盖现有文件

Question

我正在尝试使用通配符将许多Excel文件从\\Output文件夹移至\\Output\\Archive文件夹。 如果存档文件夹中已经存在文件，则应将其覆盖。

这是我的代码（也显示在附图中）

Application.DisplayAlerts = False

Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")

FSO.MoveFile Source:=Excel_Path & Excel_Name, Destination:=Excel_Path & "Archive\" & Excel_Name

Application.DisplayAlerts = True

它仍然抛出错误

文件已存在

几乎每个人都建议禁用显示警报，但就我而言，它不起作用。

我在这里想念什么吗？ 有人可以帮忙吗？
TIA，Sanket K.

Answer 1

这是重复的 。 如果目标文件已存在，则不能使用MoveFile。 最好使用CopyFile和DeleteFile