|
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
|
|