社区主页 文章详情

[Excel]将同一工作簿中多个工作表独立保存为文档

效率火箭 19-11-13 关注

[Excel]将同一工作簿中多个工作表独立保存为文档

[Excel]将同一工作簿中多个工作表独立保存为文档

当你有一个拥有若干个工作表的Excel文档,你想要把这些工作表分别保存成单个独立的文件,发送给不同的用户。你该如何操作?最好的方法就是使用VBA。

[Excel]将同一工作簿中多个工作表独立保存为文档

如果不太熟悉VBA的小伙伴,可以先花费1分钟,找到添加VBA代码的路径。

[Excel]将同一工作簿中多个工作表独立保存为文档

[Excel]将同一工作簿中多个工作表独立保存为文档

[Excel]将同一工作簿中多个工作表独立保存为文档

将每个工作表保存成单独的Excel文件

'将每个工作表保存成单独的Excel文件

Sub SplitEachWorksheet()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets

ws.Copy

Application.ActiveWorkbook.SaveAs Filename:=FPath & "" & ws.Name & ".xlsx"

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

但是在执行上述代码前,你还得做两步准备:

[Excel]将同一工作簿中多个工作表独立保存为文档

操作完的结果如下图所示。

将每个工作表保存成单独的PDF文件

有的时候,我们非但希望将工作表单独保存出来,还不希望用户对文件再进行修改。这个时候,我们也可以考虑将工作表保存成pdf文件。具体的代码如下:

'将每个工作表保存成单独的PDF文件

Sub SplitEachWorksheet()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets

ws.Copy

Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "" & ws.Name & ".xlsx"

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

这样的操作结果如下:

[Excel]将同一工作簿中多个工作表独立保存为文档


这样的操作是不是简单快速呢?再也不需要为此大费周章的手工分割工作簿。省时省力!

未经授权,不得转载

展开阅读全文

打开App,查看更多好文内容

暂无评论,打开APP参与讨论

猜你喜欢
编辑精选
相关商品推荐
5
40
0
你已经点过赞了
新浪微博 QQ空间 微信好友 豆瓣
当前为触屏版
热门搜索