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

以下のようなシーンで利用されます。

・完成したレポートを他のユーザーに送信するために、そのシートだけを新規ブックとして保存。

・特定のシートをテンプレートとして別ファイルに保存し、他の人が使用できるようにする。

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

この操作を使うことで、特定のシートを別のファイルとして簡単に保存し、他のユーザーと共有することができます。保存時にはファイル名の重複に注意し、他のシートやデータとの依存関係を確認してから実行することが重要です。