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.查看结果
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:33
阅读量:44
阅读量:22
阅读量:36
阅读量:88