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

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

エクセルマクロで、特定文字を含むファイルを開く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なども開くことができました。


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

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

 

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