VBA～アクティブウィンドウを取得しよう～Excel

VBAでアクティブウィンドウを取得したい場合はApplication.ActiveWindowプロパティで取得できます。

下のコードを実行するとアクティブウィンドウのウィンドウ名がアクティブウィンドウのセルA1に表示されます。例えばBook1.xlsxがアクティブの場合はBook1.xlsxのセルA1にBook1.xlsxと表示されBook2.xlsxがアクティブの場合はBook2.xlsxのセルA1にBook2.xlsxと表示されます。

Sub test1()

Dim acwin As Window

Set acwin = ActiveWindow

Range("A1") = acwin.Caption

End Sub