基本型企业网站论文,公司注册网上核名几个字,外贸网站建设介绍,甘肃做网站的公司一个工作簿中有多个表格#xff0c;如何将其表格单独保存成一个独立的文档呢#xff1f;如果表格少#xff0c;操作如下#xff1a;选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。当如果表格太多呢#xff0c;以上方法就太罗嗦了。简单方法用VBA,步骤如…一个工作簿中有多个表格如何将其表格单独保存成一个独立的文档呢如果表格少操作如下选中要导出表格的标签名--鼠标邮件--移动或复制表格--新建工作簿。当如果表格太多呢以上方法就太罗嗦了。简单方法用VBA,步骤如下1、创建一个文件夹将要分离的工作簿放到该文件夹里单独生产的文件也会保存到该文件夹里。2、调出VBA如果EXCEL里没VBA项调出EXCEL文件--选项--自定义功能区--在右边勾选开发工具。3、输入VBA代码1打开vba编辑器点击开发工具--点工具栏上最右边的VB2在左边的工程区点选要操作的工作簿中的任意一个工作表选择【插入】-【模块】会出现代码区复制代码到窗口中然后点击【执行】即可 将每个工作表保存成单独的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
3执行分离点excel工具栏里的 运行按钮就OK文件会保存到母文件目录下。4、也可以将分离的文件保存成一个单独的PDF文件而不是EXCEL文件步骤同上只是代码不同。具体的代码如下将每个工作表保存成单独的PDF文件
Sub SplitEachWorksheet()
Dim FPath As String
FPath Application.ActiveWorkbook.Path
Application.ScreenUpdating False
Application.DisplayAlerts FalseFor Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:xlTypePDF, Filename:FPath ws.Name .xlsx
Application.ActiveWorkbook.Close False
NextApplication.DisplayAlerts True
Application.ScreenUpdating True
End Sub
