ブックを参照(Workbooks プロパティ,Windows プロパティ)
アクティブなワークブックを参照
現在使用中のワークブック、複数ある場合は一番手前にあるワークブックを参照するには、ActiveWorkbook プロパティ を使用します。
object.ActiveWorkbook
引数・戻り値
- object ・・・ 対象となる Application オブジェクト を指定します。
アクティブなブックの名前を取得・設定するには?
(例)
ActiveWorkbook.Name
ワークブックを参照する
現在開いているすべてのワークブックを参照するには、Workbooks プロパティ を使用します。
<すべてのワークブックを参照>
object.Workbooks
<特定のワークブックを参照>
object.Workbooks[.Index ] ( index )
引数・戻り値
- object ・・・ 対象となる Application オブジェクト を指定します。
- Item プロパティ は、デフォルトプロパティなので省略可能です。
- index ・・・ インデックス番号またはワークブックの名前を指定します。
(例)
Workbooks.Item(1)
Workbooks(“Test.xlsx”)
インデックス番号は、ブックを開いた順に、1,2,3,… と番号が振られます。
ワークブックの名前を取得・設定するには?
(例)
Workbooks(1).Name
Workbooks(“Test.xlsx”).Name
ウィンドウを参照する
現在開いているウィンドウを参照するには、Windows プロパティ を使用します。
<ウィンドウを参照>
object.Windows
<特定のウィンドウを参照>
object.Windows[.Index ] ( index )
引数・戻り値
- object ・・・ 対象となる Application オブジェクト または、Workbook オブジェクト を指定します。
- Item プロパティ は、デフォルトプロパティなので省略可能です。
- index ・・・ インデックス番号またはワークブックの名前を指定します。
(例)
Windows.Item(1)
Windows(“Test.xlsx”)
インデックス番号は、一番手前のウィンドウから順に、1,2,3,… と番号が振られます。ウィンドウの位置が変わるたびにインデックス番号は変化します。
ワークブックの名前を取得・設定するには?
(例)
Windows(1).Caption
Windows(“Test.xlsx”).Caption
対象オブジェクトが、Application オブジェクト の場合、開いている全てのウインドウが含まれます。Workbook オブジェクト の場合、そのブックのウィンドウのみ含まれます。
マクロを実行中のブックを参照する
現在実行中のマクロが記述されているブックを参照するには、ThisWorkbook プロパティ を使用します。
object.ThisWorkbook
引数・戻り値
- object ・・・ 対象となる Application オブジェクト を指定します。
インデックス番号は、一番手前のウィンドウから順に、1,2,3,… と番号が振られます。ウィンドウの位置が変わるたびにインデックス番号は変化します。
マクロ実行中のブックの名前を取得・設定するには?
(例)
ThisWorkbooks.Name
ActiveWorkbook, Workbooks, Windows, ThisWorkbook プロパティ 使用例
サンプルVBAソース 1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Sample_Book() Dim myStr As String 'ActiveWorkbook(アクティブなブック)、Workbooks(1)(最初に開いたブック)、 'Windows(1)(最も手前にあるブック)、ThisWorkbook(マクロ実行中のブック) myStr = "ActiveWorkbook:" & vbTab & ActiveWorkbook.Name & vbCrLf & _ "Workbooks(1):" & vbTab & Workbooks(1).Name & vbCrLf & _ "Windows(1):" & vbTab & Windows(1).Caption & vbCrLf & _ "ThisWorkbook:" & vbTab & ThisWorkbook.Name MsgBox myStr End Sub |
実行結果
関連記事
-
-
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
共有ファイルを開いているユーザー情報を取得(UserStatus プロパティ)
共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …
-
-
ユーザー設定のドキュメントプロパティ(CustomDocumentProperties プロパティ)
CustomDocumentProperties プロパティ ユーザー設定のドキ …
-
-
ステータスバーにメッセージを表示(StatusBar プロパティ)
StatusBar プロパティ StatusBar プロパティで、ステータスバー …
-
-
指定したセル範囲が含まれるワークシートを参照する(Worksheet プロパティ)
Worksheet プロパティ Worksheet プロパティは、指定したセル範 …
-
-
ブックを別名で保存(SaveAs メソッド)
ブックを別名で保存(SaveAs メソッド) ブックの変更を保存したり、新規ブッ …
-
-
ウィンドウ枠の固定(FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
Excel を全画面表示(DisplayFullScreen プロパティ)
DisplayFullScreen プロパティ DisplayFullScree …
-
-
並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)
並べて比較(CompareSideBySideWith メソッド) Compar …
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …