概述：

打算将工作簿拆分多个工作表，抛出异常

原因是这个工作簿中有隐藏的工作表，对于Copy操作，它是不能复制隐藏的工作表的，但是Worksheets是所有工作表的集合（自然有隐藏工作表）

最后的解决办法就是取消隐藏所有工作表，或者进行判断如果是隐藏工作表就过滤掉

if sht.Visible  = True then    

执行复制动作

End if 

Sub saveToFile()

    '把各个工作表以单独的工作簿文件保存在本工作簿所在文件夹下的“班级成绩表”文件夹中
    Application.ScreenUpdating = False            '取消屏幕更新
    Dim folder As String
    folder = ThisWorkbook.Path & "\班级成绩表"
    '如果文件夹不存在，新建文件夹
    If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
    Dim sht As Worksheet
    For Each sht In Worksheets
       If sht.Visible = True Then
          sht.Copy
          ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xls"
          ActiveWorkbook.Close
        End If
    Next
    Application.ScreenUpdating = True            '开启屏幕更新
End Sub