ＶＢＡでのファイル検索

質問

ＥｘｃｅｌＶＢＡで下記のマクロを組みたいのですが、
やり方がわからなくて困っております。

・複数のcsvファイル内から条件に一致する内容のファイルを検索して
　開きたい。
　※条件というのは、csvファイル内に記入してある、文字列を指します。
　※csvファイル名でのファイル判別は不可

　フォルダ内のcsvファイルを全て開いて、一つのファイル毎
　Ｉｆ文でチェックしていくしかないでしょうか？

どなたかご存知の方、指導お願い致します。

回答No.1

emsuja

>フォルダ内のcsvファイルを全て開いて、一つのファイル毎
>Ｉｆ文でチェックしていくしかないでしょうか？
チェックせずにファイルの内容が分かる方法があれば私も知りたいところですが (^^ゞ

私ならファイルの内容チェックは(CSVファイルなら)こんな感じでしょうか？

f = Freefile
Open ファイル名 For Input as f
Do Until Eof(f)
Line Input #(f),W
p = Instr(w,検索する文字列)
If p > 0 Then
見つかった標識 = True
Exit Do
End If
Loop
Close f

If 文でチェックするよりは楽ではないかと思います。

お礼

ありがとうございます。
参考にさせて頂きます。