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

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

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

有时,我们需要将一个excel工作薄里的每张工作表,单独存为一份工作簿。如果只有一两张工作表倒也没什么,如果一个工作簿里面有几十张表,手工这样操作即烦又慢。

如果用VBA来处理这事,那就简单了。先看效果,

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



 Sub 分拆工作表()

       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & “\” & sht.Name, FileFormat:=xlNormal     ‘将工作簿另存为EXCEL默认格式

           ActiveWorkbook.Close

       Next

       MsgBox “文件已经被分拆完毕!”

   End Sub


代码其实不复杂。


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


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


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


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


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


公众号后台回复“拆分”即可。




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


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


欢迎交流!


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

个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel vba 实例(2) – 批量将工作表拆分为单独文件

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

*

code

表情
(1)个小伙伴在吐槽
  1. VBA 嗯
    匿名2020-11-07 10:44 回复