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