Question

请问EXCEL2007 VBA代码怎么编写将单个工作表另存文件，最好不自动生成和自动生成文件两种情况都要，谢谢

Answer 1

Option Explicit
Sub SheetCopy()
On Error GoTo line
ActiveSheet.Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\SheetCopy.xls"
Exit Sub
line:
ActiveWorkbook.Close False
End Sub
Sub ArrSheetCopy()
On Error GoTo line
Worksheets(Array("Sheet1", "Sheet2")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ArrSheetCopy.xls"
ActiveWorkbook.Close SaveChanges:=True
Exit Sub
line:
ActiveWorkbook.Close False
End Sub