|
▼kawata さん:
こんばんは。
>kawataです、よろしくお願いします。
>(Windows2000/Excel2000)
>
>お世話になっております。
>先日、「WinthEvents」を教えていただき(jujuさん)、
>メニューブックから、新しいブックがオープンされた時の
>イベントを取得するというルーチンで、各段にスムーズな
>処理をさせるコードに作りかえることができました。
>どうもありがとうございました。
>
>で、いま少し思案中なのが、これをボタンでON/OFFせて
>「監視中」←→「監視解除」のトグル状態を作れないか?と。
>
>解除は、「END」をほりこめばできますよね?。
>このあとの復活が、さっぱりわかりません。
>(現在は再起動しております(^^;;;;)。
>
>ぜひ、よろしくお願いします。
Private WithEvents objExcel As Excel.Application
Private Sub objExcel_WorkbookOpen(ByVal Wb As Workbook)
MsgBox Wb.Name & "を開いたよ"
' ここでファイル名とかブック名とかで判断して処理を続けてね。
End Sub
Private Sub Workbook_Open()
Set objExcel = Application
End Sub
jujuさんが解答したのは上記ですね(探しちゃった)
Set objExcel = Application
でイベント実行可能
Set objExcel = Nothing
イベントが発生しません
|
|