有78人阅读过
使用一段代码快速将excel多个工作表拆分为独立文件
发布于2021/04/12 更新于2021/04/12
[ 教程仅保证更新时有效，请自行测试。]
发布于2021/04/12 更新于2021/04/12
[ 教程仅保证更新时有效，请自行测试。]
[ 教程仅保证更新时有效，请自行测试。]
1、打开表格，可以看到一个工作簿中有多个工作表。
2、右击工作表名称，点击查看代码(V)。
3、显示如下页面。
4、空白处，复制黏贴如下代码：
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
5、点击运行-运行子过程/用户窗体。
6、完成后，保存，显示如下，工作表已经拆分成单独的文件了。
*保存后的独立文件在源文件同目录下！
文章对你有帮助吗？
- 一般[0]
- 很赞[0]
- 没用[0]
- 垃圾[0]
- 无语[0]
