VBA【1】脚本批量复制工作表【2】到新工作簿【3】：代码与实践
在Excel中，经常需要将多个工作表从一个工作簿复制到另一个新的工作簿中。手动复制每个工作表既耗时又容易出错。VBA（Visual Basic for Applications）提供了强大的自动化功能，可以帮助我们轻松实现这一任务。本文将详细介绍如何使用VBA脚本批量复制工作表到新工作簿，并提供相应的代码示例【4】。
VBA是Microsoft Office软件中的一种编程语言，它允许用户通过编写脚本来自动化日常任务。在Excel中，VBA可以用来执行各种操作，包括但不限于数据填充、格式化、宏录制等。本文将聚焦于使用VBA批量复制工作表到新工作簿的功能。
准备工作
在开始编写VBA脚本之前，我们需要做一些准备工作：
1. 打开Excel，并确保你有一个包含多个工作表的工作簿。
2. 按下 `Alt + F11` 打开VBA编辑器【5】。
3. 在VBA编辑器中，插入一个新的模块【6】（Insert -> Module）。
VBA脚本编写
以下是一个简单的VBA脚本，用于将指定工作簿中的所有工作表复制到一个新的工作簿中。
vba
Sub CopySheetsToNewWorkbook()
Dim sourceWorkbook As Workbook
Dim targetWorkbook As Workbook
Dim sheet As Worksheet
Dim sheetName As String
' 设置源工作簿
Set sourceWorkbook = ThisWorkbook
' 创建一个新的工作簿
Set targetWorkbook = Workbooks.Add
' 遍历源工作簿中的所有工作表
For Each sheet In sourceWorkbook.Sheets
' 获取工作表名称
sheetName = sheet.Name
' 复制工作表到新工作簿
sheet.Copy After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
Next sheet
' 保存新工作簿
targetWorkbook.SaveAs Filename:="C:PathToNewWorkbook.xlsx"
' 清理对象
Set sheet = Nothing
Set targetWorkbook = Nothing
Set sourceWorkbook = Nothing
End Sub
代码解析
1. `Dim sourceWorkbook As Workbook`：声明一个变量【7】`sourceWorkbook`，用于存储源工作簿对象【8】。
2. `Dim targetWorkbook As Workbook`：声明一个变量`targetWorkbook`，用于存储新创建的工作簿对象。
3. `Dim sheet As Worksheet`：声明一个变量`sheet`，用于遍历源工作簿中的所有工作表。
4. `Dim sheetName As String`：声明一个变量`sheetName`，用于存储当前工作表的名称。
5. `Set sourceWorkbook = ThisWorkbook`：将当前工作簿赋值给`sourceWorkbook`变量。
6. `Set targetWorkbook = Workbooks.Add`：创建一个新的工作簿，并将其赋值给`targetWorkbook`变量。
7. `For Each sheet In sourceWorkbook.Sheets`：遍历源工作簿中的所有工作表。
8. `sheetName = sheet.Name`：获取当前工作表的名称。
9. `sheet.Copy After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)`：将当前工作表复制到新工作簿的末尾。
10. `targetWorkbook.SaveAs Filename:="C:PathToNewWorkbook.xlsx"`：保存新工作簿到指定路径【9】。
11. `Set sheet = Nothing`、`Set targetWorkbook = Nothing`、`Set sourceWorkbook = Nothing`：清理对象，释放内存。
运行VBA脚本
1. 在VBA编辑器中，将上述代码复制到新模块中。
2. 关闭VBA编辑器，回到Excel界面。
3. 按下 `Alt + F8`，选择`CopySheetsToNewWorkbook`宏，并点击“运行”。
总结
本文介绍了如何使用VBA脚本批量复制工作表到新工作簿。通过编写简单的VBA代码，我们可以轻松实现这一功能，从而提高工作效率。在实际应用中，可以根据需要修改代码，以满足不同的需求。希望本文能对您有所帮助。
Comments NOTHING