ワイルドカードを使って多くのExcelファイルを\Output
フォルダから\Output\Archive
フォルダに移動しようとしています。ファイルが既にアーカイブフォルダに存在する場合は、そのファイルを上書きする必要があります。Excelマクロが既存のファイルを上書きする
これは私のコードである(また、添付画像に示す)
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.
新しいファイルをコピーする前に既存のファイルを削除するには、移動前に強制終了要求を入れないでください(注意してください、実行する前にDIRを再確認してください。あなたはマスターファイルを殺したい)。 012Workbook.Saved = True'またはThisWorkbookではなくWorkBookの名前を使用してください。 –
? – Mertinc