[[20210916230639]]　『フォルダ内の特定文字列を含まないエクセルファイ』（ranks）　ページの最後に飛ぶ

『フォルダ内の特定文字列を含まないエクセルファイルを開く』（ranks）

エクセルVBAでマクロ実行ファイルと同じフォルダに格納されているエクセル(.xlsx)のうち、特定の文字列を含むファイルを開きたい場合

下記のようなプログラムで開くことができますが
（フォルダ内にあるファイルのうち【＊＊＊＊＊マスタ.xlsx】を含むファイルを開く）

Dim MasterbookPath As String
Dim MasterWorkbookname As String

MasterbookPath = ThisWorkbook.Path & "\"
MasterWorkbookname = Dir(MasterbookPath & "*マスタ.xlsx")
Workbooks.Open FileName:=MasterbookPath & MasterWorkbookname

逆に
マクロ実行ファイルと同じフォルダに格納されているエクセル(.xlsx)のうち、
特定の文字列を含まないファイルを開きたい場合
どのように組めばよろしいのでしょうか。

お手数をおかけしますがご教授の程よろしくお願いいたします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

下記でどうでしょう。

    Dim MasterbookPath As String
    MasterbookPath = ThisWorkbook.Path & "\"

    Dim FN As String
    FN = Dir(MasterbookPath & "*.xlsx") '最初のxlsxファイル名取得
    Do Until FN = ""
        If Not FN Like "*マスタ.xlsx" Then 'マスタ.xlsxを含まないとき
            Workbooks.Open Filename:=MasterbookPath & FN
        End If
        FN = Dir() '次のxlsxファイル名取得
    Loop

（hatena） 2021/09/16(木) 23:46

hatena様

回答頂きありがとうございました。
ご教授頂きましたプログラムにて無事やりたいことができました。

ありがとうございます。
お礼申し上げます。
（ranks） 2021/09/17(金) 08:04

コメント返信：

[ 一覧(最新更新順) ]

[[20210916230639]] 『フォルダ内の特定文字列を含まないエクセルファイ』（ranks） ページの最後に飛ぶ

[[20210916230639]]　『フォルダ内の特定文字列を含まないエクセルファイ』（ranks）　ページの最後に飛ぶ