1.使用场景

常言道:分久必合，合久必分；

如果你在一个Excel文件中管理了很多数据，打开速度越来越慢，文件越来越大，那你就是时候该考虑把一个文件拆分成多个了，这样不仅是为了提供工作效率，也是保证数据安全的一个重要举措。

将Excel工作表一键拆分成独立的工作簿文件-趣帮office教程网

2.工具预览

工具使用起来很简单，只需要选择被拆分的文件和拆分后的文件存放路径，点击一键拆分即可完成。效率跟手工一个个的复制粘贴比起来，当然是yyds了。

将Excel工作表一键拆分成独立的工作簿文件-趣帮office教程网

3.核心代码

VBA代码其实很简单，相信大部分同学结合注释应该能看懂。

Private Sub CommandButton3_Click()
If Me.TextBox1.Text = "" Then Exit Sub
If Me.TextBox2.Text = "" Then Exit Sub
Dim org_book As Workbook
'关闭显示系统警告和消息，避免重名工作簿无法保存。当有重名工作簿时，会直接覆盖保存。
Application.DisplayAlerts = False
'取消屏幕刷新
Application.ScreenUpdating = False
Workbooks.Open Me.TextBox1.Text, False
Set org_book = ActiveWorkbook
With org_book
For i = 1 To .Sheets.Count
'遍历工作表
.Sheets(i).Copy
'复制工作表，工作表单纯复制后，会成为活动工作薄
With ActiveWorkbook
.SaveAs Me.TextBox2.Text & "" & org_book.Sheets(i).Name, xlWorkbookDefault
'保存活动工作薄到指定路径下，以默认文件格式
.Close True '关闭工作薄并保存
End With
Next
End With
org_book.Close False
Application.ScreenUpdating = True '恢复屏幕刷新
Application.DisplayAlerts = True '恢复显示系统警告和消息
Set org_book = Nothing
MsgBox "已转换完成。", 64   vbSystemModal, "提醒"
End Sub