作者：温温 | 来源：互联网 | 2023-09-24 15:01
一个工作簿中有多个表格&＃xff0c;如何将其表格单独保存成一个独立的文档呢&＃xff1f;
如果表格少&＃xff0c;操作如下&＃xff1a;选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。
当如果表格太多呢&＃xff0c;以上方法就太罗嗦了。
简单方法用VBA,步骤如下&＃xff1a;
1、创建一个文件夹&＃xff0c;将要分离的工作簿放到该文件夹里&＃xff0c;单独生产的文件也会保存到该文件夹里。
2、调出VBA&＃xff1a;如果EXCEL里没VBA项&＃xff0c;调出&＃xff1a;EXCEL文件--选项--自定义功能区--在右边勾选开发工具。
3、输入VBA代码&＃xff1a;
1&＃xff09;打开vba编辑器&＃xff1a;点击开发工具--点工具栏上最右边的VB&＃xff1b;
2&＃xff09;在左边的工程区&＃xff0c;点选要操作的工作簿中的任意一个工作表&＃xff0c;选择【插入】->【模块】&＃xff0c;会出现代码区&＃xff0c;到窗口中&＃xff0c;然后点击【执行】即可
&＃39;将每个工作表保存成单独的Excel文件
Sub SplitEachWorksheet()
Dim FPath As String
FPath &＃61; Application.ActiveWorkbook.Path
Application.ScreenUpdating &＃61; False
Application.DisplayAlerts &＃61; False
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:&＃61;FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts &＃61; True
Application.ScreenUpdating &＃61; True
End Sub
3&＃xff09;执行分离&＃xff1a;
点excel工具栏里的 运行按钮&＃xff0c;就OK&＃xff0c;文件会保存到母文件目录下。
4、也可以将分离的文件保存成一个单独的PDF文件&＃xff0c;而不是EXCEL文件&＃xff0c;步骤同上&＃xff0c;只是代码不同。具体的代码如下&＃xff1a;
&＃39;将每个工作表保存成单独的PDF文件
Sub SplitEachWorksheet()
Dim FPath As String
FPath &＃61; Application.ActiveWorkbook.Path
Application.ScreenUpdating &＃61; False
Application.DisplayAlerts &＃61; FalseFor Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:&＃61;xlTypePDF, Filename:&＃61;FPath & "" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
NextApplication.DisplayAlerts &＃61; True
Application.ScreenUpdating &＃61; True
End Sub
京公网安备 11010802041100号