|
こんばんわ
回答ではありません、悪しからず。
▼Mariko さん:
問題はそう簡単ではないように思いますよ?!
▼hide さん:
現象、確認させていただきました。
> If Workbooks.Count = 1 Then
> Application.Quit
> Else
を
If Workbooks.Count = 1 Then
Application.Quit
WB.Close (False)
Else
のようにすれば、
>なぜか確認ダイアログが表示され、
の確認ダイアログは消えます。
ただ、
>メインのブックが壊れてしまいます。
は残ります(苦笑)
んで、hide さんのコードを元に簡素化させた検証コードです
(新規ブックの標準モジュールに↓を記述しブック保存後
testを実行、・・・で保存したブックが開かない)
Sub test()
Dim WB As Workbook
Set WB = ThisWorkbook
WB.ActiveSheet.Move
ActiveWorkbook.Close False
Application.Quit
WB.Save
WB.Close False
WB.Close
Set WB = Nothing
End Sub
分かったことは、
1.Application.Quitしエクセルが終了しても「タスクマネージャ」の
プロセスを確認すると「EXCEL.EXE」が残っている。
(プロセスが正常終了していない)
2.http://support.microsoft.com/kb/199212/JA/
の「原因」かも・・・
(すいませんまだ全部読んでいないのですが)
ご参考になれば・・・
すいません、お力になれませんm(__)m
|
|