怎么将excel工作簿中的工作表拆分成单个工作簿

将一个工作簿拆中的工作表分成单个工作簿

http://www.iqiyi.com/w_19s30wfmrx.html

方法/步骤

1、在工作簿的工作表标签中右键选择查看代码。

2、在弹出的框中复制粘贴代码。　PrivateSub分拆工作表()　　Dimsh隋茚粟胫tAsWorksheet　　DimMyBookA霜杼厮贿sWorkbook　　SetMyBook=ActiveWorkbook　　ForEachshtInMyBook.Sheets　　sht.Copy　　ActiveWorkbook.SaveAsFilename:=MyBook.Path&"\"&sht.Name,FileFormat:=xlNormal'将工作簿另存为EXCEL默认格式　　ActiveWorkbook.Close　　Next　　MsgBox"文件已经被分拆完毕!"　　EndSub

3、粘贴之后点击运行或者按F5。

4、在文件夹中就能看到被拆分的工作簿。