Excel-VBA ブック数1以下のときエクセルを終了するマクロ

Excel VBAマクロ。今回は
ブック数1以下のときエクセルを終了するマクロ
を示す。

■Excel-VBA ブック数1以下のときエクセルを終了するマクロ

Sub sample36()
If Workbooks.Count <= 1 Then Application.Quit
End Sub

※[2.] 開いているワークブック数が1以下のとき
アプリケーション(エクセル)を終了する。

■マクロ実行対象

ワークブック「部品データ_191128.xlsx」

ワークブック「macro.xlsx」

■マクロ実行結果

ワークブック「部品データ_191128.xlsx」と「macro.xlsx」

■あとがき

今回はExcel VBAマクロ。
ブック数1以下のときエクセルを終了するマクロ
を示した。

マクロ処理後に他にブックを開いてなければ
エクセルを終了したい場合に使う。

LibreOffice Basicで使う場合は
コードの先頭行に
「Option VBASupport 1」を記述する。

Option VBASupport 1

以上。