如何将一张工作簿所有工作表分单独保存？
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
当一个工作簿中有多个工作表，而又需要把这几个工作表拆分成独立的工作簿时，我们可以采用以下方法。alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。（需要注意的是每一个拆开的excel会自动打开，比较烦）
Sub 拆分多工作表() '将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Shrkbook.SaveAs PATH & "\" & & ".xls" '(工作表名称为文件名）ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
需要注意的是每一个拆开的excel会自动打开比较烦sub?拆分多工作表?将工作薄按工作表拆分成多个工作薄?dim?path?as?string?path??applicationactiveworkbookpath?dim?sht?as?worksheet?applicationscreenupdating??false?for?each?sht?in?sheets?shtcopy?activeworkbooksaveas?path????sht
Sub 拆分多工作表() '将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Shrkbook.SaveAs PATH & "\" & & ".xls" '(工作表名称为文件名）ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
需要注意的是每一个拆开的excel会自动打开比较烦sub?拆分多工作表?将工作薄按工作表拆分成多个工作薄?dim?path?as?string?path??applicationactiveworkbookpath?dim?sht?as?worksheet?applicationscreenupdating??false?for?each?sht?in?sheets?shtcopy?activeworkbooksaveas?path????sht