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

glassmask117

学习一下

dogtowner

学习一下

leoxxx

1. Sub 日报表格式生成()
   
2.     Dim i As Integer
   
3.     i = Val(Sheets(Sheets.Count).Name) + 1 '返回表名包含的数字，无数字则值为0。
   
4.         Sheets("日报表模板").Visible = True
   
5.         Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
   
6.         Sheets("日报表模板").Visible = False
   
7.         ActiveSheet.Name = i & "日报表"
   
8.         Sheets(1).Select
   
9. End Sub
   
10. Sub 另存报表()
    
11.     Dim i As Integer
    
12.     For i = 1 To Sheets.Count
    
13.         If Sheets(i).Name Like "*日报表" Then '判断表名字串是否包含"日报表"。
    
14.             Sheets(i).Copy
    
15.             ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets(1).Name & ".xls"
    
16.             ActiveWorkbook.Close True
    
17.         End If
    
18.     Next
    
19. End Sub

复制代码

leoxxx

risona 发表于 2022-8-30 20:26
第一题：插入表格至最后一张并重命名
Sub job1()
Dim x As Worksheet

1. x.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xls"

复制代码

试试这条代码。

83793738

来和大佬们学习

tingqiguai

学习下

18683137373

感谢楼主

tanyongjing

谢谢 谢分享！