【VBA】拡張子あり・なしのブック名を取得する方法

VBA

2021.10.172021.12.05

この記事は約1分で読めます。

記事内に広告が含まれています。

今回はVBAマクロでFileSystemObjectの「GetBaseName」を使用して、自分が開いているブック名(拡張子あり・なし)を取得する方法を紹介します。

Excel VBA 脱初心者のための集中講座

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

サンプルコード
実行結果

サンプルコード

Sub Bookname()

    Dim ObjFileSys As Object
    Dim wb As String
    Dim wb2 As String
    
    '①拡張子ありのブック名を取得
    wb = ActiveWorkbook.Name

    '②拡張子なしのブック名を取得
    Set ObjFileSys = CreateObject("Scripting.FileSystemObject")
    wb2 = ObjFileSys.GetBaseName(wb)
    
    MsgBox "拡張子ありのブック名は：" & wb & Chr(13) & "拡張子なしのブック名は：" & wb2
    
    '初期化
    Set ObjFileSys = Nothing

End Sub