ワークブックを閉じる場合は次のように行います。
"Book1"を閉じる
Sub Test() Workbooks("Book1").Close SaveChanges:=True End Sub
※新規作成時の場合、名前をつけて保存するか確認されます。
"Book1"を保存しないで閉じる
Sub Test() Workbooks("Book1").Close SaveChanges:=False End Sub
"Book1"のファイル名を"Book2"に変更して保存する
Sub Test() Workbooks("Book1").Close SaveChanges:=True, _ Filename:="Book2" End Sub
ワークブックを保存して閉じ、Excelを終了する
Sub Test() Application.Quit Windows("Book1").Close True End Sub
ワークブックを保存しないで閉じ、Excelを終了する
Sub Test() Application.Quit Windows("Book1").Close False End Sub