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

ExcelVBA-特定文字を含むファイル開く-アイキャッチ 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なども開くことができました。


 

動画の解説

動画ではコードの作り方・動作を確認できます。

クリックすると、このブログ上で再生されます^^

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

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

 

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