Sub Copysheets_To_file()

Dim Path,file, year, Month, day As String

year = Format(Date, "YYYY")

Month = Format(Date, "MM")

' day = day(Date)

Path = ThisWorkbook.Path & "\" '打开的EXCEL文件所在的目录

file = "XX电器" & year & "年" & Month & "月" & "考勤表.xlsx" '新的工作簿文件

Worksheets(Array("考勤表1", "考勤表2")).Copy ' "考勤表1", "考勤表2"为工作表

Set wbNew = ActiveWorkbook

With wbNew

ActiveWorkbook.SaveAs filename:=Path & file

.Close

End With

End Sub