'拡張子取得 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 'ユーザー定義関数の説明登録 'ブックのオープ…