VBA快速拆分工作簿中的工作表为单独EXCEL文件

VBA快速拆分工作簿中的工作表为单独EXCEL文件

工作中，我们经常习惯性的把一整年的销售数据做在一张工作簿中，有一天因为工作需要，老板要求把每个月的销售数据单独提出来，如果一个一个重复的复制太繁琐，浪费时间，那么有没有办法通过代码来自动就可以把所有工作表单独拆分出来呢。答案时有的，应用EXCEL VBA。

1.打开需要处理的EXCEL文件

2.按alt+F11

3.插入一个模块

4.在模块中输入以下代码

Sub 拆分到工作簿()Dim wk As Workbook, ss, kApplication.DisplayAlerts = False '表示不显示警告For Each sht In Workbooks("VBA拆分工作簿").Sheets Set wk = Workbooks.Add '添加一个EXCEL文件 k = k + 1 Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1) '复制里面的内容 ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsx" wk.SaveAs ss '另存为EXCEL文件 wk.Close '关闭NextApplication.DisplayAlerts = True '表示不恢复警告MsgBox "拆分工作簿完成！"End Sub

5.运行代码, 点击上面的小三角

6.查看结果