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

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

这段VBA代码实现了将源工作簿中除了名为"Sheet1"的工作表外的所有工作表复制到一个新的工作簿中。你可以根据自己的需求修改代码中的路径和文件名。

Excel VBA中的相关对象有Workbook（工作簿）、Worksheet（工作表），通过操作这些对象可以完成对Excel文件中各个工作表的处理。

这个功能在实际的办公场景中非常实用，比如当你需要将一个Excel文件中的多个工作表分离出来单独保存、共享给其他人员或用于不同的报表生成时，使用VBA代码可以快速自动化完成这个任务。

腾讯云提供的与Excel相关的产品是腾讯文档，它是一款基于云的协同办公工具，可以实时协作编辑、分享文档、表格和演示文稿。你可以在腾讯云官网上了解更多关于腾讯文档的信息和功能。

腾讯文档介绍链接：https://cloud.tencent.com/product/txcollaboration