|
▼kobasan さん:
こんにちは。
>マクロブックのクラスモジュールで、WBook_SheetSelectionChangeのイベントは発生するのですが、Bookを開いたときのイベントWBook_Openが発生しないのですが、なぜでしょうか。
そりゃあね、test.xlsを開いた時にClass1のWBookプロパティにオブジェクトが
設定されていないもの・・、いや、Class1のインスタンスだって作成されていないよね?
ApplicationオブジェクトのWorkbookOpenイベントで拾う方が良いのではないですか?
>
>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
|
|