VBA～ワークブックの名前を表示しよう～Excel

ワークブックの名前を表示したい時は、WorkbookオブジェクトのNameプロパティを使います。

アクティブなワークブックの名前の表示

メッセージボックスにアクティブなワークブックの名前の表示したい場合、MsgBox ActiveWorkbook.Nameで表示できます。サンプル.xlsxというワークブックがアクティブな場合下のコードを実行するとメッセージボックスにサンプル.xlsxと表示されます。

Sub test1()
MsgBox ActiveWorkbook.Name
End If

コードが書かれているワークブックの名前の表示

メッセージボックスにコードが書かれているワークブックの名前を表示したい場合、MsgBox Application.ThisWorkbook.Name で表示できます。サンプル.xlsmというワークブックにコードが書かれていた場合、下のコードを実行するとメッセージボックスにサンプル.xlsmと表示されます。

Sub test2()
MsgBox Application.ThisWorkbook.Name
End If