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

こんにちは
やっと勉強する気になった超初心者です

表題の通りなのですが

１、コマンドボタンをクリック
２、Bookを保存せずに閉じる

という作業をしたいのですが
記録ではできない・・・と思いますので
どなたかご教授下さい

No.6 ベストアンサー 回答者： masa_019 回答日時： 2006/04/10 20:16

単純に、自ブックの標準モジュールのマクロから

自ブックを閉じてエクセルを終了させられれば
良いのですよね？
他に開いているブックは無いものとして、

Sub Macro1()
ThisWorkbook.Saved = True
Application.Quit
ThisWorkbook.Close
End Sub

だけで良いのでは？

この回答へのお礼

回答ありがとうございます

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

お礼日時：2006/04/10 20:47

No.5 回答者： o_chi_chi 回答日時： 2006/04/10 16:04

Application.DisplayAlerts = False

Application.Quit

でOKです。

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

この回答への補足

Sub タイトル()
'
' タイトル Macro
' マクロ記録日 : 2006/4/10 ユーザー名 : yukinojyou
'
Application.DisplayAlerts = False
Workbooks.Close
Application.DisplayAlerts = False
Application.Quit

End Sub

としたのですが、やっぱりExcelは終了しません
何度も申し訳ないのですが、ご教授下さい

補足日時：2006/04/10 18:27

No.4 回答者： o_chi_chi 回答日時： 2006/04/10 15:26

#2です。

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

---
Application.DisplayAlerts = False
Application.Quit

この回答への補足

度々すいません

Application.DisplayAlerts = False
Workbooks.Close
Application.DisplayAlerts = False
Application.Quit

とすれば良いのでしょうか？？

補足日時：2006/04/10 15:30

No.3 回答者： M-SOFT#2 回答日時： 2006/04/10 13:02

こんにちは。

A.xlsを保存せずに閉じます。

Workbooks("A.xls").Close False

ブックを閉じるには　Close
　〃　保存するには　Save

等ををつかいます。これらをヘルプで調べて勉強してください。

No.2 回答者： o_chi_chi 回答日時： 2006/04/10 13:01

Bookを閉じるのなら

Application.DisplayAlerts = False
Workbooks.Close

ですがEXCELが残ります。
EXCELも終了なら

Application.Quit

この回答への補足

Excelも終了したいのですが
Application.Quitを最後に付け加えても
残ってしまいます

どうすればいのでしょうか？

補足日時：2006/04/10 15:06

No.1 回答者： kokorone 回答日時： 2006/04/10 12:57

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

こんなところでしょうか？