1,打开excel表,ALT+F11-->打开VBA编辑器-->插入-->模块
2,将下列代码拷贝至弹出的窗口
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
3,按F5运行;
程序运行(鼠标一直处于转圈状态)。
说明:
根据数据多少,运行一段时间,并不是死机,一般会有几分钟时间。