自动将同一个Excel文件中的多个表单独另存为多个独立文件

Excel文件又会被叫做工作簿，而工作簿中通常会包含多个工作表。

在某些情况下，我们需要把工作簿中的每个工作表单独另外存为一个Excel文件，并以该工作表的名称作为文件名。

当工作表数量比较多的时候，我们手动保存的效率就会显得相当慢了，下面给大家分享一个快速的方法。

Excel文件自动拆分成多个文件

1. 查看案例

下方为我们这次用来讲解的案例，我们需要做的是把Excel文件中的所有工作表单独保存为独立的Excel文件，并以工作表的名称命名文件。

2. 打开代码编辑器

在开发工具里找到代码编辑器按钮，点击即可进入

3. 粘贴下方代码到代码编辑器里

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:=xlOpenXMLWorkbook ‘将工作簿另存为xlsx格式

ActiveWorkbook.Close

Next

MsgBox “文件已经被分拆完毕!”

End Sub

4. 运行代码

点击如下图所示的绿色三角按钮

5. 运行宏

在弹出的宏窗口中点击运行按钮

6. 查看结果

查看原文件所在的文件夹，我们会发现文件夹中出现了其他以各自工作表名称命名的Excel文件

原文链接：https://jiankeweb.com/articles/6284.html，转载请注明出处。 百度收录：

网站版权声明

1 本网站名称：剑客自媒体
2 本站永久网址：https://jiankeweb.com
3 本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长 QQ1963220216进行删除处理。
4 本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5 本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报
6 本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。