将excel的多个工作表拆分成独立的文件

来源:互联网 发布:mac怎么把字体导入ps 编辑:程序博客网 时间:2024/06/06 02:59

同时按AltF11进入宏界面,点菜单的插入,模块,粘贴如下代码:

Sub test()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).CopyActiveWorkbook.SaveAs "F:\temp\" & ActiveSheet.Name & ".xlsx"ThisWorkbook.ActivateNext iEnd Sub

注意SaveAs后面是文件拆分后的文件路径

0 0