Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7483 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【38873】保存しているのに確認ダイアログが出る hide 06/6/13(火) 11:12

【38894】Re:保存しているのに確認ダイアログが出る Mariko 06/6/13(火) 21:20

【38903】Re:保存しているのに確認ダイアログが出る 漂流民 06/6/14(水) 1:46

【38904】Re:保存しているのに確認ダイアログが出る ichinose 06/6/14(水) 6:58

【38915】Re:保存しているのに確認ダイアログが出る hide 06/6/14(水) 11:54

【38924】Re:保存しているのに確認ダイアログが出る ichinose 06/6/14(水) 14:07

【38925】Re:保存しているのに確認ダイアログが出る hide 06/6/14(水) 14:49


	【38873】保存しているのに確認ダイアログが出る

hide - 06/6/13(火) 11:12 -


	引用なし

	パスワード

初めて質問させていただきます。

メインのブックの中に作業用シートを作り、
それを別ブックに保存してから終了する、ということをやろうとしています。
その時にメインのブックを強制的に上書き保存して
から閉じているのに、なぜか確認ダイアログが表示され、
保存を「いいえ」にすると、メインのブックが壊れてしまいます。

以下はそのコードです。
なにかアドバイスをお願いいたします。

Private Sub CommandButton4_Click()

Set WB = ThisWorkbook

WB.Worksheets("作業シート").Select
WB.Worksheets("作業シート").Move
Application.Dialogs(5).Show
ActiveWorkbook.Close (False)

If MsgBox("作業を続けますか？", vbYesNo + vbInformation) = vbNo Then
　　　　WB.Save
　　　　If Workbooks.Count = 1 Then
　　　　　　Application.Quit
　　　　Else
　　　　　　WB.Close (False)
　　　　End If
　　End If
End If
End Sub


	【38894】Re:保存しているのに確認ダイアログが出る

Mariko - 06/6/13(火) 21:20 -


	引用なし

	パスワード

▼hide さん：
>
>Private Sub CommandButton4_Click()
>
>Set WB = ThisWorkbook
>
>WB.Worksheets("作業シート").Select
>WB.Worksheets("作業シート").Move
>Application.Dialogs(5).Show
>ActiveWorkbook.Close (False)
>
On Error Resume Next

>If MsgBox("作業を続けますか？", vbYesNo + vbInformation) = vbNo Then
>　　　　WB.Save

On Error GoTo 0

>　　　　If Workbooks.Count = 1 Then
>　　　　　　Application.Quit
>　　　　Else
>　　　　　　WB.Close (False)
>　　　　End If
>　　End If
>End If
>End Sub

で、出来ませんか･･･


	【38903】Re:保存しているのに確認ダイアログが出る

漂流民 - 06/6/14(水) 1:46 -


	引用なし

	パスワード

こんばんわ
回答ではありません、悪しからず。

▼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

分かったことは、
１．Application.Quitしエクセルが終了しても「タスクマネージャ」の
　　プロセスを確認すると「EXCEL.EXE」が残っている。
　　(プロセスが正常終了していない）
２．http://support.microsoft.com/kb/199212/JA/
　　の「原因」かも・・・
　　(すいませんまだ全部読んでいないのですが)
ご参考になれば・・・

すいません、お力になれませんm(__)m


	【38904】Re:保存しているのに確認ダイアログが出る

ichinose - 06/6/14(水) 6:58 -


	引用なし

	パスワード

皆さん、おはようございます。

このコードをお借りして、私の環境で検証してみました。

>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
>
>
>分かったことは、

この現象が発生したのは、
　Win98＆Excel2000 SR-1(Office2000Pro）
この環境では、

>プロセスを確認すると「EXCEL.EXE」が残っている。
>メインのブックが壊れてしまいます。

の両方を確認できましたが、

Win98&Excel2000 SP-3（Office2000Pro)
では確認できず、正常にExcelプロセス終了し、ブックも破壊されていません。

尚、Win2000&Excel2002-SP3（Office2002Pro）
では確認できず、正常にExcelプロセス終了し、ブックも破壊されていません。

漂流民さんの提示されたＭＳ社サイトにも対象が

Microsoft Excel 2000 Standard Edition

とありましたが、
hide さんのExcelのバージョンは何を使っておられるのですか？


	【38915】Re:保存しているのに確認ダイアログが出る

hide - 06/6/14(水) 11:54 -


	引用なし

	パスワード

Marikoさん、漂流民さん、ichinoseさん、
ご意見ありがとうございます。

今更ですが、End If　が一個多い事に気が付きました。
すいません・・・

>hide さんのExcelのバージョンは何を使っておられるのですか？

使用している　エクセルは2000　SR-1　です
ちなみにOSは　WindowsXP Pro　です

いろいろ試した結果、

If MsgBox("作業を続けますか？", vbYesNo + vbInformation) = vbNo Then
　　Application.Quit
End If

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set WB = ThisWorkbook
If WB.Saved = False Then
　　WB.Save
End If

End Sub

とするとダイアログも出ず、ファイルの破損もなかったです。
ただ、上記のやり方だと他のブックが開いていても
一緒に閉じてしまうので、あまり好ましくありません。

他にやり方がありましたら、
どうぞ教えてください。


	【38924】Re:保存しているのに確認ダイアログが出る

ichinose - 06/6/14(水) 14:07 -


	引用なし

	パスワード

▼hide さん：
こんにちは。

>
>>hide さんのExcelのバージョンは何を使っておられるのですか？
>
>使用している　エクセルは2000　SR-1　です
>ちなみにOSは　WindowsXP Pro　です

であるならば、SP3にUpdateすればエラー回避が出来ると思います。
（Win98＆Excel2000 SP-3では、エラーは発生しないと申し上げました）
Winが違っても大丈夫だと思いますが・・・。

どなたか確認できる方確認してみてください。

http://office.microsoft.com/ja-jp/officeupdate/default.aspx

↑の上部の「Officeのアップデート」の「アップデートの確認」で行うと
必要なUpdateが行われると思います。

私だったら、まず、これを行いますが・・・。


	【38925】Re:保存しているのに確認ダイアログが出る

hide - 06/6/14(水) 14:49 -


	引用なし

	パスワード

▼ichinose さん：
SP3をインストールしたところエラー回避できました
ありがとうございます。

以前きちんと確認せずにSP3にアップデートして、
ACCESSが不調になったことがあったので、
アップデートをしていませんでした。
オフィスもきちんとアップデートしないと駄目ですね

ichinoseさん、漂流民さん、Marikoさん
本当にどうもありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7483 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free