GetExtension｜ファイルパスから拡張子を取得 | Excel VBA
更新日：1月4日
＜概要 （VBA 拡張子 取得）＞
GetExtensionは、指定したファイルパス文字列から拡張子のみを取得するためのExcel VBA汎用プロシージャです。
ファイルのフルパスからの拡張子の取得は、FileSystemObjectを利用すれば簡単に実装できます。ただ、この場合も実際に実装しようとすると、毎回filesystemobjectの参照が必要だったりするので、これらの記述が手前になったりします。
紹介する汎用プロシージャ「GetExtension」では引数でその対象とするファイルのフルパス「FilePath」だけ与えて、そのファイルの拡張子が取得できるようになっています。結果的に一行でこの処理が実装できるようになります。
＜実行例＞
実行すると、指定したファイルパスから拡張子のみが取得されます。
サンプルでは「C:\Test\SampleFile.xlsx」を指定しているため、
取得結果として「xlsx」という文字列が返され、メッセージボックスに表示されます。
拡張子部分だけを安全に取得できるため、
ファイル形式による処理分岐や保存処理の判定などにそのまま利用できます。
＜関連記事＞
今回紹介しているような汎用プロシージャを部品として一元管理する方法は別記事で紹介していますので、是非このノウハウも参考にしてみてください。
コーディングを効率化する上でどんどん増やしていった汎用プロシージャ（部品）をいくら増やしても簡単に流用ができるような仕組みの構築が可能になります。
