| |
▼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
イベントが発生しません
|
|
ichinose
- 03/7/4(金) 20:19 -
