如何将Excel工作簿的所有工作表一次导出成多个独立文件？

工作中，有时我们会遇到一个工作簿里面有很多张工作表，看得非常辛苦。

今天，十年先生为大家分享一段简短VBA代码。

功能：Excel工作簿中有多张工作表，实现将所有工作表一次导出成多个独立文件。

1、数据源准备，打开Excel工作簿，如下所示：

2、按Alt F11打开VBA编辑器，插入新的模块，复制下面的内容到里面，按F5运行即可。

代码如下：

Sub SaveSeparately()

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

动态操作及效果图：