タイトル : 既存のエクセルファイルを開き、エクセルが閉じたのを感知する方法 投稿日 : 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 |