投稿日 | : 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