指定したシートだけ別ブックにして保存【ExcelVBA】

ブック内の指定したシートだけを別ファイルとして保存したい場合に有効

使用するのはWorkSheetのCopyメソッドで、引数Before・Afterを使用せずシートを新しいブックとして作成させ

ActiveWorkbookをSaveAsメソッドで保存しCloseメソッドで閉じるというもの。

実際に使用したサンプルコード（複数のシートを指定した場合）

---------------------------------

Public Sub sample()

Dim 配列() As Variant

配列 = Array("必要", "不要1", "不要2", "不要3")

'指定したシートのコピーを含むブックを作成
Worksheets(配列).Copy

Application.DisplayAlerts = False

'アクティブなウインドウのブックを取得し操作
ActiveWorkbook.SaveAs Filename:="sample.xlsx"

'閉じる
ActiveWorkbook.Close

End Sub

---------------------------------

※１つのシートを指定した場合

Worksheets(”シート名").Copy
ActiveWorkbook.SaveAs Filename:="sample.xlsx"
ActiveWorkbook.Close