Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ブックを閉じる（Close メソッド）

2015/11/25 2016/01/12

ブックを閉じる（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ソース

　
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

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

　

実行結果

- ブック・シートの操作 VBA基本, Window オブジェクト, Workbook オブジェクト, Workbooks コレクション, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 共有ファイルを開いているユーザー情報を取得（UserStatus プロパティ）

共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …

: ブックの変更が保存されているかを確認する（Saved プロパティ）

ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …

: 印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）

PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …

: 印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

偶数ページに別のヘッダーおよびフッターを設定偶数ページのヘッダーおよびフッター …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: ウィンドウの分割（Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウの分割と解除ウィンドウ（ワークシート画面）を分割するには、Split …

: ユーザー設定のドキュメントプロパティ（CustomDocumentProperties プロパティ）

CustomDocumentProperties プロパティユーザー設定のドキ …

: ブック作成時のシート数の取得・設定（SheetsInNewWorkbook プロパティ）

SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: 再計算（Calculation, EnableCalculation, Calculate）

ワークブックやシートの再計算通常、Excel では、自動的に再計算が行われる設 …

PREV: ブックを開く（Open メソッド）
NEXT: ブックを保存する（Save メソッド）