Excel VBA：将多张工作表复制到新工作簿中

excel

将多张工作表复制到新工作簿是在excel VBA编程中经常遇到的一个需求。通过编写VBA代码，我们可以快速实现将多个工作表复制到一个新的工作簿中的操作，方便进行数据整理和分析。下面将介绍如何使用VBA实现这一功能，并给出一个案例代码。

在excel中，一个工作簿可以包含多个工作表，每个工作表都是一个独立的数据表。有时候我们需要将多个工作表中的数据整合到一个新的工作簿中，以便更方便地进行数据处理和分析。这时候，使用VBA可以实现自动化操作，提高工作效率。

首先，我们需要打开一个新的工作簿，以便将复制的工作表粘贴到其中。可以使用Workbooks.Add方法来创建一个新的工作簿对象，然后使用Activate方法激活该工作簿，使其成为当前活动的工作簿。

接下来，我们需要遍历要复制的工作表集合，并逐个将它们复制到新的工作簿中。可以使用Worksheets集合对象的Copy方法来实现工作表的复制操作。在复制工作表之前，可以使用Select方法选中要复制的工作表，然后再使用Copy方法将其复制到新的工作簿中。

复制完所有的工作表后，我们可以选择保存新的工作簿，并关闭原始工作簿。可以使用SaveAs方法来保存新的工作簿，使用Close方法来关闭原始工作簿。

下面是一个示例代码，演示了如何将多张工作表复制到一个新的工作簿中：

Sub CopyWorksheetsToNewWorkbook()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim ws As Worksheet
    
    ' 激活当前工作簿
    Set wbSource = ThisWorkbook
    wbSource.Activate
    
    ' 创建一个新的工作簿
    Set wbTarget = Workbooks.Add
    
    ' 遍历要复制的工作表集合
    For Each ws In wbSource.Worksheets
        ' 选中要复制的工作表
        ws.Select
        ' 将工作表复制到新的工作簿中
        wbSource.ActiveSheet.Copy After:=wbTarget.Sheets(wbTarget.Sheets.Count)
    Next ws
    
    ' 保存新的工作簿
    wbTarget.SaveAs "C:\目标文件路径\目标文件名.xlsx"
    ' 关闭原始工作簿
    wbSource.Close
    
    ' 释放对象变量
    Set ws = Nothing
    Set wbTarget = Nothing
    Set wbSource = Nothing
End Sub

上述代码中，我们首先激活原始工作簿，然后创建一个新的工作簿。接着，通过遍历原始工作簿中的工作表集合，将每个工作表复制到新的工作簿中。最后，保存新的工作簿并关闭原始工作簿。

这是一个简单的示例，演示了如何使用VBA将多张工作表复制到一个新的工作簿中。根据实际需求，你可以根据这个示例代码进行修改和扩展，以满足自己的需求。