ブックを閉じる（Close メソッド）
Close メソッド で、ブックを閉じることができます。この時、Workbooks コレクション を対象のオブジェクトにした場合は、開いているすべてのブックを閉じます（未保存のブックがある場合は、保存するかどうかのダイアログボックスが開きます）。個々のブックを閉じるには、Workbook オブジェクト や Window オブジェクト を指定します。
Workbooks コレクション をオブジェクトにした場合、Close メソッド に、引数を指定することはできません。
【書式】
＜Workbooks コレクション＞
object.Close
＜Workbook / Window オブジェクト＞
object.Close ( savechange, filename, routeworkbook )
引数・戻り値
- object ・・・ 対象となる Workbooks コレクション、Workbook オブジェクト、Window オブジェクトを指定します。
- savechange ・・・ True を指定するとブックに変更があった場合、保存します。この場合、引数 filename が指定されている場合は、filename の名前で保存されます。filename が指定されていない場合、既存のブックは上書き保存され、新規ブックの場合は、「名前を付けて保存」ダイアログボックスが表示されます。False を指定すると変更を保存しないで閉じます。省略した場合、ファイルを保存するかどうかを確認するダイアログボックスが表示されます。
- filename ・・・ 保存するブックの名前を指定します（省略可）。
- routeworkbook ・・・
ブックを次の受信者に回覧する必要がない場合は、この引数は無視されます。それ以外の場合、このパラメーターの値に応じてブックが回覧されます。True を指定すると、次の受信者にブックが送信されます。False を指定すると、ブックは送信されません。省略した場合、ブックを送信するかどうかを確認するダイアログボックスが表示されます。
Close メソッド 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Sample_Close() '新規ブックを作成 Dim mywork As Workbook Set mywork = Workbooks.Add 'セル「A1」に、「100」を入力 mywork.Worksheets(1).Range("A1").Value = 100 '保存して終了する mywork.Close savechanges:=True End Sub |
実行結果
