工作簿中工作表拆分

要求：将excel工作簿中的每一个工作表另存为一个以该工作表名命名的独立文件

Sub saveworkbook()

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

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

	Dim ff As String '定义字符变量

	ff = ThisWorkbook.Path & "\xxx文件"

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

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

	'如果xxx文件夹不存在，就新建文件夹；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

转载自百度经验