excel文件的多个sheet拆分成多个excel文件
Sub SplitWorkBook() '拆分工作簿Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets ws.Copy Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "\" & "用你...
原创
2016-10-12 17:32:09 ·
3327 阅读 ·
1 评论