迅维网

多个表格文件合并一个工作簿的操作方法

ptmanager 2017-10-11 08:52


  前两天有篇VBA的文章,,然后在其他平台有朋友问道它的反向操作有没有VBA的代码,表示我也找到了,分享给大家。

  适用情形比如下面一堆的各部门文件过来需要进行汇总(说到底就是做成一个文件,,,),然后就可以用到了。

  首先是一堆的文件。


多个表格文件合并一个工作簿

  然后新建一个Excel文件(随意位置),进去之后Alt+F11,F7,复制粘贴下面的代码。

Sub 合并工作薄
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets.MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End sub


多个表格文件合并一个工作簿

  F5运行,然后会出现弹窗让选择合并的文件。


多个表格文件合并一个工作簿

  选择之后点击,打开,等待几秒就好了。


多个表格文件合并一个工作簿

  最开始的有个sheet1,手动删除就好。


雷人

握手

鲜花

鸡蛋

路过
收藏
来自: 今日头条
发表评论

最新评论

引用 花开的那一瞬间 2017-10-11 08:52
还不如在表中用移动复制功能
引用 维修江湖第一 2017-10-11 08:52
有一处语法错误
引用 大笑维修 2017-10-11 08:52
我还不如复制粘贴
引用 静候缘来 2017-10-11 08:52
有没有从工作簿2表5的b2:g5:单元格数据自动复制到工作簿8的单元格的VBA代码?!手动复制粘贴有时复制错。
引用 大笑维修 2017-10-11 08:52
在语句最后加一句,删除呗
引用 花开的那一瞬间 2017-10-11 08:52
眼花了,不如复制粘贴!

发表评论

登录 后可参与评论
返回顶部
附近
店铺
微信扫码查看附近店铺
维修
报价
扫码查看手机版报价
信号元
件查询
点位图 AI维修
助手



芯片搜索