excel工作簿拆分实现VBA代码
发布时间：2023-03-05 03:50:25
标签：excel工作簿拆分
一个工作簿中包括N个工作表，将各个工作表拆分成工作簿。
工作表数量不定，表内内容不限，拆分后保存于当前文件夹内。
Sub Sample()
Dim MySheetsCount As Long
For MySheetsCount = 1 To Sheets.Count
Sheets(MySheetsCount).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & Sheets(1).Name & ".xlsx"
ActiveWindow.Close
Next
End Sub
0
投稿猜你喜欢
Win10录屏没声音怎么办？许多小伙伴们在屏幕录制的时候会遇到录屏没有声音的情况，面对这种情形时要如何解决，小编为大家带来了最新的解决办法，- 用Excel我们可以让课程表中不同的学科自动采用不同的填充颜色显示，并自动统计各学科的总课时数。这样，看起来一目了然。用Excel我们可以让
- IFNA 函数根据提供的初始条件的结果，如果结果为 #N/A 型错误，返回提供的第二个参数；否则返回初始条件的计算结果。适用版本Excel
- Excel2013表格中怎么创建组合图表？excel2013表格中可以制作图表，图表也可以组合，该怎么组合呢？下面我们就来看看详细的教程，需
- 不知道大家有没有遇到这样类似的情况，当你把u盘插入电脑后却出现无法访问I/O设备错误无法进行此项请求，遇到这样的情况该怎么办呢?接下来小编就
- 对于重要的数据，我们一般都需要为其添加批注，那么，在wps表格中，怎样为数据添加批注呢?下面就让小编告诉大家在wps表格中如何插入批注。在w
- Wolf 2教程——Website Designer 网页设计如何将Wolf 1中的文件导入到Wolf 2 for Mac中？Wolf 2
- 很多的小伙伴在给苹果手机充电的时候都发现自己手机的充电提示音没了，那么该怎么解决呢？今天就为你们带来了苹果充电提示音没了解决方法，快一起看看
- 影子系统是一个非常安全可靠的软件，主要功能就是可以不用重装系统，上网没有痕迹，病毒木马无法破坏电脑，重启后自动消失复原，一般用于酒店电脑，网
- 如果您已经创建了 Apple ID，不需要购买应用或相关服务，可以选择移除所有付款方式。如果还没有注册 Apple ID，也仍然
- 进入win10系统界面，点击win10系统的windows键。win10系统弹出磁贴界面，在磁贴界面选择浏览器按钮。点击浏览器按钮，进入浏览
- Wps怎么设计一款漂亮的结婚邀请函？想要设计一款漂亮的结婚邀请函。该怎么设计呢？下面我们就来看看通过wps设计的教程，需要的朋友可以参考下W
- 有时候我们在使用电脑的过程中需要同时开启多个任务窗口，而Win11系统是可以直接去设置并排显示窗口，那么应该要如何去设置呢？下面就和小编一起
- 控制面板一直是我们用来更改系统设置的主要程序，但是在Win10系统中，这个页面被弱化隐藏，只需到设置中就可以更改系统。对于老用户而言，控制面
- 360杀毒之后,windows server 2003的很多设置莫名其妙的给修改了,这次打开"本地用户和组"时,提示无权
- Word是一款我们比较常用的文档编辑软件，使用的用户也不少，而在Word中，页眉和页脚也是非常重要的功能，因此就要用户好奇Word文档页脚文
- 很多用户为了节省办公时间，会设置文件夹共享，以此省去文件传输的时间。但有的用户又不想文件泄露太多，想要给文件夹加密，却不知道该怎么做。针对这
- win10系统无法收到10532版本更新推送怎么办？下面脚本之家小编就给大家带来关于win10无法收到10532版本更新推送的解决方法，希望
- 为了加强PowerPoint演示文稿的说服力，常常会在幻灯片中使用图表。如果使用图表后再为它设置一下序列动画，让数据演示也动起来，则通常能达
- 本文将将讲述如何使用Excel中的VBA宏重命名给定目录中的多个文件。如何在Excel中批量重命名多个文件。使用VBA重命名多个文件假设你有
