这也是很多小伙伴工作中经常用到的,用vba可以轻松实现,能大大提高你的工作效率哟,
使用wps的同学就当是看戏吧,因为你的wps可能并不支持vba,即使能用vba,下面的代码可能到你那就不能正常使用了。
先来看一下数据源图吧。
将数据源之外的 6张工作表拆分为工作簿(文件),工作表名字就是工作簿名字。
接下来请看代码图,
这代码不多吧,后面会再对代码做讲解的,不要着急,先把它们抄下来再说!
接下来就看动画片了。
看了动画片有没有觉得很高效呢??
如果就这6个表,确实不如手工操作来得方便,毕竟抄这些代码也需要一些时间。
如果是30张300张工作表呢?又或者经常都要拆呢?
所以还是要考虑使用场景滴。。。。
好啦,还是给有需求的人讲解一下思路流程吧!
首先是设置保存路径
ThisWorkbook.Path 表示写代码的这个工作簿所在路径(返回这个文件所在的文件夹路径)
如果你想换个地方放修改它就可以了,比如 要放到 E 盘的 土豆 文件夹里那就是
myPath = "E:\土豆\" 注意路径后面是有 \ 的哟
接下来是新建一个工作薄,用来接受复制出来的工作表
Set nBook =Workbooks.Add
然后就是循环复制工作表啦
复制一个,保存一个,重复的操作就交给傻傻的代码去干吧!!
SaveCopyAs 表示另外复制一个副本来保存
与 SaveAs(另存)的区别是,SaveAs 另存的会重新打开一下文件,我们只需要另存,不需要重新打开,所以 SaveCopyAs 更适合
文件保存好以后,再从nbook中把复制进去的工作表删除掉,这样就能保存下次再复制进去的时候不会有其它工作表在里面啦!!
最后的 nBook.CloseFalse '关闭新建的工作簿
是把新建的工作簿关闭掉,后面的 false 是不保存的意思,临时用的,不需要保存。
刚才为什么一闪一闪的??
那是因为它一直在复制粘贴啊,就会这样一闪一闪的,
在vba里可以使用Application.ScreenUpdating = False 来关闭屏幕刷新
这样就不会闪得那么刺眼了,至于加在哪里呢??同学们自己思考一下,做一下测试吧!
留点bug在里面,逼着让你动手去修改,看你学不学得会!!
怎么样,会VBA是不是很方便呢?赶紧动手练习吧!!
资讯来源说明:本文章来自网络收集,如侵犯了你的权益,请联系:puerppt#163.com进行删除。
优页文档(www.youyedoc.com)是一家专注于分享高质量的PPT模板、Excel表格、Word模板的下载网站,1000+各行业优质设计师每日更新200+优质办公文档模板,满足各行业办公需求。海量office文档制作教程,致力于打造国内最大最权威的办公文档下载一站式服务平台
Copyright © 2021-2024 www.youyedoc.com. All Rights Reserved. 粤ICP备2021116258号
本站所有文档资源来源于互联网或作者上传,仅供学习研究使用,版权归作者所有,请勿用于商业用途,如果用于商业用途请联系作者,如果因为您将本站资源用于其他用途而引起的纠纷,本站不负任何责任。
如果本站内容无意中侵犯了您的版权,请联系youyedoc,我们会及时处理。