第64回.ブックを閉じる・保存（Close,Save,SaveAs）
ワークブックを閉じる場合や保存する場合のマクロVBAの説明です。
閉じる時に保存するか保存しないかを指定できます、
また、
ブックを保存するにも、上書きなのか別ファイルにするのか等によってVBAの記述がそれぞれ違ってきます。
ブックを閉じる
Workbook.Close SaveChanges, Filename, RouteWorkbook
| SaveChanges | ブックに変更がない場合、この引数は無視されます。ブックに変更がある場合、この引数で変更を保存するかどうかを指定します。 |
| Filename | 変更後のブックのファイル名。 |
| RouteWorkbook | ブックの回覧。 |
全ての引数がオプション（任意の指定）となっています。
全ての引数を省略
とだけ指定した場合は、ブックに変更が無ければそのまま閉じられ、
ブックに変更がある場合は、保存確認のメッセージが表示されます。
ただし、
Application.DisplayAlerts = False
これが指定されている場合は、確認のメッセージが表示されずに保存されます。
True : ブックに変更がある場合は保存します。
False : ブックに変更があっても保存せずに閉じます。
保存して閉じる
他の引数は、通常はあまり使用しません。
ブックを上書き保存
Workbook.Save
これで上書き保存されます。
ブックに名前を付けて保存
Workbook.SaveAs FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local
| 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、この定数は使用できません、コンパイルエラーとなります。
ブックのコピーを保存
Workbook.SaveCopyAs Filename
ブックのコピーをファイルに保存します。
メモリ上のブック（開かれているブック）に対しては、変更は行われません。
バックアップの作成等で使用します。
ブックを閉じる・保存の実践例
他のブックが開かれていない場合は、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 ・・・新着記事一覧を見る
VBA100本ノック 18本目：名前定義の削除｜VBA練習問題100（11月6日）
VBA100本ノック 17本目：重複削除（ユニーク化）｜VBA練習問題100（11月6日）
VBA100本ノック 16本目：無駄な改行を削除｜VBA練習問題100（11月5日）
VBA100本ノック 15本目：シートの並べ替え｜VBA練習問題100（11月4日）
VBA100本ノック 14本目：社外秘シート削除｜VBA練習問題100（11月3日）
VBA100本ノック 13本目：文字列の部分フォント｜VBA練習問題100（11月1日）
VBA100本ノック 12本目：セル結合を解除｜VBA練習問題100（10月31日）
VBA100本ノック 11本目：セル結合の警告｜VBA練習問題100（10月30日）
VBA100本ノック 10本目：行の削除｜VBA練習問題100（10月29日）
VBA100本ノック 9本目：フィルターコピー｜VBA練習問題100（10月28日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.マクロって何？VBAって何？｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。