分拆工作簿多工作表

adders

经常看到类似的工作簿合并或工作表分拆问题,其实答案很简单,比如:以下代码可分拆一个工作簿下的各工作表让其自成以其表名命名的独立工作簿:

1. 
   
2. Sub Split_WorkSheets()
   
3.     Application.ScreenUpdating = False
   
4.     Dim FilePath As String
   
5.     Dim DestWB As Workbook
   
6.     Dim FileName As String
   
7.    
   
8.     FilePath = ThisWorkbook.Path   
   
9.     For Each sht In ThisWorkbook.Sheets
   
10.         FileName = FilePath & "" & sht.Name   
    
11.         Set DestWB = Workbooks.Add
    
12.         sht.Cells.Copy DestWB.Sheets(1).Cells
    
13.         DestWB.Close True, FileName
    
14.         Set DestWB = Nothing
    
15.     Next  
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

skyline_zwl

这么好的帖子怎么没人顶呢？
楼主换头像了？{:912:}

Tristone

这个很实用！学习了{:051:}

nethycf

这帖子肯定非常的实用、顶起楼主了。

试了，很好用

thzss

非常好,收藏了

gfp12345678

这个很实用！学习了。。。。。。。。。。。。。。。。

AcerQINGDAO

好东西

dasly123

好东西  收藏了  谢谢