将一个工作簿中多个工作表拆分成独立的文件方法 (将一个工作表的格式全部应用到其他工作表中)

分享给大家一个VBA的代码，对于VBA的事，我表示还在学，而且也不怎么懂，VBA对于很多新手来说还是很不错的，因为拿来就可以用。　　作用是将一个工作簿中多个工作表拆分成*的文件。原图如下

整理分享将一个工作簿中多个工作表拆分成独立的文件方法 (将一个工作表的格式全部应用到其他工作表中)，希望有所帮助，仅作参考，欢迎阅读内容。

内容相关其他词:将工作表sheet1的a1:d1合并为一个单元格,内容水平居中,将一个工作簿中多个表格合并,excel将工作簿的每一张工作表,将一个工作簿中工作表移至另一工作簿中,将一个工作簿中的表格放到另一个工作簿旁边,将一个工作簿中的表格放到另一个工作簿旁边,将一个工作簿中多个表格合并,将一个工作簿中工作表移至另一工作簿中,内容如对您有帮助，希望把内容链接给更多的朋友！

　　然后Alt+F，F7调出窗口，输入下面代码，F5运行就好。　　PrivateSub分拆工作表　　DimshtAsWorksheet　　DimMyBookAsWorkbook　　SetMyBook=ActiveWorkbook　　ForEachshtInMyBook.Sheets　　sht.Copy　　ActiveWorkbook.SaveAsFilename:=MyBook.Path&"\"&sht.Name,FileFormat:=xlNormal'将工作簿另存为EXCEL默认格式　　ActiveWorkbook.Close　　Next　　MsgBox"文件已经被分拆完毕!"　　EndSub　　然后就会看到屏幕闪烁（可能叫刷新，，，反正就是在保存的意思吧）然后等到“文件已经被拆分完毕”的弹窗出现，事情就OK了。效果图：