アクティブブックの保存先とブック名を取得する｜ActiveWorkbook｜Excel VBA

アクティブブックの情報を参照するには、ActiveWorkbookプロパティを使います。

説明書にはブックウィンドウがアクティブでない場合「Nothing」が返るとありますが、どのようにしてテストすればいいのか分かりませんでした。他のアプリがアクティブな状態や最小化した状態でも、「Nothing」は表示されずにExcelの情報が表示されました。

「ブックのプロパティを取得する」も参照してください。

アクティブブックの保存先を取得する

保存先を取得しB2セルに表示するVBAです。


・保存先はPathプロパティで取得できます。

Sub MyGetActive()
    Range("B2") = ActiveWorkbook.Path
End Sub

実行結果のシートです。

アクティブブックのブック名を取得する

ブック名を取得しB3セルに表示するVBAです。


・ブック名はNameプロパティで取得できます。

Sub MyGetActiveBook()
    Range("B3") = ActiveWorkbook.Name
End Sub

実行結果のシートです。