【エクセルマクロ】特定文字を含むファイルを開く(動画あり)

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

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

特定文字を含むファイルを開く

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

Sub ファイル名が部分一致したら開く()

Dim path, fso, file, files

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

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

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

                'ファイルを開く
                CreateObject("Shell.Application").ShellExecute file
                
            End If
        Next file

End Sub

対象フォルダ

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

マクロ実行後

指定の文字を含むファイルのみ検索して開きます。

該当するファイルが複数ある場合は、すべてのファイルをまとめて開きます。

PDF、txt、pngなども開くことができました。

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

【エクセルマクロ】ファイルを開く：具体的な使用例６選

...

kirinote.com

2023.02.19