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

wangbear

Option Explicit
Sub ﾈﾕｱｨｱ昤?ｽﾉ嵭ﾉ()
Dim wb1, wb2 As Worksheet
Dim a As Integer
Sheets("ﾈﾕｱｨｱ朗｣ｰ・).Visible = True
If Sheets.Count = 2 Then
Worksheets("ﾈﾕｱｨｱ朗｣ｰ・).Copy after:=Sheets(Sheets.Count)
Set wb1 = ActiveSheet
    wb1.Name = "1ﾈﾕｱｨｱ・
Else
Set wb2 = Sheets(Sheets.Count)
a = Left(wb2.Name, 1)
Worksheets("ﾈﾕｱｨｱ朗｣ｰ・).Copy after:=Sheets(Sheets.Count)
Set wb1 = ActiveSheet
wb1.Name = a + 1 & "ﾈﾕｱｨｱ・
End If
Sheets("ﾈﾕｱｨｱ朗｣ｰ・).Visible = False

End Sub
Sub ﾁ昻豎ｨｱ・)
Dim wb() As Workbook
Dim x As Integer
Dim y As String
Application.DisplayAlerts = False
For x = 1 To Sheets.Count - 2
y = Sheets(x + 2).Name
ReDim wb(x) As Workbook
Sheets(x + 2).Copy
Set wb(x) = ActiveWorkbook
wb(x).SaveAs ThisWorkbook.Path & "\" & y & ".xls"
wb(x).Close True
Next x
Application.DisplayAlerts = True
End Sub

阿豪

这个很不错的，一定要学习

高

还不会呢，先看看啊

高

回复 兰色幻想 的帖子

老师，我勉强做出来了，我在“生成日报表”里还有个问题未解决。我想查找工作表后三位是“日报表”的，然后统计个数，以这个个数作为变量。
兰老师，能指导一下吗（如果用excel函数是很好统计的，可是我对vba了解的还很少呢，不知道用什么语法，连能不能实现都不知道）

hehehehebt

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

高

兰版主，如果你看了54楼的，这个就不用看了，我不知道你要看哪样的。54楼是一个压缩文件，又发了个个代码的。
Option Explicit
Sub 日报表格式生成()
End Sub
Sub 另存报表()
Dim sh As Worksheet
Sheets("日报表模板").Visible = True
      Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
       Set sh = ActiveSheet
    sh.Name = Sheets.Count - 2 & "日报表"
Sheets("日报表模板").Visible = False
Sheets(1).Select
      End Sub
--------------------------------------------------------------------------------------------------------------------
Sub 分表()
    Dim wb As Worksheet
    Dim x As Integer
      For x = 1 To Sheets.Count - 2
     
      Sheets(x & "日报表").Copy
       Set wb = ActiveSheet
          wb.SaveAs ThisWorkbook.Path & "/" & wb.Name & ".xls "
          ActiveWorkbook.Close True
          Next x
   End Sub

vba80

哦，谢谢兰版

淡如轻烟狂笑

看看，学习

淡如轻烟狂笑

学习，看看