Excel VBA代码另存sheet表为工作簿，可直接套用

Excel数据分析分享 03-19 230

前言：

目前姐妹们对“vb保存代码”可能比较关切，我们都需要分析一些“vb保存代码”的相关资讯。那么小编在网上收集了一些关于“vb保存代码””的相关知识，希望朋友们能喜欢，咱们一起来了解一下吧！

上次分享了一篇按不同列拆分数据源的vba代码，看到很多同学都收藏了，所以今天再次分享一篇实用的简短的vba代码。

以下是另存所有工作表为工作簿,录制的运行vba代码后的操作视频。

上图案例是将另存的工作簿放在D盘data文件夹中

这段代码的使用场景有，每次月报或数据源需要按地区发给不同对接人时，你们就会非常需要它了，想当年小编人工手动另存36个地区工作簿发给对接人，那个滋味......

所以如果大家有类似的使用场景，可抽空学习安排上，很方便，详细代码如下：

Sub 另存工作表为工作簿()

Dim sht As Worksheet

For Each sht In Worksheets

Application.ScreenUpdating = False

sht.Copy

ActiveWorkbook.SaveAs Filename:="D:\data\" & sht.Name & ".xlsx"

ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub

本次更新内容到此结束，关注小编持续分享更多Excel数据小技巧哦~