excel工作簿拆分实现VBA代码
时间:2023-03-05 03:50:25
一个工作簿中包括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
标签:excel工作簿拆分
0
投稿
猜你喜欢
WPS2013安装教程
2023-07-15 17:14:15
Win7关闭“windows文件保护”的技巧
2022-08-29 06:27:14
exescope怎么用_exescope使用教程
2023-02-18 03:14:12
如何利用Excel的SERIESSUM函数计算幂级数之和
2022-03-17 06:08:01
excel 分级显示数据 实现教程
2022-01-20 02:12:50
腾讯微视怎么举报违规视频?微视App违规视频举报方法
2023-04-26 05:51:09
压缩Word文档中图片的两种方法
2022-05-28 20:12:47
win10系统血战上海滩打不开怎么办?win10血战上海滩打不开解决方法
2023-07-26 00:40:23
excel2003用姓名排序的方法
2023-07-13 09:42:19
Windows 2000系统下通过修改注册表加强安全
2023-06-06 15:03:03
WPS文字怎么书签动能的方法
2022-11-01 07:48:10
PS新手教程 --如何使用PS给照片添加太阳光的效果
2022-05-11 03:33:07
Win10 1909怎么加快开机速度?Win10 1909开机速度加快方法分享
2023-08-19 05:12:50
微信如何查看WIFI密码 微信查看WIFI密码教程
2022-08-31 17:18:52
在Word文档中怎么插入页眉?
2023-12-05 22:04:38
在excel单元格中怎么设置以进度条/柱形图来显示百分比?
2023-09-16 05:14:55
显示器一闪一闪的黑屏怎么回事
2023-06-02 19:25:27
鲁大师检测硬盘可靠吗_鲁大师检测硬盘坏道教程
2022-09-15 13:05:21
【视频演示】微软Win10最新触摸板手势功能详解
2023-02-05 06:19:03
电脑突然开不了机?简单几招解决问题
2023-03-10 02:12:23