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

vba-特定文字を含むファイル削除-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、特定文字を含むファイルを削除する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などもまとめて削除可能です。


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

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

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

【エクセルマクロ】ワークシート処理を自動化する:超便利38選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!