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

2024年1月21日 81次阅读 来源: pingzi1990

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

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
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞