下载此文档
搜索文档
阅读：
文档下载说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。
【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《VBA EXCEL拆分工作表为工作薄》，欢迎阅读！
Sub 工作簿拆分()
'将EXCEL工作簿按工作表拆分为工作簿
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.Name & ".xlsx" '(工作表名称文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
本文来源：https://www.dywdw.cn/a0ac23a8adaad1f34693daef5ef7ba0d4a736d94.html
相关推荐
2023-05-07
推荐阅读
最新更新文章
热门阅读文章
