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

3062527

谢谢             看看

3062527

感谢精英论坛給我们创造了这么好的学习条件，我要好好认真的学习VBA,谢谢精英论坛的管理们，你们好，你们辛苦了

快樂學習

我也想看看！！

wbzxz

请师傅批改

游客，如果您要查看本帖隐藏内容请回复

scsys1

1. Sub 日报表格式生成()
   
2. Dim sh As Worksheet
   
3. Dim a As Integer
   
4. Sheets("日报表模板").Visible = True
   
5. a = Sheets.Count - 1
   
6. Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
   
7. Set sh = ActiveSheet
   
8. sh.Name = a & "日报表"
   
9. Sheets("日报表模板").Visible = False
   
10. Sheets(1).Activate
    
11. End Sub
    
12. Sub 另存报表()
    
13. Dim wb As Workbook
    
14. Dim na As String
    
15. Dim i As Integer
    
16. For i = 3 To Sheets.Count
    
17. na = Sheets(i).Name
    
18. Sheets(i).Copy
    
19. Set wb = ActiveWorkbook
    
20. wb.SaveAs ThisWorkbook.Path & "/" & na & ".xls"
    
21. wb.Close True
    
22. Next
    
23. End Sub
    

复制代码

xcnclzy

学习一下{:341:}

cabcd1

完成了
sencei

tiandi100

不懂如何用回复可见

tiandi100

游客，如果您要查看本帖隐藏内容请回复

liushui_gaoshan

很难哦！怎么弄呢！