ベストアンサー

Excelマクロ　ボタンをクリックするだけで、保存せずにシートを閉じる

2006/04/10 12:43

こんにちはやっと勉強する気になった超初心者です表題の通りなのですが１、コマンドボタンをクリック２、Bookを保存せずに閉じるという作業をしたいのですが記録ではできない・・・と思いますのでどなたかご教授下さい

yukinojyou7
お礼率75% (322/424)

オフィス系ソフト
回答数6
ありがとう数2

みんなの回答 （6）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

masa_019
ベストアンサー率61% (121/197)

2006/04/10 20:16 回答No.6

単純に、自ブックの標準モジュールのマクロから自ブックを閉じてエクセルを終了させられれば良いのですよね？他に開いているブックは無いものとして、 Sub Macro1() ThisWorkbook.Saved = True Application.Quit ThisWorkbook.Close End Sub だけで良いのでは？

質問者

お礼 2006/04/10 20:47

回答ありがとうございますできました！！ありがとうございます

ログインすると、全ての回答が全文表示されます。

その他の回答 (5)

o_chi_chi
ベストアンサー率45% (131/287)

2006/04/10 16:04 回答No.5

Application.DisplayAlerts = False Application.Quit でOKです。 2行目だけで(ブックも含めて)EXCELを終了しますが未保存のブックがある場合保存確認ダイアログが表示されます。それを回避するために1行目を設定しています。

質問者

補足 2006/04/10 18:27

Sub タイトル() ' ' タイトル Macro ' マクロ記録日 : 2006/4/10 ユーザー名 : yukinojyou ' Application.DisplayAlerts = False Workbooks.Close Application.DisplayAlerts = False Application.Quit End Sub としたのですが、やっぱりExcelは終了しません何度も申し訳ないのですが、ご教授下さい

ログインすると、全ての回答が全文表示されます。

o_chi_chi
ベストアンサー率45% (131/287)

2006/04/10 15:26 回答No.4

#2です。 Workbooks.Close の後に Application.Quit を実行しようとしていませんか？下記でEXCELも終了すると思いますが。 --- Application.DisplayAlerts = False Application.Quit

質問者

補足 2006/04/10 15:30

度々すいません Application.DisplayAlerts = False Workbooks.Close Application.DisplayAlerts = False Application.Quit とすれば良いのでしょうか？？

ログインすると、全ての回答が全文表示されます。

noname#187541

2006/04/10 13:02 回答No.3

こんにちは。 A.xlsを保存せずに閉じます。 Workbooks("A.xls").Close False ブックを閉じるには　Close 　〃　保存するには　Save 等ををつかいます。これらをヘルプで調べて勉強してください。

ログインすると、全ての回答が全文表示されます。

o_chi_chi
ベストアンサー率45% (131/287)

2006/04/10 13:01 回答No.2

Bookを閉じるのなら Application.DisplayAlerts = False Workbooks.Close ですがEXCELが残ります。 EXCELも終了なら Application.Quit

質問者

補足 2006/04/10 15:06

Excelも終了したいのですが Application.Quitを最後に付け加えても残ってしまいますどうすればいのでしょうか？

ログインすると、全ての回答が全文表示されます。

kokorone
ベストアンサー率38% (417/1093)

2006/04/10 12:57 回答No.1

Sub quit_click() If MsgBox("保存しないで終了します。　よろしいですか？" & Chr(13) & Chr(13) & _ "[はい]=破棄終了／ [いいえ]=メニューに戻る" & Chr(13), vbQuestion + vbYesNo, MSG_TITLE) = vbNo Then GoTo Menu Application.DisplayAlerts = False '警告メッセージ回避 ActiveWorkbook.RunAutoMacros xlAutoClose 'Auto_close実行(VBAでブックを閉じる場合には必要) Call 終了 '終了処理 End 'Excel 97 ABEND回避用 End Sub Sub 終了() Dim wk_chk As Boolean, wb As Variant wk_chk = True For Each wb In Workbooks If wb.Name = ThisWorkbook.Name Or wb.Name = "PERSONAL.XLS" Then Else wk_chk = False 'このブック又は"PERSONAL.XLS"以外のブック存在時のみ False セット End If Next If wk_chk = True Then Application.Quit 'このブック（と"PERSONAL.XLS"）のみ存在の場合、Ｅｘｃｅｌ終了 Else ActiveWorkbook.Close '他のブックが存在する場合、このブックのみ終了 End If End Sub こんなところでしょうか？

ログインすると、全ての回答が全文表示されます。