5枚のワークシートを含むワークブックAから4枚のワークシートをコピー

Question

5枚のワークシートを含むワークブックAから4枚のワークシートをコピーし、新しいワークブックBを作成して新しいワークブックに貼り付ける必要があります。

私は1枚のシートにしました。私はこのコードを改善する方法：

Sub test() 

    ThisWorkbook.Sheets.Copy 

    'Saving the new workbook B 
    ActiveWorkbook.SaveAs "C:\Users\John\B.xls", FileFormat:=18 
End Sub 

Answer 1

一つの解決策は、あなたがしたいだけのワークシートをコピーワークブック（A）のワークシートをナビゲートし、新しいワークブック（B）を作成しています。

Sub test() 

    Dim wb As Workbook 
    Dim ws As Worksheet 

    Set wb = Workbooks.Add 
    For Each ws In ThisWorkbook.Worksheets 
     If Not ws.name = "<name of worksheet you don't wanto to copy>" Then 
      ws.Copy after:=wb.Worksheets(wb.Worksheets.Count) 
     End If 
    Next 

End Sub