在日常办公中，我们常常会遇到需要将多个Excel文件中的工作表合并到一个文件中的需求。这种操作虽然可以通过手动复制粘贴完成，但效率较低且容易出错。借助VBA（Visual Basic for Applications）宏代码，可以快速高效地实现这一目标。以下是一篇关于如何编写和应用宏代码来合并多文档工作表的详细说明。
一、准备工作
首先确保您的计算机已安装Microsoft Office，并且支持VBA功能。如果尚未启用，请按照以下步骤激活：
1. 打开任意Excel文件。
2. 点击菜单栏上的“文件” > “选项”。
3. 在弹出的窗口中选择“自定义功能区”，然后勾选右侧的“开发工具”。
4. 确认后返回主界面，您将在顶部工具栏看到新增的“开发工具”选项卡。
接下来，新建一个空白工作簿作为最终的合并目标。
二、编写宏代码
以下是用于合并多个Excel文件工作表的VBA代码示例：
```vba
Sub MergeWorkSheets()
Dim FilePath As String
Dim FileName As String
Dim wbTarget As Workbook
Dim wsSource As Worksheet
Dim FileFilter As String
' 设置目标工作簿
Set wbTarget = ThisWorkbook
' 定义文件筛选器
FileFilter = "Excel Files (.xls),.xls"
' 打开文件对话框以选择源文件
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add FileFilter
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
For i = 1 To .SelectedItems.Count
FileName = .SelectedItems(i)
' 打开源文件并复制工作表
Workbooks.Open FileName
For Each wsSource In ActiveWorkbook.Sheets
wsSource.Copy After:=wbTarget.Sheets(wbTarget.Sheets.Count)
Next wsSource
' 关闭源文件
ActiveWorkbook.Close SaveChanges:=False
Next i
End With
MsgBox "所有工作表已成功合并！"
End Sub
```
这段代码的功能是通过文件对话框让用户选择多个Excel文件，然后将这些文件中的所有工作表逐一复制到当前打开的目标工作簿中。
三、运行宏代码
1. 将上述代码复制到Excel的VBA编辑器中：
- 点击“开发工具” > “Visual Basic”。
- 在左侧项目资源管理器中右键单击“Microsoft Excel Objects”，选择“插入” > “模块”。
- 将代码粘贴至新创建的模块内。
2. 返回Excel界面，按下Alt + F8组合键，从弹出的宏列表中选择`MergeWorkSheets`，点击“运行”。
3. 根据提示选择需要合并的Excel文件即可完成操作。
四、注意事项
- 请确保待合并的工作簿与目标工作簿的数据结构一致，避免因格式差异导致的问题。
- 如果某些工作表包含大量数据或复杂公式，可能会影响执行速度，建议分批次处理。
- 合并完成后记得保存最终结果，以防意外丢失数据。
通过以上方法，您可以轻松实现多个Excel文件工作表的合并操作。这种方法不仅提高了工作效率，还减少了人为错误的发生几率。希望这篇指南能帮助您更好地管理和利用Excel资源！
