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

2019-11-13 23:51:00 5点赞 40收藏 0评论

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

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

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

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

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

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

  • 在【开发工具】选项卡中找到【Visual Basic】。如果没有开发工具选项卡的话,需要在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]将同一工作簿中多个工作表独立保存为文档


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

未经授权,不得转载
展开 收起

Office 365 家庭版

Office 365 家庭版

319元起

《1Password》 ios密码管理软件

《1Password》 ios密码管理软件

暂无报价

《Agenda》Mac数字版软件

《Agenda》Mac数字版软件

暂无报价

《vegas pro 14 edit》视频编辑软件

《vegas pro 14 edit》视频编辑软件

132元起

《Money Pro》 记账理财软件

《Money Pro》 记账理财软件

6元起

用友软件 好会计财务软件专业版追加会计角色1用户/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

用友软件 好会计财务软件专业版追加会计角色1用户/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

301元起

ps cc2019 零基础自学 视频教程

ps cc2019 零基础自学 视频教程

19.9元起

用友软件 好会计财务软件普及版追加1账套/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

用友软件 好会计财务软件普及版追加1账套/年 畅捷通用友T3网页版 记账宝易代账云会计ERP软件

25元起

《Lossless Photo Squeeze(无损图片瘦身)》

《Lossless Photo Squeeze(无损图片瘦身)》

暂无报价

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

499元起

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

898元起

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

用友财务软件 好会计云财务软件 畅捷通T3在线版会计记账软件 专业版30天试用激活送E卡

1999元起
0评论

发表评论请 登录
评论举报

请选择举报理由

相关文章推荐

更多精彩文章
更多精彩文章
最新文章 热门文章
40
扫一下,分享更方便,购买更轻松