【VBA】特定のフォルダ内の全ファイルを部分一致でコピーする方法

日々の業務では、大量のファイルから特定の文字列が含まれるファイルだけを選別し、別の場所にコピーしたいことがあります。この記事では、VBAを使って簡単に実現します。手作業で行うよりもはるかに効率的です。

サンプルコード

VBA

Option Explicit
Sub CopyFilesWithPartialMatch()
    Dim fso As Object, folder As Object, file As Object
    Dim sourceFolder As String, targetFolder As String, searchPattern As String
    
    ' フォルダパスと検索パターンを設定
    sourceFolder = "C:\SourceFolder" ' 元のフォルダパス
    targetFolder = "D:\TargetFolder" ' コピー先のフォルダパス
    searchPattern = "*.txt" ' 検索パターン（例：すべてのテキストファイル）
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(targetFolder) Then
        MsgBox "コピー先フォルダが存在しません。", vbExclamation
        Exit Sub
    End If
    
    ' フォルダ内のファイルを列挙する
    Set folder = fso.GetFolder(sourceFolder)
    For Each file In folder.Files
        If InStr(file.Name, searchPattern) > 0 Then
            ' 部分一致の場合はコピー
            fso.CopyFile sourceFolder & "\" & file.Name, targetFolder
        End If
    Next file
    
    MsgBox "ファイルのコピーが完了しました。", vbInformation
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

フォルダパスやファイル名が正しいか確認してください。また、コピー先に十分なディスクスペースがあるかもチェックしましょう。