tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法
記事No11069
投稿日: 2008/01/06(Sun) 00:20
投稿者yocyan
既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法がわかりません。
サンプルや過去ログを探しましたが、見つけることができませんでした。
初歩的なことかも知れませんが教えてください。
Option Explicit
Private Sub Command1_Click()
   Dim xlApp    As Excel.Application
   Dim xlBook   As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Open(App.Path & "\xlTestFile.xls")
   Set xlSheet = xlBook.Worksheets(1)
'==================================================================
   ' Excel の表示
   xlApp.Visible = True
   xlSheet.Activate

   ' この後は、Excel を操作し、入力が完了したら、Excelを閉じます。
   ' Excelを閉じたのを感知し、次へ進むには????
  
    MsgBox ("Excelが終了しました。")
End Sub

[ツリー表示へ]
タイトルRe: 既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法
記事No11070
投稿日: 2008/01/06(Sun) 01:39
投稿者花ちゃん
> 既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法がわかりません。
> サンプルや過去ログを探しましたが、見つけることができませんでした。

VB から Excel のWorkbookBeforeClose イベントを捕らえて見ては。
(方法が解らなければ過去のログを検索 キーワード=WithEvents Excel)

[ツリー表示へ]
タイトルRe^2: 既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法
記事No11071
投稿日: 2008/01/06(Sun) 12:20
投稿者yocyan
> > 既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法がわかりません。
> > サンプルや過去ログを探しましたが、見つけることができませんでした。
>
> VB から Excel のWorkbookBeforeClose イベントを捕らえて見ては。
> (方法が解らなければ過去のログを検索 キーワード=WithEvents Excel)

過去ログで、参考になるのが見つかりました。
ありがとうございました。 やってみます。

[ツリー表示へ]