咔片PPT · AI自动生成演示文稿，模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

利用vb的强大功能实现excel文件的拆分、合并。使用的使用只要通过该excel宏文件，只要打开需要合并、拆分的excel文件，就可自行完成合并、拆分工作。不需要为每个excel文件写语句，工作中简便、实用。

一．如当我们需要将excel中的表全部另存为一个个的excel文件时，点击 “将excel中的表另存为文件”命令，如图：

将打开 文件对话框，我们选好需要拆分的文件，点击确定。

出现提示对话框，点击“确定”后继续。

拆分完后，出现完成对话框。

拆分好的文件就放置在 需要拆分的文件夹下的“工作表拆分结果”文件夹里。

二．相关vb语句如下

Sub fcb()

'分拆表 已存在的表

'打开文件

Dim nm, sht As Worksheet

Application.ScreenUpdating = False

Application.DisplayAlerts = False

nm = Application.GetOpenFilename("Excel 文件 ,*.xls*;*.xlsx")

If nm = False Then MsgBox "未选择文件!": Exit Sub

Workbooks.Open (nm)


Rem 建立一个文件夹,用于存放拆分结果

On Error Resume Next

MkDir ActiveWorkbook.Path & "工作表拆分结果"

mypath = ActiveWorkbook.Path & "工作表拆分结果"


Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

MsgBox "开始进项拆分!", 64, "友情提示"

For Each sht In MyBook.Sheets

sht.Copy

'将工作簿另存为EXCEL默认格式xls，这里我们要保存为xlsx格式，因此使用后面的语句

'ActiveWorkbook.SaveAs Filename:=MyBook.Path & "工作表拆分结果" & sht.Name, FileFormat:=xlNormal

'将工作簿另存为xlsx FileFormat:=51

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "工作表拆分结果" & sht.Name, FileFormat:=51

ActiveWorkbook.Close

Next

MsgBox "拆分完毕!请查看 工作表拆分结果 文件夹!", 64, "友情提示"

Application.ScreenUpdating = True '恢复屏幕刷新

Application.DisplayAlerts = True '恢复显示系统警告和消息


ThisWorkbook.Saved = True

'Application.Quit 如需要直接退出excel时使用

End Sub

三．利用开发工具涉及相关按钮，将按钮和对应的vb程序关联就可以了。