【VBA】拡張子取得

 #VBA 
'拡張子取得
Function GetExtension(ByRef パス As String) As String
   
   Dim str As String
   Dim fso As Object
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   str = fso.GetExtensionName(パス)
   GetExtension = SplitString(str, "]", 1)
   
   If Not fso Is Nothing Then Set fso = Nothing

End Function

 #VBA 
'ユーザ定義関数の説明登録
Sub AddUDFToCustomCategory()
   
   'オプションの設定方法は下記参照
   '   https://docs.microsoft.com/ja-jp/office/vba/api/excel.application.macrooptions
   
   Application.MacroOptions _
         Macro:="GetExtension" _
       , Description:="対象パスから拡張子を取得します" _
       , Category:=9 _
       , ArgumentDescriptions:=Array( _
                                     "を指定します" _
                               )
   
End Sub