VBA从工作表另存为工作簿

Sub 宏1()

 Application.ScreenUpdating = False '屏幕更新关闭 

Application.DisplayAlerts = False '显示和预警提示关闭 

 Dim folder As String 'String字符串 

 folder = ThisWorkbook.Path & '\ 班级 ' 

 If Len(Dir(folder, vbDirectory)) = 0 

Then MkDir folder 'vbDirectory文件夹 

 MkDir创建目录或文件夹 

 Dim sht As Worksheet For Each 

sht In Worksheets sht.Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & sht.Name & '.xls' '另存在这个路径 名字是工作表名字.xls 

 ActiveWorkbook.Close 

 Next 

 Application.ScreenUpdating = True 

 Application.DisplayAlerts = True 

End Sub