使用VBA复制若干个工作表，并另存到新的工作簿

Sub MoveSheets()
'在下面Array中列出所有需要复制的工作表的名称
Worksheets(Array("工作表1", "工作表11", "工作表22", "工作表32")).Copy
Set wbNew = ActiveWorkbook
With wbNew
    ActiveWorkbook.SaveAs Filename:="D:\folder_for_holding_saved_workbook" & "\name_of_saved_workbook.xlsx"
    .Close
End With
End Sub