【エクセルマクロ】特定文字を含むファイル削除：自動化で時短術

エクセルマクロで、特定文字を含むファイルを削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

特定文字を含むファイル削除

以下のExcelVBAを実行すると、特定の文字列を含むファイルのみ一括削除します。

Sub 複数文字を含むファイルをクリア()

Dim path, fso, file, files

    'ファイル格納フォルダ
    path = "C:\テスト"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set files = fso.GetFolder(path).files

        'フォルダ内の全ファイルをループ
        For Each file In files
        
            '文字指定
            If InStr(file.Name, "議事録") >= 1 Then

                'ファイルを消す
                file.Delete
                
            End If
        Next file

End Sub

対象フォルダ

フォルダ内に複数のファイルが存在しています。

マクロ実行後

指定の文字を含むファイルを一括削除します。

PDF、txt、pngなどもまとめて削除可能です。

 
 
※削除したファイルは「ゴミ箱」に入らず完全消去されます。

事前に動作テストをお勧めします。

この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

...

kirinote.com

2023.09.03