Sub 题目1()
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = Sheets.Count - 2 & "日报表"
sh.Range("a1") = Sheets.Count - 2 & "测试"
Sheets("第1题").Activate
Sheets("日报表模板").Visible = False
End Sub
Sub 题目2() '另存为新工作簿
Sheets("日报表模板").Visible = True
For i = 3 To Sheets.Count
Sheets(i).Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "\" & i - 2 & "日报表.xls"
wb.Close False
Next
Sheets("日报表模板").Visible = False
End Sub