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