【資料圖】
1、Alt+F11 視圖--代碼窗口。
2、把如下復制進去按F5運行即可最好把這個Excel 放到一個文件夾內操作, 因為默認生成到當前文件夾Subfencun()Application.ScreenUpdating=FalseForeachshtinthisworkbook.sheetssht.copyWithActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&""&***.name&".xlsx".CloseTrueEndWithNextApplication.ScreenUpdating=trueEndSub。
本文到此分享完畢，希望對大家有所幫助。
營業執照公示信息