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

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

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

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


Excel Tipsメニューに戻る

スポンサーリンク





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

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

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

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

実行結果のシートです。
実行結果のシート

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

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

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

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

実行結果のシートです。
実行結果のシート

スポンサーリンク







Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved