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

VBA

2021.10.172021.12.05

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

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

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

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

created by Rinker

マイナビ出版

サンプルコード
実行結果

サンプルコード

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