VBA EXCEL拆分工作表为工作薄

时间：2023-05-07 09:18:12 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

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

Application.ScreenUpdating = True

End Sub

Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

相关文章：

正在阅读：