VBA第十集作业

jyg_eagle

第一题：
Sub 日报表格式生成()
Dim sh As Worksheet, x As Integer
Sheets("日报表模板").Visible = True
x = Sheets.Count
MsgBox "复制前表个数：" & x
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
   sh.Name = x - 1 & "日报表"
   Sheets("日报表模板").Visible = False
End Sub

第二题：
Sub 另存报表()
Dim wb As Workbook
Workbooks("第十集练习题.xls").Copy
Set wb = ActiveWorkbook
    wb.SaveAs ThisWorkbook.Path & "\日报表.xls"
wb.Close True
End Sub

jyg_eagle

sorry,这句还得删了：Workbooks("第十集练习题.xls").Copy