微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel vba 实例(3) – 多个工作簿批量合并

Excel VBA 实例 永恒君 1068℃ 0评论

上一篇文章介绍了批量将工作簿拆分为单独的文件,那么有拆自然就要有合并。今天就来说说合并的事。

同样,先看效果


一键完成,有多少张表也都一起搞定。


动画中所使用的VBA代码如下:


Sub 工作薄间工作表合并()  

  

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:=”Microsoft Excel文件(*.xls),*.xls”, MultiSelect:=True, Title:=”合并工作薄”)

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

  

errhadler:

MsgBox Err.Description

End Sub


不少人对VBA代码有抵触心理,其实没有那么复杂,把他看成一个稍微复杂点的函数即可。


当然如果并不打算深入学习VBA,只是临时使用下,那只要会复制黏贴就好了!


至于怎么用VBA代码,可以参考之前的文章:


Excel vba 实例(1) – 批量制作工资表头

Excel vba 实例(2) – 批量将工作表拆分为单独文件


永恒君把上面实例的文件也分享出来,需要的直接使用也可以。


后台回复“合并”即可。




Excel VBA功能很强大,但是要熟练的运用起来还是有一定的难度,好在永恒君帮大家搜集了几套关于VBA的视频教程,非常的实用。


需要的话,后台回复“VBA”获取吧~~

欢迎交流!


微信公众号:永恒君的百宝箱

个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel vba 实例(3) – 多个工作簿批量合并

喜欢 (2)
发表我的评论
取消评论

*

code

表情