admin menu ≫  image  writes  admin
スポンサーサイト 
--.--.--.-- 
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
終了処理を行ってから「ブックを閉じる」または「エクセルを終了する」 
2009.05.12.Tue 
ブックを閉じる雛形マクロを見つけたので

'雛形のマクロ(1)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub

'雛形のマクロ(2)
For Each W In Application.Workbooks
W.Close
Next W


終了処理のマクロを書いてみましたが・・・ちょっと問題ありのマクロになってしまいました。
エクセルが時々異常終了しちゃいますぅ??!!うぅ??ん(。。;;・・・

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ActWorkbookName msg$, sec%, Title$
ActWorkbookName = ActiveWorkbook.Name
ThisWorkbook.Activate
If Workbooks.Count = 1 Then
End_Work True '終了処理
Application.Quit
Else
If ActWorkbookName <> ActiveWorkbook.Name Then
End_Work True '終了処理
Application.Windows(1).Close
For Each W In Application.Workbooks
W.Close
Next W
Application.Quit
Else
End_Work False '終了処理
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub

Function End_Work(flg As Boolean)
'終了処理のモジュール
End Function 
 
関連記事
スポンサーサイト
* スポンサーサイト終了処理を行ってから「ブックを閉じる」または「エクセルを終了する」へのコメント *
   

台風画報


ナショジオニュース

降水短時間予報

RSSフィード

月別アーカイブ

ブログ内の検索

プロフィール


  • Designed by Il mio diario
  • Powered by FC2BLOG
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。