Excel VBA質問箱 IV

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

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


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

【19507】エクセルの終了(×)について YN61 04/11/5(金) 21:38 質問[未読]
【19508】Re:エクセルの終了(×)について Kein 04/11/5(金) 21:40 回答[未読]
【19510】Re:エクセルの終了(×)について YN61 04/11/5(金) 22:12 質問[未読]
【19512】Re:エクセルの終了(×)について [名前なし] 04/11/5(金) 22:31 発言[未読]
【19517】Re:エクセルの終了(×)について YN61 04/11/6(土) 8:47 お礼[未読]
【19520】Re:エクセルの終了(×)について [名前なし] 04/11/6(土) 11:21 回答[未読]
【19523】Re:エクセルの終了(×)について YN61 04/11/6(土) 13:55 お礼[未読]
【19509】Re:エクセルの終了(×)について [名前なし] 04/11/5(金) 22:06 回答[未読]
【19511】Re:エクセルの終了(×)について YN61 04/11/5(金) 22:16 お礼[未読]

【19507】エクセルの終了(×)について
質問  YN61  - 04/11/5(金) 21:38 -

引用なし
パスワード
   会計ソフト(毎日の売上など)のデータをFD3.5のエクセルのフォームに貼り付け
VBAにてデータの処理をして、最終印刷までしています。

印刷終了後、エクセルのデータをなくして、元の空表に戻して終了したいのですが、
つまりエクセルの右上の「×」マークをおした状態ですが、次のような
コードでは、必ず「変更を保存しますか」というメッセージが出ます。
その都度「いいえ」を押して終了しなければなりませんが、メッセージ
をなくして、終了する方法を教えていただけませんでしょうか。

また、Quit以外にもっと違うコードの方がよいのでしょうか。
(それからQuitの意味も教えていただけませんでしょうか)

よろしくお願いします。


Sub 終了()

 Application.Quit

End Sub

【19508】Re:エクセルの終了(×)について
回答  Kein  - 04/11/5(金) 21:40 -

引用なし
パスワード
   Sub 終了()
  ThisWorkbook.Saved = True
  Application.Quit
End Sub

とすれば良いでしょう。

【19509】Re:エクセルの終了(×)について
回答  [名前なし]  - 04/11/5(金) 22:06 -

引用なし
パスワード
   他に以下の方法でも出来ます。

Sub 終了()
  Application.Quit
  ThisWorkbook.Close False
End Sub

Sub 終了()
  Application.DisplayAlerts = False
  Application.Quit
End Sub

Quit メソッド
Excel を終了します。(ヘルプより)

【19510】Re:エクセルの終了(×)について
質問  YN61  - 04/11/5(金) 22:12 -

引用なし
パスワード
   ▼Kein さん:

早速の回答、ありがとうございます。
データは印刷終了後は不要です。
エクセルのデータが保存されずに、元の空表に戻したいのですが・・・
データの加工後は、ブックには保存されずに終了したいのですが。
教えてください。

>Sub 終了()
>  ThisWorkbook.Saved = True
>  Application.Quit
>End Sub
>
>とすれば良いでしょう。

【19511】Re:エクセルの終了(×)について
お礼  YN61  - 04/11/5(金) 22:16 -

引用なし
パスワード
   ▼[名前なし] さん:

早速回答をいただきまして、ありがとうございます。
良く理解できました。

早速利用させていただきます。

今後ともよろしくお願いします。

【19512】Re:エクセルの終了(×)について
発言  [名前なし]  - 04/11/5(金) 22:31 -

引用なし
パスワード
   Saved プロパティ

変更を加えたブックを保存しない、または保存するかどうかを確認するダイアログ ボックスを
非表示にして閉じる場合は、このプロパティに True を設定してください。(ヘルプよリ)

ということなので、Keinさんのコードでもブックの保存はされません。

【19517】Re:エクセルの終了(×)について
お礼  YN61  - 04/11/6(土) 8:47 -

引用なし
パスワード
   ▼[名前なし] さん:

おはようございます。

ご指摘ありがとうございます。
Kein様には失礼しました。テストさせていただいたら、保存されたように
思えました。今確認しましたら、上書きせずに終了しました。
本当に失礼しました。

因みに、せっかくここまで教えていただいたのですから、更に
保存して終了も教えてください。

色々とご指導ありがとうございます。


>Saved プロパティ
>
>変更を加えたブックを保存しない、または保存するかどうかを確認するダイアログ ボックスを
>非表示にして閉じる場合は、このプロパティに True を設定してください。(ヘルプよリ)
>
>ということなので、Keinさんのコードでもブックの保存はされません。

【19520】Re:エクセルの終了(×)について
回答  [名前なし]  - 04/11/6(土) 11:21 -

引用なし
パスワード
   ▼YN61 さん:
>因みに、せっかくここまで教えていただいたのですから、更に
>保存して終了も教えてください。

普通に保存してから終了すればいいだけでは・・・?

Sub 保存終了()
 ThisWorkbook.Save
 Application.Quit
End Sub

【19523】Re:エクセルの終了(×)について
お礼  YN61  - 04/11/6(土) 13:55 -

引用なし
パスワード
   ▼[名前なし] さん:

ありがとうございました。

これからもよろしくご指導の程よろしく
お願い申し上げます。

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