| 投稿日 | ： 2003/11/05(Wed) 09:15 |
| 投稿者 | ： 大久保 |
| ＵＲＬ | ： |
| タイトル | ： Re: ＶＢで起動中のＥｘｃｅｌのイベントをひろう |
> ＶＢで起動中のＥｘｃｅｌが終了したかを拾いたいのですが、それは可能でしょうか？
> できそうな関数や方法がみつからないのでどなたか指導お願いします。
>
> タイマーを使って、１秒間隔でＥｘｃｅｌが終了しているか確かめるということも考えたの
> ですが、他に何か方法があるかと思ったのでたずねてみようと思いました。
>
> よろしくお願いします。
はじめまして、ちゃんと開放してないかもしれませんが
Option Explicit
Private WithEvents xlApp As Excel.Application
Private Sub Command1_Click()
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
End Sub
Private Sub xlApp_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)
Debug.Print "イベント受けた"
Set Wb = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
イミデントウィンドウで確認して下さい。詳しくはWithEventsを調べてみて下さい。