Excel VBA シートを新規ブックにコピーして名前を付けて保存する実践例

Excel VBAでシートコピー（新規ブックにコピーし、名前を付けて保存）は、既存のシートを新しいブックにコピーして、その新しいブックに名前を付けて保存する操作を指します。この操作を行えば、特定のシートだけを別のファイルとして保存できます。具体的な使い方や、注意点やサンプルコードを紹介します。

Excel VBAでシートを新しいブックにコピーするシーンとメリット

特定のシートを新しいブックにコピーする操作は、データ管理や分割作業で非常に便利です。

Excel VBAでシートを新しいブックにコピーする｜使い方

Excel VBA シートコピーのサンプルコード

Workbooks.Addメソッドで新しいブックを作成

Option Explicit

Sub CopyMultipleSheets()
    Dim newBook As Workbook
    Set newBook = Workbooks.Add
End Sub

コピー元のシートを指定して、新しいブックに移します。

Option Explicit

Sub CopyMultipleSheets()
    Dim newBook As Workbook
    Set newBook = Workbooks.Add
    Dim sheetToCopy As Worksheet
    Set sheetToCopy = ThisWorkbook.Sheets("Sheet1")
    
    sheetToCopy.Copy Before:=newBook.Sheets(1)
End Sub

新しいブックを保存して作業を終了します。

Option Explicit

Sub CopyMultipleSheets()
    Dim newBook As Workbook
    Set newBook = Workbooks.Add
    Dim sheetToCopy As Worksheet
    Set sheetToCopy = ThisWorkbook.Sheets("Sheet1")
    
    sheetToCopy.Copy Before:=newBook.Sheets(1)
    newBook.SaveAs "C:\Users\User\Desktop\Test\新しいファイル.xlsx"
    newBook.Close
End Sub

複数シートをまとめてコピー

Option Explicit

Sub CopyMultipleSheets()
    Dim newBook As Workbook
    Dim sheetArray As Variant

    ' コピーするシートの名前を配列で指定
    sheetArray = Array("Sheet1", "Sheet2", "Sheet3")

    ' 新しいブックを作成
    Set newBook = Workbooks.Add

    ' シートをコピー
    ThisWorkbook.Sheets(sheetArray).Copy Before:=newBook.Sheets(1)

    ' 新しいブックを保存
    newBook.SaveAs "C:\Users\User\Desktop\Test\新しいファイル.xlsx"
    newBook.Close
End Sub

新規ブックにコピー、名前を付けて保存

Option Explicit

Sub CopySheetToNewBookAndSave()
    Dim wsSource As Worksheet
    Dim newBook As Workbook
    Dim filePath As String
    
    ' コピー元のシートを指定
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    
    ' シートを新しいブックにコピー
    wsSource.Copy
    
    ' コピーされたシートがアクティブな新しいブックになる
    Set newBook = ActiveWorkbook
    
    ' 保存先のパスを指定
    filePath = "C:\Users\User\Desktop\NewWorkbook.xlsx"
    
    ' 新しいブックを保存
    newBook.SaveAs filePath
    
    ' 新しいブックを閉じる
    newBook.Close
    
    ' 完了メッセージ
    MsgBox "シートが新規ブックにコピーされ、保存されました！"
End Sub