感谢好友刚刚的钢使用PPT所设计的图片
大家好！我是陈年的树叶。
这次跟大家分享一下我是如何把一个Excel文件中多个Sheet页自动拆分成对应的多个Excel文件。
一、背景
在一个业务咨询分析项目中，我负责对客户的多个专业数据进行综合分析，需要把多个专业的数据分别导入到数据库中进行分析。
但是，客户给我的数据却是由45个Sheet页构成的一个Excel文件，我首先要做的是要把这45个Sheet页拆分成对应的45个Excel文件，然后分别导入到数据库中进行后续的数据分析。
于是，就有了本次要分享的内容！
二、技能展示
对于一个资深的咨询顾问来说，数据整理工作是基本功，每个人都有自己的一套处理流程，以下就是我最不常用的方法之一，分享给大家。
或许你会问，那你最常用的方法是什么呢？
我常用的方法很简单，四个字-“分给别人！”
娱乐一下，言归正传，具体步骤如下：
第一步：基础工作准备，请看下图所示的步骤
感谢好友刚刚的钢使用PPT所设计的图片
第二步：在宏编辑器中粘贴下面的代码
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
第三步：执行这段代码。
第四步：耐心等待奇迹的发生，哈哈！
三、总结
相比多个Excel合并一个文件来说，这个拆分程序通常不会出什么问题，本人用了很多次没有发现重大的问题，请大家放心使用。
如果您在实际使用过程中遇到了问题，请直接留言，我会进行答疑。
Good luck！
姊妹篇请看：
多个EXCEL文件如何合并，看这里就行了！
