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

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

Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs "F:\temp\" & ActiveSheet.Name & ".xlsx"
ThisWorkbook.Activate
Next i
End Sub

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

    原文作者:pingzi1990
    原文地址: https://blog.csdn.net/pingzi1990/article/details/57416094
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞