合并当前目录下所有工作簿的全部工作表_使用VBA代码合并表格(一)

最新推荐文章于 2024-07-09 15:30:16 发布

weixin_39835321

最新推荐文章于 2024-07-09 15:30:16 发布

阅读量2.9k

点赞数

文章标签：合并当前目录下所有工作簿的全部工作表

本文链接：https://blog.csdn.net/weixin_39835321/article/details/111342425

版权

这篇博客介绍了如何使用VBA代码合并当前文件夹内的所有工作簿的全部工作表。作者提供了完整的VBA代码示例，并通过一个班级比赛报名信息收集的例子解释了代码的使用方法。代码适用于各表格列数据一致但不含列名的情况，运行后需要进行简单的后续处理。

摘要由CSDN通过智能技术生成

作者：音子，微信公众号：自在不思量，转载请注明出处。

我最开始接触VBA是17年，从录制宏开始研究了一下如何用一个按钮代替多个连续的操作步骤。最后，代码写的虽然不怎么完美，但也成功应用了几个月，让我节省了不少时间。
但这篇不是讲怎么写VBA代码。
实际上，VBA早已经从我的学习名单中剔除了。可这并不妨碍我使用它~
所以，这篇先来说说如何使用VBA代码来合并表格。
先看一下完整代码吧。需要注意的是，下方这段代码的用途是合并当前文件夹内所有工作簿的全部工作表：

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0

Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(