将excel根据工作表名称拆分成多个文件将excel根据工作表名称拆分成多个文件,能批量处理吗
1、如下图工作薄中有多个工作表。
2、找到任意的一个工作簿,鼠标右键点击找到查看代码。
3、查看之后会显示空白,没有代码。
4、在打开的窗口中输入代码:Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActive。
5、然后点击上方运行,运行子窗口/用户窗体。
6、程序执行,显示文件已经被拆分完毕。
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2017-12-15
Sub 拆分多工作表()
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.Name & ".xls" '(工作表名称为文件名)
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.Name & ".xls" '(工作表名称为文件名)
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
参考
本回答被网友采纳第2个回答 2016-06-05
只能VBA处理追问
怎么处理