excel 将多个sheet表拆分成独立的excel文件
2018-11-27 本文已影响0人
Marydon
您的一个点赞，一句留言，一次打赏，就是小编创作的动力源泉！
转载须注明原作者及出处！》》》打赏直通车
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的文件名。
相关推荐
赞赏码，收钱码，红包码
