一个工作簿中的多个工作表拆分成多个工作簿

在Excel 2016中将一个工作簿中的多个工作表拆分成多个工作簿，在开发工具中的vba 模块中输入一下代码（并修改savepath的值为要存储的路径），然后运行即可。

Sub SplitWorkbook()
    Dim srcWorkbook As Workbook
    Dim srcWorksheet As Worksheet
    Dim newWorkbook As Workbook
    Dim newWorksheet As Worksheet
    Dim cell As Range
    Dim savePath As String
    
    ' 设置源工作簿
    Set srcWorkbook = ThisWorkbook
    
    ' 设置保存路径
    savePath = "C:\Temp\" ' 设置保存路径
    
    ' 循环遍历源工作簿中的每个工作表
    For Each srcWorksheet In srcWorkbook.Worksheets
        ' 创建一个新的工作簿
        Set newWorkbook = Workbooks.Add
        ' 将源工作表复制到新工作簿
        srcWorksheet.Copy Before:=newWorkbook.Sheets(1)
        
        ' 设置新工作簿的工作表
        Set newWorksheet = newWorkbook.Sheets(1)
        
        ' 删除新工作簿中的其他工作表
        Application.DisplayAlerts = False
        Do While newWorkbook.Sheets.Count > 1
            newWorkbook.Sheets(2).Delete
        Loop
        Application.DisplayAlerts = True
        
        ' 保存新工作簿
        newWorkbook.SaveAs savePath & srcWorksheet.Name & ".xlsx"
        newWorkbook.Close
    Next srcWorksheet
    
    ' 关闭源工作簿
    srcWorkbook.Close
End Sub