VBA～ファイルの拡張子を取得しよう～Excel

VBAでファイルの拡張子を取得したい場合はGetExtensionNameメソッドで取得できます。ファイルのパスを指定すると、拡張子を取得できます。

Dドライブにサンプル.xlsxというファイルがある場合に下のコードを実行すると、拡張子xlsxがメッセージボックスに表示されます。

Sub test1()

Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

MsgBox objFSO.GetExtensionName("D:\サンプル.xlsx")

Set objFSO = Nothing

End Sub