| 投稿日 | ： 2003/11/05(Wed) 09:17 |
| 投稿者 | ： 大久保 |
| ＵＲＬ | ： |
| タイトル | ： Re^2: ＶＢで起動中のＥｘｃｅｌのイベントをひろう |
> > ＶＢで起動中のＥｘｃｅｌが終了したかを拾いたいのですが、それは可能でしょうか？
> > できそうな関数や方法がみつからないのでどなたか指導お願いします。
> >
> > タイマーを使って、１秒間隔でＥｘｃｅｌが終了しているか確かめるということも考えたの
> > ですが、他に何か方法があるかと思ったのでたずねてみようと思いました。
> >
> > よろしくお願いします。
>
> はじめまして、ちゃんと開放してないかもしれませんが
> 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を調べてみて下さい。
イミディエイトウィンドウでした。すみません。