Excel VBA質問箱 IV

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

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


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

【62355】close時のエラーについて チューリップ 09/7/13(月) 21:17 質問[未読]
【62357】Re:close時のエラーについて つるりん 09/7/14(火) 7:02 回答[未読]
【62359】Re:close時のエラーについて チューリップ 09/7/14(火) 9:14 お礼[未読]
【62362】Re:close時のエラーについて つん 09/7/14(火) 12:56 発言[未読]
【62364】2007もってないけど。 イブX 09/7/14(火) 16:47 発言[未読]
【62365】Re:2007もってないけど。 イブX 09/7/14(火) 16:55 発言[未読]
【62368】Re:2007もってないけど。 チューリップ 09/7/14(火) 17:43 お礼[未読]

【62355】close時のエラーについて
質問  チューリップ  - 09/7/13(月) 21:17 -

引用なし
パスワード
   何度も何度もすみません。

ファイル作成は着々と進みつつあるのですが、また問題が出てしまいました。
よろしくお願いします。

ワークブックを終わらせるときに下記のコードを書いてオートシェイプに登録しているのですが、

Sub owaru()
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

その時必ず下記のようなエラーが出てしまいます。
----------------------------------------------
問題が発生したため、Microsoft Office Excel を終了します。 ご不便をおかけして申し訳ありません。

この報告に含まれるデータの参照:
AppName: excel.exe   AppVer: 12.0.6341.5001   AppStamp:49a5e049
ModName: excel.exe   ModVer: 12.0.6341.5001   ModStamp:49a5e049
fDebug:0  Offset.00c4f03b
----------------------------------------------
メニューから終わるとエラーが出ないので、私の書いたコードがまずいのかもしれませんが、多くのサイトに載っているコードでこれ自体間違ってるとは思えないのです。あと、エラーメッセージが出るもののちゃんと保存もされています(保存するを押した場合)

Application.DisplayAlerts = True を抜いてみたり、
ActiveをThis にしたりしてもダメでした(そういう問題ではない?)
原因と回避方法をお教えいただけませんでしょうか。

【62357】Re:close時のエラーについて
回答  つるりん  - 09/7/14(火) 7:02 -

引用なし
パスワード
   Sub owaru()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
ではないですか?

【62359】Re:close時のエラーについて
お礼  チューリップ  - 09/7/14(火) 9:14 -

引用なし
パスワード
   つるりんさんおはようございます。

ご回答ありがとうございます。
教えていただいたコードですと、保存するか聞いてこないで終了されてしまいます。

あと、エラーの出るエクセルバージョンは2007ですが、今出先で2003で試したらエラーは出ませんでした。
関係あるのでしょうか?

【62362】Re:close時のエラーについて
発言  つん  - 09/7/14(火) 12:56 -

引用なし
パスワード
   ▼チューリップ さん
こんにちは^^
横から失礼します。

ht tp://oshiete1.goo.ne.jp/qa4049910.html

あまり詳しく読んでないですが、
参考になりそうな感じです。

2007のバグっぽいですね・・・

【62364】2007もってないけど。
発言  イブX  - 09/7/14(火) 16:47 -

引用なし
パスワード
   なんとなくですけど、
>ActiveWorkbook.Close(False)
とかつけたら、どうなるのでしょうか?
だめだったら、すみません。

【62365】Re:2007もってないけど。
発言  イブX  - 09/7/14(火) 16:55 -

引用なし
パスワード
   あ、
>メニューから終わるとエラーが出ないので、私の書いたコードがまずいのかもしれませんが、多くのサイトに載っている>コードでこれ自体間違ってるとは思えないのです。
もしかして、
Private Sub Workbook_BeforeClose(Cancel As Boolean)
のコードが絡んでいません?
絡んでいたら、その辺りのコードも書いた方が良いと思います。

【62368】Re:2007もってないけど。
お礼  チューリップ  - 09/7/14(火) 17:43 -

引用なし
パスワード
   つんさん、イブX さん、
ありがとうございます。

つんさん
どうも、バグのようで、教えていただいた先に書いてあるように
ワードのオブジェクトを使ったらバグが出なくなりました。
関連のサイトを見つけて戴いてありがとうございます。

イブXさん
>もしかして、
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>のコードが絡んでいません?
>絡んでいたら、その辺りのコードも書いた方が良いと思います。

一応バグが直ったみたいなので、教えていただいたコードは試していませんが、
上記の件は絡んでいないです。
色々ご検討いただきありがとうございました。

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