【资料图】
1、Alt+F11 视图--代码窗口。
2、把如下复制进去按F5运行即可最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹Subfencun()Application.ScreenUpdating=FalseForeachshtinthisworkbook.sheetssht.copyWithActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&""&***.name&".xlsx".CloseTrueEndWithNextApplication.ScreenUpdating=trueEndSub。
本文到此分享完毕，希望对大家有所帮助。
防盗门锁芯怎么选？公建配套设施包括哪些？
精?。≈泄姿胰轮悄芨∈缴⑿队妥爸贸晒桓?/a>
营业执照公示信息