投稿時間:2003/10/16(Thu) 01:23 投稿者名:yumi
URL :
タイトル:Re^2: Excelの手動終了のイベント
回答、ありがとうございます。 > > クローズする前のイベントで処理出来ないかと思いましたが、うまくいきません。 > どのようにうまくいかないのでしょうか。
説明が不十分で申し訳ありません。 クローズする前のイベントで処理を行った時に、Excel.exe残ってしまいました。 自動で同じ処理をしていますが、残りませんでした。 自分としては、手動終了後に処理が出来れば、と思い、お聞きしました。 コードは下記の様にしました。 Private Sub xlApp_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean) Dim a As String Dim iSet If Mente_FL = 1 Then '修正ボタンが押された時 Mente_FL = 0 xlBook.Application.Visible = False DoEvents iSet = MsgBox("保存しますか?", vbYesNo) If iSet = vbYes Then xlBook.Save iSaved = True Set xlBook = Nothing Set xlBook = xlApp.Workbooks.Open(別のExcelファイル) セーブ処理 '日報ファイルから月報データを読込 Set xlBook = Nothing Set xlApp = Nothing Else xlBook.Saved = True iSaved = False Set xlBook = Nothing Set xlApp = Nothing End If End If End Sub
|