【ExcelVBA】Dir関数の落とし穴「拡張子」

Ｄir関数は簡単で便利な関数ですが、実は以外な落とし穴があります。

それは、「拡張子」の扱いです。

Dir関数では「拡張子」が部分一致になる

例１：エクセルファイルの拡張子

業務でよくあるのですが、

例えば、あるフォルダ内のエクセルファイルだけを取得したい場合、

こう書くと思います。

Dir(“C:\Users\ユーザー名\Desktop￥*.xlsx”)

「.xlsx」という拡張子がついている全てのファイル、

つまりエクセルファイルだけを取得できます。

ちなみに、「.xlsx」はExcel2007以降のバージョンのファイルです。

でも、

それ以前のバージョンのエクセル、

つまり拡張子が「.xls」のファイルのみ取得したいこともあると思います。

その場合、おそらく、こう書きます。

Dir(“C:\Users\XXX\Desktop￥*.xls”)

これには注意が必要です。

こう書くと、拡張子が「.xls」で始まるファイルという意味になってしまい、

なんと、「.xlsx」や「.xlsm」(マクロファイル）までもが対象になってしまいます！

これはVBAではなくWindowsの仕様のようで、以外な落とし穴ですよね。

なので、

「.xls」だけを取りたいときは、

すごく面倒なんですが、Dir関数から返ってきたファイル名をチェックする必要があります。

LCaseは、大文字アルファベットを小文字に変えてくれる関数です。

拡張子が大文字アルファベットの場合を考慮しています。

そして、Likeは、そのあとに書いている”*.xls”に一致しているか、をチェックします。

つまり、LCase(変数) Like “*.xls”　とは、LCase(変数)に”*.xls”が含まれているか、

つまり、拡張子が”.xls”か、をチェックしています。

拡張子が”.xls”の場合のみ、処理を行えばいいですね。

例２：htmlファイルの拡張子

同じように、

「.htm」だけを取りたいときは、「.html」もあることを忘れずに、

先ほど書いたような拡張子チェックを入れた方がいいです。