拡張子ぬきでファイル名を取得するユーザー定義関数についてご紹介しました。 ですが、、はてなブックマークで、 「ファイル名にドットがある場合にも対応するには右から検索すべき。」 とのコメントをいただきました。 ▼ファイル名・ワークブック名を取得するユーザー定義関数 ※引数にTRUEを指定するか何も指定しないと拡張子付きで、引数にFALSEを指定すると拡張子なしでファイル名を返すユーザー定義関数の例 Function BookName(Optional 拡張子 As Boolean = True) As String Dim bk_name As String Application.Volatile bk_name = ActiveWorkbook.Name If 拡張子 = True Then BookName = bk_name Else BookName = Left(bk_name,