将一个工作簿中多个工作表拆分成独立的文件方法

2023-5-5 23:13| 发布者: 开心| 查看: 11| 评论: 0

阅读字号:

摘要: 　　分享给大家一个VBA的代码，对于VBA的事，我表示还在学，而且也不怎么懂，VBA对于很多新手来说还是很不错的，因为拿来就可以用。　　作用是将一个工作簿中多个工作表 ...

　　分享给大家一个VBA的代码，对于VBA的事，我表示还在学，而且也不怎么懂，VBA对于很多新手来说还是很不错的，因为拿来就可以用。
　　作用是将一个工作簿中多个工作表拆分成独立的文件。
原图如下

　　然后Alt+F11，F7调出窗口，输入下面代码，F5运行就好。
　　Private Sub 分拆工作表
　　Dim sht As Worksheet
　　Dim MyBook As Workbook
　　Set MyBook = ActiveWorkbook
　　For Each sht In MyBook.Sheets
　　sht.Copy
　　ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
　　ActiveWorkbook.Close
　　Next
　　MsgBox "文件已经被分拆完毕!"
　　End Sub
　　然后就会看到屏幕闪烁（可能叫刷新，，，反正就是在保存的意思吧）然后等到“文件已经被拆分完毕”的弹窗出现，事情就OK了。
效果图：

路过

雷人

握手

鲜花

鸡蛋

收藏分享邀请

		自动登录	找回密码
密码			请使用中文注册

将一个工作簿中多个工作表拆分成独立的文件方法

最新评论

相关分类