批量合并EXCEL文件的VBA代码实现

"合并Excel文件的方法" 在处理大量Excel数据时，有时我们需要将多个Excel文件合并到一起，以便于统一管理和分析。以下是一种通过VBA（Visual Basic for Applications）脚本来实现这一目标的方法。 首先，我们需要了解VBA的基本概念。VBA是Excel内置的一种编程语言，允许用户自定义工作簿的操作和功能。在这个例子中，我们编写一个VBA宏来自动化合并多个Excel文件的过程。 以下是VBA宏的主要步骤和涉及的知识点： 1. **定义变量**：在VBA中，我们首先声明并初始化所需变量。例如，`MyPath` 存储当前工作簿的路径，`MyName` 用于保存当前文件名，`AWbName` 是活动工作簿的名字，`Wb` 表示打开的工作簿对象，`Num` 计数已合并的工作簿数量，`BOXAsString` 用于存储合并的文件名。 2. **禁用屏幕更新**：`Application.ScreenUpdating=False` 会关闭屏幕更新，提高脚本执行速度，但用户无法看到合并过程。这一步在处理大量数据时非常有用，因为实时更新屏幕可能导致Excel运行变慢。 3. **遍历目录中的Excel文件**：`MyPath=ActiveWorkbook.Path` 获取当前工作簿所在的文件夹路径，`MyName=Dir(MyPath&"\"&"*.xls")` 使用`Dir`函数列出该路径下所有`.xls`扩展名的文件。`Do While MyName <> ""` 开始循环，每次循环处理一个文件，直到没有更多文件为止。 4. **判断文件是否已存在**：`If MyName <> AWbName Then` 判断当前文件是否与活动工作簿相同，如果不同，则进行合并操作。 5. **打开并处理工作簿**：`Set Wb = Workbooks.Open(MyPath & "\" & MyName)` 打开选定的文件。`With Workbooks(1).ActiveSheet` 对第一个工作簿的第一个工作表（通常是Sheet1）进行操作。 6. **添加文件名作为列头**：`.Cells(.Range("A65536").End(xlUp).Row, 1) = Left(MyName, Len(MyName) - 4)` 将文件名（去除`.xls`后缀）写入第一列的最后一行，作为数据来源的标识。 7. **复制并粘贴数据**：`For G = 1 To Sheets.Count` 遍历工作簿中的所有工作表，`Wb.Sheets(G).UsedRange.Copy` 复制工作表的数据，`.Cells(.Range("A65536").End(xlUp).Row, 1)` 在目标工作表的下一空行粘贴。 8. **记录合并的文件名**：`WbN = WbN & Chr(13) & Wb.Name` 将合并的文件名添加到字符串中，`Chr(13)` 表示回车符，用于换行。 9. **关闭工作簿**：`Wb.Close False` 关闭已处理的工作簿，不保存任何更改。 10. **恢复屏幕更新**：`Application.ScreenUpdating=True` 结束操作后，重新启用屏幕更新。 11. **显示消息框**：`MsgBox "共合并" & Num & "个文件：" & Chr(13) & WbN, vbInformation, "提示"` 显示一个消息框，告知用户合并了哪些文件。 通过这个VBA宏，我们可以快速地将一个目录下的多个Excel文件合并到一个工作簿中，大大提高了工作效率。在实际应用中，可以根据需要调整代码，如筛选特定的文件、改变合并方式或添加错误处理机制。