【原】如何将包含多工作表的工作簿另存成多个工作簿？

如下图所示，这是个包含多个工作表的工作簿。在日常工作中我们有时候需要将每个工作表另存成多个单独的工作簿。

成为如下图所示的样子：

我们可以手动创建空白工作簿，再将这个工作簿的每个工作表一一复制到新建的工作簿中，如此循环6次才能将这个包含6个工作表的工作簿单独另存成6个工作簿，很麻烦。如果工作表的数量更多，那就很费时间了。那么我们要怎么样才能更快的实现快速另存成工作簿呢？

小编今天介绍一种通过使用代码的方法快速实现工作表另存成工作簿的方法：

按ALT+F11,打开VBE编程环境，插入模块。

然后写入如下代码：

Sub save_as_workbook()

Dim wkPath As String

wkPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each wk In ThisWorkbook.Sheets

wk.Copy

Application.ActiveWorkbook.SaveAs Filename:=wkPath & "\" & wk.Name & ".xlsx"

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

如下图所示：

按F5或点下图三角形按键运行代码即可快速完成工作表另存成工作簿。

注意，本例运行后生成的工作簿与当前工作簿在同一目录下。

希望今天的分享对大家的工作有所帮助。