VBA80集第10集excel工作表操作 第十集练习题

sqabcwkh1

VBA80集第10集excel工作表操作 第十集练习题解答
代码如下：
Sub 日报表格式生成()
Dim X As Integer, Y As Integer, sh As Worksheet
      For X = 1 To Sheets.Count
        
        If Sheets(X).Name = "日报表模板" Then
          Sheets("日报表模板").Visible = True
          '找到“日报表模板”并显示
         
          Y = X - 1
         Sheets("日报表模板").Copy before:=Sheets(Y)
         Set sh = ActiveSheet
          sh.Name = Y & "日报表"
           '复制“日报表模板”并更名为“Y日报表”
           
          Sheets("日报表模板").Visible = False
          '隐藏“日报表模板”
         
          Sheets(Y & "日报表").Move after:=Sheets(Sheets.Count)
          '"Y日报表"移动到所有工作表的最后面
         
         Worksheets("第1题").Activate
         '设置“第1题”为活动工作表
         
          Exit Sub
         
        End If
      Next
End Sub
Sub 另存报表()
Dim X As Integer, Y As String, wb As Workbook
  On Error GoTo 100
  '出错跳转至100
  For X = 1 To Sheets.Count
  'X从1开始循环，最多至工作表个数结束
   Y = CStr(X) & "日报表"
   'Y=X日报表
    Sheets(Y).Copy
    '复制X日报表
    Set wb = ActiveWorkbook
    'wb为当前活动工作表
    wb.SaveAs ThisWorkbook.Path & "/" & Y
    'wb另存为本文件夹下的X日报表
    ActiveWorkbook.Close
    '关闭当前活动工作表
      Next
100:
End Sub