第十集练习题

jbljypx

1. Sub 生成日报工作表()
   
2. Sheets(2).Visible = True
   
3. Sheets(2).Copy , Sheets(Sheets.Count)
   
4. Set sh = ActiveSheet
   
5.     sh.Name = Sheets.Count - 2 & "日报表"
   
6. Sheets(2).Visible = False
   
7. Sheets(1).Select
   
8. End Sub
   
9. Sub 生成日报工作簿()
   
10. For i = 1 To Sheets.Count - 2
    
11. Sheets(i & "日报表").Copy
    
12. Set wb = ActiveWorkbook
    
13. wb.SaveAs ThisWorkbook.Path & "" & i & "日报表.xlsx"
    
14. wb.Close True
    
15. Next
    
16. End Sub

复制代码

第十集练习题.zip (19.35 KB, 下载次数: 1)

2015-9-22 08:32 上传

点击文件名下载附件