10/02/11 20:36:35
>>267
自分ならクラスモジュールを使ってブックイベント拾ってやるかな
下記では このマクロを含むブックを開く前に
アクティブだったものは取得できないけどひとつのやりかたとして掲載してみる
(ネーミングは適当なので勘弁してね)
★標準モジュール
Private GetOldBook As New Class1 '←クラスモジュール名を指定する
Sub TEST()
Debug.Print "一つ前にアクティブだったブック:"; GetOldBook.Name
End Sub
★クラスモジュール(モジュール名:Class1)
Private WithEvents App As Application
Private OldBook As String
Private Sub Class_Initialize()
Set App = Application
End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Excel.Workbook)
OldBook = Wb.Name
End Sub
Public Property Get Name() As String
Name = OldBook
End Property