加载中…如何将Excel中Sheet表拆成多个文档
(2020-03-20 16:16:33)
标签：
excel文档拆分 |
分类： 操作技巧 |
前几日登记健康卡，其中一个班级分成四组，每组有9~12人放在一个Excel文档中，好在每个sheet都以学生学号和姓名命名了，但按照要求应该一人一档（也就是一个Excel文件），明显不符合要求，本来准备让班主任老师重新分开给我，转念一想，大家都比较忙，相对来说还是我操作娴熟些，决定我自己来拆分。
于是，第一组我分别另存为9个文档，并以学生姓名命名，再逐一打开这些文档将其他学生的sheet删除。这样，第一组分别另存为9个文档，并以学生姓名命名，再逐一打开这些文档将其他学生的sheet删除。
发现每个学生需要将近1分钟时间，后面还有几十名同学，实在不甘心这样手动操作，于是我开始尝试使用宏定义批处理，通过百度搜索加上实践，可以利用Excel中的VBA编辑代码，批量完成，并且能以sheet表名作为拆解的文档名，正好符合要求，后面几组分秒就完成拆解。具体操作方法。先按ALT
+ F11 键，启动VBA编辑器，然后在窗口粘贴代码，保存运行即可。
批处理代码如下：
Sub sheet转独立文件()
Dim sht As
Worksheet
Application.ScreenUpdating =
False
ipath = ThisWorkbook.Path
&"\"
For Each sht In
Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath
& sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating =
True
End Sub
喜欢
0
赠金笔