欢迎大家来到IT世界,在知识的湖畔探索吧!
将工作簿里的工作表另存为一个单独的工作簿，一般操作都是将工作表移至新工作簿，然后进行保存。
欢迎大家来到IT世界,在知识的湖畔探索吧!
但是当工作表有很多的时候，一个一个手动操作就比较麻烦，这时就可以考虑使用VBA来批量将工作表另外保存为一个单独的工作簿。
如图，现在一个工作簿里有五个工作表，要将这些工作表全都另存为单独的工作簿。
VBA代码如下：
Sub 分拆工作表() Application.ScreenUpdating = False For Each sht In Worksheets sht.Copy ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop" & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close Next End Sub欢迎大家来到IT世界,在知识的湖畔探索吧!
运行以后，在指定路径里面就有对应名称的工作簿了。
- 需要注意的是，其中的C:\Users\Administrator\Desktop是存储工作表的位置，可以自行修改。
- 想知道如何运行VBA代码可以关注我学习，或者咨询我。
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://itzsg.com/142717.html
