大中小
1.情景展示
如何将多个工作表拆分成独立的excel文件?
2.解决方案
实现方式:通过宏命令实现
打开excel表,ALT+F11-->打开VBA编辑器-->插入-->模块
将下列代码拷贝至弹出的窗口
Sub sheet转独立文件() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path &"\" For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs ipath & sht.Name ActiveWorkbook.Close Next Application.ScreenUpdating = True End Sub
按F5运行;
程序运行(鼠标一直处于转圈状态)。
说明:
根据数据多少,运行一段时间,并不是死机,一般会有几分钟时间。
3.效果展示
每一个sheet工作表的表名会被作为生成的独立excel的文件名。