关于小米
27岁，山西运城人，职业电商经理人，前端开发工作者,从事过网站建设、网络推广、SEO、SEM、信息流推广、二类电商、网络运维、软件开发，等相关电商工作，经验较为丰富，小米技术社区致力于为广大从事Web前端开发的人员提供一些力所能及的引导和帮助 ...[更多]
E-mail:mzze@163.com
Q Q:32362389
W X:xiaomi168527
关于王飞
27岁，山西运城人，职业电商经理人，网络工程师兼运维，从事过运营商网络建设，企业网络建设、优化。数据中心网络维护等通过，经验丰富，座右铭：当自己休息的时候，别忘了别人还在奔跑。 ...[更多]
关于小艳
大于花一样的年龄，河南郑州是我家，2010年在北京接触团购网，2011年进入天猫淘宝一待就是四年，如今已经将设计走向国际化（ps:误打误撞开始进入阿里巴巴国际站的设计，嘿嘿）五年电商设计，丰富经验，从事过天猫淘宝阿里各项设计，店铺运营，产品拍摄；我将我的经历与您分享是我的快乐！座右铭：越努力越幸运！ ...[更多]
E-mail:97157726@qq.com
Q Q:97157726
简单粗暴的解决 excel把工作表快速保存为单个文件 的问题
首先创建文件夹F，把要保存单个文件test.xsl的excel文件拖到里面
目前这个文件夹里面有5个工作表，随便点击一个工作表，右键——查看源码
输入代码，然后点击上边【运行】
Sub fencun() Application.ScreenUpdating = False b = Sheets.Count For i = 1 To b Sheets(i).Copy a = ThisWorkbook.Worksheets(i).Name With ActiveWorkbook .SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx" .Close End With Next i Application.ScreenUpdating = true End Sub
大功告成
本站内容均为小米原创，转载请注明出处：小米技术社区>> excel把工作表快速保存为单个文件
