|
マクロブックのクラスモジュールで、WBook_SheetSelectionChangeのイベントは発生するのですが、Bookを開いたときのイベントWBook_Openが発生しないのですが、なぜでしょうか。
Excel2002
'標準モジュール
Private clsBook As Class1
Sub Open_WBook()
Dim FileName As Variant
'
FileName = ThisWorkbook.Path & "\test.xls"
Workbooks.Open FileName
Set clsBook = New Class1
Set clsBook.WBook = ActiveWorkbook
End Sub
'クラスモジュールClass1
Public WithEvents WBook As Workbook
Private Sub WBook_Open()
MsgBox WBook.Name & " " & ActiveSheet.Name '<==ダメ
End Sub
Private Sub WBook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox WBook.Name & " " & ActiveSheet.Name '<==OK
End Sub
|
|