Excel宏覆盖现有文件

Question

我正在尝试使用从\Output文件夹到\Output\Archive文件夹的通配符移动许多Excel文件。如果文件已存在于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

这是duplicate。如果目标文件已存在，则无法使用MoveFile。最好使用CopyFile和DeleteFile