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