|
エクセル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
|
|