Excel VBA将指定的工作表集复制到新工作簿/从副本中排除工作表

Sub CopyWorksheetsToNewWorkbook()
    Dim wbSource As Workbook
    Dim wbNew As Workbook
    Dim ws As Worksheet
    Dim wsCopy As Worksheet
    
    ' 设置源工作簿
    Set wbSource = ThisWorkbook
    
    ' 创建新工作簿
    Set wbNew = Workbooks.Add
    
    ' 循环复制工作表
    For Each ws In wbSource.Worksheets
        ' 排除不需要复制的工作表，比如"Sheet1"
        If ws.Name <> "Sheet1" Then
            ws.Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
        End If
    Next ws
    
    ' 保存新工作簿
    wbNew.SaveAs "C:\目标路径\新工作簿名.xlsx"
    
    ' 关闭新工作簿
    wbNew.Close SaveChanges:=False
    
    ' 释放对象变量
    Set wbSource = Nothing
    Set wbNew = Nothing
End Sub