つらつら Excel VBA

私の備忘録です。

Excel VBA ディレクトリ内のファイル検索(Dir)

file_name = Dir(target_dir & "*.csv")
Do While file_name <> ""
    file_name = Dir() '次のファイル
Loop

※Dirはファイル名が返される。

ファイルが見つからない場合には空文字が返る。