(相关资料图)
1、Alt+F11 视图--代码窗口。
2、把如下复制进去按F5运行即可最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹Subfencun()Application.ScreenUpdating=FalseForeachshtinthisworkbook.sheetssht.copyWithActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&""&***.name&".xlsx".CloseTrueEndWithNextApplication.ScreenUpdating=trueEndSub。
本文到此分享完毕,希望对大家有所帮助。
标签: