首页  »   VBA

excel文件的多个sheet拆分成多个excel文件解决思路

网友分享于:2015-11-20  浏览:0次
excel文件的多个sheet拆分成多个excel文件
如:123.xls含有三个sheet分别为a、b、c;拆分成a.xls、 b.xls、 c.xls,拆分后的a.xls、 b.xls、 c.xls含有相同名称的sheet
Sub Macro1()
  Dim sht As Worksheet
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  For Each sht In Sheets
  sht.Copy
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
  ActiveWorkbook.Close
  Next
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub
这个可以拆分,但是sheet名称不同
------解决思路----------------------
完善下:
Sub SplitWorkBook() '拆分工作簿

Dim ws As Worksheet

 Application.ScreenUpdating = False
 For Each ws In ThisWorkbook.Worksheets
 ws.Copy
 Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "\" & "用你想要的文件名前缀替换此处" & ws.Name
 ActiveWorkbook.Close
 Next
 Application.ScreenUpdating = True
End Sub
使用方法:打开excel,在视图下应该有宏菜单,点击查看宏,随便输入一个宏名就可以创建宏,把这段代码复制粘贴进去,然后点击执行或者运行即可,拆分的文件和原文件在同一个文件夹中。

相关解决方案

最新解决方案