excel把工作表快速保存为单个文件

简单粗暴的解决 excel把工作表快速保存为单个文件 的问题

首先创建文件夹F，把要保存单个文件test.xsl的excel文件拖到里面

目前这个文件夹里面有5个工作表，随便点击一个工作表，右键——查看源码

输入代码，然后点击上边【运行】

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub fencun() Application.ScreenUpdating = False b = Sheets.Count For i = 1 To b Sheets(i).Copy a = ThisWorkbook.Worksheets(i).Name With ActiveWorkbook .SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx" .Close End With Next i Application.ScreenUpdating = true End Sub

大功告成