2017-06-22 33 views
0

ワイルドカードを使って多くのExcelファイルを\Outputフォルダから\Output\Archiveフォルダに移動しようとしています。ファイルが既にアーカイブフォルダに存在する場合は、そのファイルを上書きする必要があります。Excelマクロが既存のファイルを上書きする

Print screen of my code

これは私のコードである(また、添付画像に示す)

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、 ザンケットK.

+0

新しいファイルをコピーする前に既存のファイルを削除するには、移動前に強制終了要求を入れないでください(注意してください、実行する前にDIRを再確認してください。あなたはマスターファイルを殺したい)。 012Workbook.Saved = True'またはThisWorkbookではなくWorkBookの名前を使用してください。 –

+0

? – Mertinc

答えて

0

これはduplicateです。移動先ファイルが既に存在する場合、MoveFileは使用できません。 CopyFileとDeleteFileを使用することをお勧めします

+0

Danさん、ありがとう! – Sanket

関連する問題