第64回.ブックを閉じる・保存（Close,Save,SaveAs）
ワークブックを閉じる場合や保存する場合のマクロVBAの説明です。
閉じる時に保存するか保存しないかを指定できます。
また、
ブックを保存するにも、上書きなのか別ファイルにするのか等によってVBAの記述がそれぞれ違ってきます。
ブックを閉じる
| SaveChanges | ブックに変更がない場合、この引数は無視されます。ブックに変更がある場合、この引数で変更を保存するかどうかを指定します。 |
| Filename | 変更後のブックのファイル名。 |
| RouteWorkbook | ブックの回覧。 |
全ての引数がオプション（任意の指定）となっています。
とだけ指定した場合は、ブックに変更が無ければそのまま閉じられ、
ブックに変更がある場合は、保存確認のメッセージが表示されます。
ただし、
Application.DisplayAlerts = False
これが指定されている場合は、確認のメッセージが表示されずに保存もされません。
True：ブックに変更がある場合は保存します。
False：ブックに変更があっても保存せずに閉じます。
ブックを上書き保存
ブックに名前を付けて保存
| Filename | 保存するファイルの名前を表す文字列を指定します。 |
| FileFormat | ファイルを保存するときのファイル形式を指定します。 |
| Password | ファイルを保護するためのパスワードを表す15 文字以内の文字列を指定します。 |
| WriteResPassword | ファイルの書き込みパスワードを表す文字列を指定します。 |
| ReadOnlyRecommended | 読み取り専用で開くことを推奨するメッセージを表示するには、True を指定します。 |
| CreateBackup | バックアップ ファイルを作成するには、True を指定します。 |
| AccessMode | ブックのアクセス モードを指定します。 |
| ConflictResolution | ブックを保存するときの競合の解決方法を指定します。 |
| AddToMru | 最近使用したファイルの一覧にブックを追加するにはTrueを指定。既定値はFalseです。 |
| TextCodepage | 使用しない。 |
| TextVisualLayout | 使用しない。 |
| Local | 通常は使用しない。 ※csv出力時 日付がm/d/yyyyになってしまう場合に、yyyy/m/dにする場合にはTrueを指定 |
全ての引数がオプション（任意の指定）となっています。
しかし通常は、FileNameは必ず指定します。
パスを指定しない場合は、カレントフォルダーに保存されます。
xlExcel9795 : Excel2003以前のxls
Excel2003以前では、xlExcel8、この定数は使用できません、コンパイルエラーとなります。
既にファイルが存在する場合は、以下のダイアログメッセージが表示されます。
「いいえ」または「キャンセル」を選択すると、VBAは以下のエラーで停止します。
Application.DisplayAlerts = False
これを実行しておくことで、既にファイルが存在していてもそのまま上書き保存されます。
ThisWorkbook.SaveAs "D:\temp\sample.xlsm"
ブックのコピーを保存
メモリ上のブック（開かれているブック）に対しては、変更は行われません。
バックアップの作成等で使用します。
ブックを閉じる・保存の実践例
他のブックが開かれていない場合は、Excelを終了する場合。
Sub 保存して終了()
If Workbooks.Count > 1 Then
ThisWorkbook.Close
SaveChanges:=True
Else
ThisWorkbook.Save
Application.Quit
End
If
End Sub
Sub 保存しないで終了()
If Workbooks.Count > 1 Then
ThisWorkbook.Close
SaveChanges:=False
Else
ThisWorkbook.Saved =
True
Application.Quit
End If
End
Sub
Application.Quit
.
SavedをTrueにすることで保存後に変更が無い状態にすることが出来ます。
これにより、Close時に保存確認のメッセージが表示されないようにしています。
これは、
Application.DisplayAlerts = False
Application.Quit
このようにしても同じ結果になります。
同じテーマ「マクロVBA入門」の記事
第61回.「On Error GoTo」と「Exit Sub」
第62回.「On Error Resume Next」とErrオブジェクト
第63回.ブックを開く（Open,Add）
第64回.ブックを閉じる・保存（Close,Save,SaveAs）
第65回.シートの挿入、名前の変更（Add,Name）
第66回.シートのコピー・移動・削除（Copy,Move,Delete）
第67回.総合練習問題7
第68回.シートの保護、ブックの保護（Protect）
第69回.シートの非表示（Visible,Hidden）
第70回.ウィンド枠の固定（FreezePanes）
第71回.印刷（PrintOut）
新着記事NEW ・・・新着記事一覧を見る
「Python in Excel」入門：コードを読むための基礎知識｜エクセル関数応用(2026-09-10)
M言語入門：Power Queryのコードを読むための基礎知識｜Power Query（M言語）入門(2026-09-09)
Excelの正規表現関数（REGEXTEST・REGEXREPLACE・REGEXEXTRACT）の使い方｜エクセル関数応用(2026-09-08)
スピルとVBA（Formula2とスピル範囲の取得）｜VBA入門(2026-09-08)
「Withの功罪」：コードを読みやすくする強力な道具と、その落とし穴｜VBA技術解説(2026-09-03)
可変長配列をVSTACKする4つの方法｜REDUCE・Thunk・チャンク・再帰分割｜エクセル関数応用(2026-09-01)
Excel表とMarkdownテーブルを相互変換する数式｜エクセル関数応用(2026-08-24)
「Python in Excel」数独（ナンプレ）解法プログラムの移植と最適化｜エクセル関数応用(2026-08-14)
「Python in Excel」で自作関数を登録｜アンピボット関数と計算順序｜エクセル関数応用(2026-08-12)
ListBox・ComboBoxをマウスホイール対応させる｜ユーザーフォーム入門(2026-08-09)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.Excelショートカットキー一覧｜Excelリファレンス
5.RangeとCellsの使い方｜VBA入門
6.FILTER関数（範囲をフィルター処理）｜エクセル入門
7.マクロとは？VBAとは？VBAでできること｜VBA入門
8.繰り返し処理（For Next)｜VBA入門
9.メッセージボックス(MsgBox関数)｜VBA入門
10.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.