Excel VBA シートコピー 別ブックは既存ワークシートを他Excelブックにコピー

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

・各部門から集まったデータをそれぞれのExcelファイルから取りまとめる際に、個々のシートを一つのファイルにコピーして統合する。

・標準テンプレートのシートをコピーし、他のファイルに組み込む

・特定のデータを他のブックにコピーして、元データを保護しながら分析を行う。

Option Explicit

Sub CopySheetToAnotherWorkbook()
    Dim wsSource As Worksheet
    Dim wbTarget As Workbook
    Dim targetFilePath As String
    
    ' コピー元のシートを指定
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    
    ' コピー先のブックを開く（既存のブックにコピーする場合）
    targetFilePath = "C:\Users\User\Desktop\DataCsv\NewWorkbook.xlsx"
    Set wbTarget = Workbooks.Open(targetFilePath)
    
    ' シートを別ブックにコピー
    wsSource.Copy After:=wbTarget.Sheets(wbTarget.Sheets.Count)
    
    ' コピー先ブックを保存して閉じる
    wbTarget.Save
    wbTarget.Close
    
    ' 完了メッセージ
    MsgBox "シートが別のブックにコピーされました！"
End Sub

Excel VBAで「シートコピー 別ブック」は、特定のシートを別のブックに転送するための便利な操作です。特に、複数のブックにまたがるデータの統合や、必要なシートの分離保存に役立ちます。シート名の重複やリンクの整合性に注意しながら使用することで、効率的にデータのコピーを行えます。