兰色幻想-VBA作业-试题1

'复制“日报表模板”工作表（已隐藏）至本工作簿最后一个位置，复制后的工作表名称为最后的日期天数+1&“报表”的格式。
'如：当前情况下，没有任何一天的日报表，则心腹之的工作表名称是“1日报表”，如果再添加时就是1+1=2日报表。如果目前已存在5天的日报表，则复制后的工作表名称应为“6日报表” 
'注：“日报表模板“工作表复制后要隐藏起来。
Sub cop()
 Dim sh As Worksheet
 Dim x, y As Integer
 y = 1
  For x = 1 To Sheets.Count
    If InStr(2, Sheets(x).Name, "日报表") > 0 Then
        y = y + 1
    End If
    Next x
    Sheets("日报表模板").Visible = True
        Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    Set sh = ActiveSheet
    sh.Name = y & "日报表"
    Sheets("日报表模板").Visible = False
 End Sub

'拷贝所有日报表到当前目录
Sub savto()
Dim sPath As String
Dim str As String
Dim x As Integer
sPath = ThisWorkbook.Path & "\"
For x = 1 To Sheets.Count
    If InStr(2, Sheets(x).Name, "日报表") > 0 Then
    str = Sheets(x).Name
    Sheets(x).Copy
    ActiveWorkbook.SaveAs sPath & str & ".xlsx"
    ActiveWorkbook.Close True
    End If
Next x
End Sub