Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1512 / 13644 ツリー ←次へ | 前へ→

【73914】エクセル終了時に保存させない方法 流星 13/3/19(火) 17:23 質問[未読]

【73914】エクセル終了時に保存させない方法
質問  流星 E-MAIL  - 13/3/19(火) 17:23 -

引用なし
パスワード
   エクセル2003、Winxp

アクセスのテーブルを既存エクセルの特定シートにエクスポートし
作業が終わった時、ツールの終了を選んぶと何もメーツセージを
表示せず(保存もせず)終了させようと、下記の内容で実施するの
ですが、アクセスからのデータのみがシートに残ってしまいます。
何か、よい方法はありませんでしょうか?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  '全ての Book を保存しないで閉じる 2006/10/08 pPoy
'最後に Excel も終了する
  Dim w As Workbook
  '全ての Book を保存したことにする (保存はしない)
  For Each w In Workbooks
    w.Saved = True
  Next
  
  'Excel を終了する
  Application.Quit
  'Book を閉じる
  ThisWorkbook.Close False

End Sub

1512 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free