鲁达 利用vb的强大功能实现excel文件的拆分、合并。使用的使用只要通过该excel宏文件，只要打开需要合并、拆分的excel文件，就可自行完成合并、拆分工作。不需要为每个excel文件写语句，工作中简便、实用。
一．如当我们需要将excel中的表全部另存为一个个的excel文件时，点击 “将excel中的表另存为文件”命令，如图：
将打开 文件对话框，我们选好需要拆分的文件，点击确定。
出现提示对话框，点击“确定”后继续。
拆分完后，出现完成对话框。
拆分好的文件就放置在 需要拆分的文件夹下的“工作表拆分结果”文件夹里。
二．相关vb语句如下
Sub fcb()
'分拆表 已存在的表
'打开文件
Dim nm, sht As Worksheet
A = False
A = False
nm = A("Excel 文件 ,*.xls*;*.xlsx")
If nm = False Then MsgBox "未选择文件!": Exit Sub
Workbooks.Open (nm)
Rem 建立一个文件夹,用于存放拆分结果
On Error Resume Next
MkDir Ac & "\工作表拆分结果"
mypath = Ac & "\工作表拆分结果"
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
MsgBox "开始进项拆分!", 64, "友情提示"
For Each sht In MyBook.Sheets
'将工作簿另存为EXCEL默认格式xls，这里我们要保存为xlsx格式，因此使用后面的语句
'Ac Filename:=MyBook.Path & "\工作表拆分结果\" & , FileFormat:=xlNormal
'将工作簿另存为xlsx FileFormat:=51
Ac Filename:=MyBook.Path & "\工作表拆分结果\" & , FileFormat:=51
Ac
Next
MsgBox "拆分完毕!请查看 工作表拆分结果 文件夹!", 64, "友情提示"
A = True '恢复屏幕刷新
A = True '恢复显示系统警告和消息
T = True
'A 如需要直接退出excel时使用
End Sub
三．利用开发工具涉及相关按钮，将按钮和对应的vb程序关联就可以了。