投稿日	： 2003/10/16(Thu) 01:23
投稿者	： yumi
ＵＲＬ	：
タイトル	： 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

★ - Excelの手動終了のイベント - yumi 10/14-00:45No.6228
• Re: Excelの手動終了のイベント - 花ちゃん 10/14-10:48 No.6234
  • Re^2: Excelの手動終了のイベント - yumi 10/16-01:23 No.6259