批量合并Excel文件到单个工作簿

"多个excel合并到一个excel内说明" 在Excel中，有时我们需要将多个工作簿（Excel文件）的数据整合到一个工作簿内，这通常是为了数据汇总或分析。以下是一种使用VBA（Visual Basic for Applications）宏来实现这一功能的方法。 VBA是一种编程语言，集成在Microsoft Office应用程序中，如Excel，用于自动化任务和创建自定义功能。在这个例子中，我们看到一段VBA代码，它将同一目录下所有XLS文件（Excel 97-2003格式）的数据合并到当前打开的工作簿中。 首先，让我们逐行理解这段代码的功能： 1. `Dim`语句用于声明变量，例如`MyPath`, `MyName`, `AWbName`, `Wb`等，它们将在后续的代码中存储路径、文件名、工作簿名称等信息。 2. `Application.ScreenUpdating=False`关闭屏幕更新，这样在执行过程中不会显示每一步操作，提高运行速度。 3. `MyPath = ActiveWorkbook.Path`获取当前活动工作簿的路径。 4. `MyName = Dir(MyPath & "\" & "*.xls")`使用`Dir`函数获取该路径下的第一个XLS文件名。 5. `AWbName = ActiveWorkbook.Name`存储当前活动工作簿的名字，以确保不将其包含在合并过程中。 6. `Num = 0`初始化一个计数器，用于记录合并的工作簿数量。 7. `Do While MyName <> ""`循环遍历所有XLS文件，直到没有文件为止。 8. `If MyName <> AWbName Then`检查文件是否是当前工作簿，如果不是，则进行合并。 9. `Set Wb = Workbooks.Open(MyPath & "\" & MyName)`打开文件并将其赋值给工作簿对象`Wb`。 10. `With Workbooks(1).ActiveSheet`指代目标工作簿的第一个工作表，准备接收源工作簿的数据。 11. `.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)`在目标工作表的B列中添加源工作簿的文件名。 12. `For G = 1 To Sheets.Count`遍历源工作簿的所有工作表。 13. `Wb.Sheets(G).UsedRange.Copy Cells(.Range("B65536").End(xlUp).Row + 1, 1)`复制源工作表的使用区域（有数据的区域），粘贴到目标工作表的下一行。 14. `WbN = WbN & Chr(13) & Wb.Name`构建一个字符串，列出所有合并的工作簿名称，每个名称后跟一个回车符。 15. `Wb.Close False`关闭源工作簿，不保存任何更改。 16. `MyName = Dir`继续查找下一个XLS文件，直到所有文件都处理完毕。 17. `Loop`结束文件遍历。 18. `Range("B1").Select`恢复选中第一个单元格，方便用户查看结果。 19. `Application.ScreenUpdating = True`重新开启屏幕更新，显示最终结果。 20. `MsgBox`弹出一个消息框，显示合并了的工作簿数量以及所有合并的工作簿名称。 这个宏通过VBA实现了自动化合并多个Excel文件的功能，节省了手动操作的时间，尤其适用于需要定期处理大量数据的情况。只需在Excel中运行此宏，即可轻松完成合并任务。