Question

VBA运行时错误1004代码..方法saveas作用于对象_workbook时失败(2010版excel)

Sub savetofile()Application.ScreenUpdating = FalseDim folder As Stringfolder = ThisWorkbook.Path & "\班级成绩表"If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folderDim sht As WorksheetFor Each sht In Worksheets sht.Copy ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xls" ActiveWorkbook.CloseNextApplication.ScreenUpdating = TrueEnd Sub

我想把成绩表,七(1)班至七(9)班的每个工作表单独变成一个工作簿.程序只生成一个,就报错1004..求解





Answer 1

Sub savetofile()
Application.ScreenUpdating = False

on error resume next '忽略错误，继续执行

Dim folder As String
folder = ThisWorkbook.Path & "\班级成绩表"
If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
Dim sht As Worksheet

For Each sht In thisworkbook.Worksheets
if sht.name<>"成绩表" then '判断表名
sht.Copy
ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
end if
Next

Application.ScreenUpdating = True
End Sub