我要文库申报
查看: 28081|回复: 59
如何将多个工作簿中的工作表合并到新的工作簿中？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: omnw
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 omnw 于
13:25 编辑
Q：如何将多个工作簿中的工作表合并到新的工作簿中？
A：用如下代码可以实现将指定路径下多个工作簿中的第一个工作表合并成一个新的工作簿。Private Sub 合并工作薄()
& & Dim f_name As String
& & Dim bok1 As Workbook, bok2 As Workbook
& & Set bok2 = Nothing
& & f_name = Dir(ThisWorkbook.Path & &\*.*&) '获得该目录下的所有EXCEL文件
& & Do While f_name && && '开始执行循环
& && &&&If f_name && ThisWorkbook.Name Then '如果当前的文件不是代码所在文件，执行合并操作
& && && && &Set bok1 = Workbooks.Open(f_name) '打开被合并的文件
& && && && &If bok2 Is Nothing Then '合并后的文件是否存在
& && && && && & bok1.Sheets(1).Copy '如果合并后的文件不存在，则创建一个
& && && && && & Set bok2 = ActiveWorkbook
& && && && &Else
& && && && && & bok1.Sheets(1).Copy Before:=bok2.Sheets(1) '如果合并后的文件存，在则将被合并文件的第一个工作表复制到合并文件中。
& && && && &End If
& && && && &bok1.Close '关闭被合并文件
& && &&&End If
& && &&&f_name = Dir() '获取下一个被合并文件名
& & Loop
End Sub
复制代码
13:25 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
25.1 KB, 下载次数: 928, 下载积分: 消费券 -5 Ti币
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 21, 距离下一级还需 29 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢楼主，下载学习
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 141, 距离下一级还需 109 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢楼主，一个非常实用的技术。
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 132, 距离下一级还需 118 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
请问版主，是不是在工作簿中第一个工作表中的工作表名必须跟工作簿名称一样才能合并呢？
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
请问版主，是不是在工作簿中第一个工作表中的工作表名必须跟工作簿名称一样才能合并呢？
xiatide334 发表于
一楼代码中第一个工作表使用sheets(1)表达的
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 132, 距离下一级还需 118 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
但是根据版主的代码，修改文件路径后，总是得不到合并的工作簿，这是为什么呢？麻烦版主给看下，多谢。
23:01 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
101.33 KB, 下载次数: 52, 下载积分: 消费券 -5 Ti币
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
匆忙改了一下
在当前目录中新建一个文件（文件名无所谓）→“插入”→“模块”，在代码窗口中输入如下代码Private Sub 合并工作薄()
& & Dim f_name As String
& & Dim bok1 As Workbook, bok2 As Workbook
& & Set bok2 = ThisWorkbook
& & f_name = Dir(ThisWorkbook.Path & &\*.*&)
& & Do While f_name && &&
& && &&&Debug.Print f_name
& && &&&Set bok1 = Workbooks.Open(ThisWorkbook.Path & &\& & f_name)
& && &&&If bok2 Is Nothing Then
& && && && &bok1.Sheets(1).Copy
& && && && &Set bok2 = ActiveWorkbook
& && &&&Else
& && && && &bok1.Sheets(1).Copy Before:=bok2.Sheets(1)
& && &&&End If
& && &&&bok1.Close
& && &&&f_name = Dir()
& & Loop
End Sub
复制代码运行可得到sheet1的合并工作簿
xiatide334 试下 ？
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 141, 距离下一级还需 109 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
楼主，用你提供的代码合并工作簿出现错误。现将文本上传，请指导。谢谢。
(12.45 KB, 下载次数: 52)
09:22 上传
点击文件名下载附件
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
楼主，用你提供的代码合并工作簿出现错误。现将文本上传，请指导。谢谢。
yncxxmj 发表于
出现什么样的错误?请附图或给出详细说明。
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
代码已经完善请测试。
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 13685|回复: 12
注册时间金币177 积分956威望2543
LV.6, 积分 956, 距离下一级还需 244 积分
签到天数: 175 天[LV.7]常住居民III金币177 威望2543 帖子精华0
如何将多个工作薄合并成一个工作薄
注册时间金币387 积分12962威望20136
该用户从未签到金币387 威望20136 帖子精华1
如果是移动工作表，那么可以对工作表名称-右键-移动或复制工作表。
如果移动里面的内容，用粘贴复制是最快的方式了~
本帖子中包含更多资源
才可以下载或查看，
注册时间金币177 积分956威望2543
LV.6, 积分 956, 距离下一级还需 244 积分
签到天数: 175 天[LV.7]常住居民III金币177 威望2543 帖子精华0
WPS_李佳伟 发表于
如果是移动工作表，那么可以对工作表名称-右键-移动或复制工作表。
如果移动里面的内容，用粘贴复制是最快 ...
非常感谢您的解答！
若是将工作薄中的多个工作表，合并成一个工作表，有没有快捷方式呢，wps表格有没有这样的功能？
注册时间金币387 积分12962威望20136
该用户从未签到金币387 威望20136 帖子精华1
鹤儿高飞 发表于
非常感谢您的解答！
若是将工作薄中的多个工作表，合并成一个工作表，有没有快捷方式呢，wps表格有没有这 ...
WPS暂时还没有类似功能的
注册时间金币219 积分1785威望4137
LV.8, 积分 1785, 距离下一级还需 515 积分
签到天数: 212 天[LV.7]常住居民III金币219 威望4137 帖子精华0
鹤儿高飞 发表于
非常感谢您的解答！
若是将工作薄中的多个工作表，合并成一个工作表，有没有快捷方式呢，wps表格有没有这 ...
合并工作表要根据你的各表的数据格式来确定，有的是按列拼接，有的是按行拼接，有的根本没办法拼接后还能保持原来各表的行列设置，因此不能一概而论，或许这就是软件没办法考虑一个通用的合并方式的原因。
还是根据你的实际情况，直接复制粘贴好了，毕竟这种操作不会经常用到的。
注册时间金币177 积分956威望2543
LV.6, 积分 956, 距离下一级还需 244 积分
签到天数: 175 天[LV.7]常住居民III金币177 威望2543 帖子精华0
WPS_李佳伟 发表于
WPS暂时还没有类似功能的
非常感谢您的解答。
我在网上下载了工具箱，将此问题解决。
注册时间金币177 积分956威望2543
LV.6, 积分 956, 距离下一级还需 244 积分
签到天数: 175 天[LV.7]常住居民III金币177 威望2543 帖子精华0
Jerry Tsang 发表于
合并工作表要根据你的各表的数据格式来确定，有的是按列拼接，有的是按行拼接，有的根本没办法拼接后还能 ...
非常感谢您的解答。
我在网上下载了工具箱，将此问题解决
注册时间金币387 积分12962威望20136
该用户从未签到金币387 威望20136 帖子精华1
鹤儿高飞 发表于
非常感谢您的解答。
我在网上下载了工具箱，将此问题解决
是什么插件？求分享
注册时间金币177 积分956威望2543
LV.6, 积分 956, 距离下一级还需 244 积分
签到天数: 175 天[LV.7]常住居民III金币177 威望2543 帖子精华0
WPS_李佳伟 发表于
10:45 [url=forum.php?mod=redirect&goto=findpost&pid=&ptid=][/url]
是什么插件？求分享EXCEL必备工具箱
这款软件是收费软件，只有几个功能开放
这款软件有个“表格合并”功能，能将工作薄中的格式相同、内容不同的多个工作表合并起来。
注册时间金币3 积分1威望1
LV.1, 积分 1, 距离下一级还需 49 积分
该用户从未签到金币3 威望1 帖子精华0
谢谢我是小白啊我很需要啊工作中应用最多的工具
Powered by批量将多个excel中的多个工作簿合并到一个excel中_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
批量将多个excel中的多个工作簿合并到一个excel中
上传于||文档简介
&&批量将多个excel中的多个工作簿合并到一个excel中
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢如何快速把多个excel表合并成一个excel表
我的图书馆
如何快速把多个excel表合并成一个excel表
&&&Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName && ""If MyName && AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub
发表评论：
TA的推荐TA的最新馆藏