VBA80集第10集练习上交专贴（正确答案奖励20金币）

E627

谢谢~~~~~~~~~

lwjzy

kan

40006675

学习后试验了半天没成功,

华醒醒

学习一下

苏萋苒

虽然事很久之前的帖子，但是很有帮助！

xuxusheng

学习

lvxgreat

学习永无止境啊

sora0626

来学习

乐凯帝

1. [hide] Option Explicit
   
2. 
   
3. Sub s1()
   
4.      Dim x As Integer
   
5.       For x = 1 To Sheets.Count
   
6.         If Sheets(x).Name = "日报表模板" Then
   
7.           MsgBox "日报表模板存在"
   
8.           Exit Sub
   
9.         End If
   
10.       Next
    
11.       MsgBox "日报表模板不存在"
    
12.     End Sub
    
13. 
    
14. Sub 日报表格式生成()
    
15. Sheets("日报表模板").Visible = True
    
16. End Sub
    
17. 
    
18. Sub 添加报表()
    
19.       Dim sh As Worksheet
    
20.       Dim x As Integer
    
21.       Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    
22.        Set sh = ActiveSheet
    
23. For x = 3 To Sheets.Count
    
24.        Sheets(x).Name = x - 2 & "日报表"
    
25.        Next
    
26. End Sub
    
27. 
    
28. Sub 日报表格式隐藏()
    
29. Sheets("日报表模板").Visible = False
    
30. End Sub
    
31. 
    
32. Sub 另存报表()
    
33.       Dim wb As Workbook
    
34.       Dim x As Integer
    
35.       For x = 1 To Sheets.Count
    
36.        Sheets(x & "日报表").Copy
    
37.        Set wb = ActiveWorkbook
    
38.           wb.SaveAs ThisWorkbook.Path & "/" & Sheets(x & "日报表").Name & ".xls"
    
39.           wb.Close True
    
40.           Next
    
41. End Sub
    
42. [/hide]

复制代码

幻想哥，这么多年了不知道您还能不能看见今年刚开始学的……求老师批改
（不知道为什么我保存文件那个要保存完了报错才会停下来）

滕鹏

1111111