Kopieren Sie 4 Arbeitsblätter aus Arbeitsmappe A, die 5 Arbeitsblätter enthält

Question

Ich muss 4 Arbeitsblätter aus Arbeitsmappe A kopieren, die 5 Arbeitsblätter enthält, und erstellen Sie eine neue Arbeitsmappe B und fügen Sie die kopierten Arbeitsblätter in der neuen Arbeitsmappe.

Ich habe es für ein Blatt getan. wie kann ich verbessern diesen Code:

Sub test() 

    ThisWorkbook.Sheets.Copy 

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

Answer 1

eine Lösung ist, die neue Arbeitsmappe (B) erstellen und dann durch die Arbeitsblätter der Arbeitsmappe navigieren (A) Kopieren nur die Arbeitsblätter Sie wollen.

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