Excel教程:将工作表拆分为工作薄

来源:互联网 作者:土豆



这也是很多小伙伴工作中经常用到的,用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进行删除。

PPT模板

  • 现代古风通用PPT
  • 故宫国风演示文档PPT
  • 古风水墨简约模板PPT
  • 古风中国风环保主题PPT
  • 古风工作总结汇报模板PPT
  • 古风古典雅致通用模板PPT
  • 扁平插画手绘中小学生安全教育日PPT
  • 小学交通安全教育课件PPT
  • 小学交通安全教育课件PPT
  • 可爱卡通幼儿教学课件模板PPT

Excel模板

  • 单据粘贴单11
  • 出差申报单11
  • 出差申报单(2)1
  • 付款申请单11
  • 付款申请单(3)1
  • 入库单1
  • 领料单
  • 销售明细单1
  • 销售明细单(3)
  • 付款申请单(2)1

Word模板

  • 面试招聘
  • 社会招聘面试审批流程
  • 电话营销销售人员的招聘面试流程
  • 求职招聘登记表及面试记录表
  • 校园招聘面试结果评价表
  • 校园招聘求职者面试报告示范模板
  • 招聘面试评分记录表
  • 招聘面试评估表
  • 招聘面试评价表
  • 招聘面试记录表
优页文档

优页文档(www.youyedoc.com)是一家专注于分享高质量的PPT模板、Excel表格、Word模板的下载网站,1000+各行业优质设计师每日更新200+优质办公文档模板,满足各行业办公需求。海量office文档制作教程,致力于打造国内最大最权威的办公文档下载一站式服务平台

Copyright © 2021-2021 www.youyedoc.com. All Rights Reserved.   粤ICP备2021116258号

本站所有文档资源来源于互联网或作者上传,仅供学习研究使用,版权归作者所有,请勿用于商业用途,如果用于商业用途请联系作者,如果因为您将本站资源用于其他用途而引起的纠纷,本站不负任何责任。

如果本站内容无意中侵犯了您的版权,请联系youyedoc,我们会及时处理。