excel中把每个sheet表拆分为每个单独的文件

 

excel中宏代码

主要功能，把excel中的每个sheet表拆分为每个单独的文件

 

代码区域：

Sub saveworkbook()

'将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称

Application.ScreenUpdating = False '关闭屏幕更新

Dim ff As String '定义字符变量

ff = ThisWorkbook.Path & "\单个文件"

'指定建立新的工作簿保存到的路径

If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff

'如果五座神山的文件架不存在，就新建文件夹；mkdir用来 新建文件夹

Dim st As Worksheet   '定义工作表变量

For Each st In Worksheets  '遍历所有的sheet工作表

   st.Copy     ' 拷贝sheet工作表到新的工作簿，即将工作表另存为新的文件。

   ActiveWorkbook.SaveAs ff & "\" & st.Name & ".xlsx"  '保存工作簿，并命名成工作表的名称

   ActiveWorkbook.Close         '关闭工作表

   Next '执行遍历循环体

Application.ScreenUpdating = True   '开启屏幕更新

End Sub
 

 

注释：

Application.ScreenUpdating = False

'用来关闭屏幕更新，即不用关注程序的执行，可以提高执行速度。

ff = ThisWorkbook.Path & "\五座神山"

If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff

'如果五座神山的文件架不存在，就新建文件夹；mkdir用来 新建文件夹，也可以自己命名文件名称。