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

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

2、2.按alt+F11

3、3.插入一个模块

4、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、5.运行代码, 点击上面的小三角

6、6.查看结果