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

gjmmhi

407079009qqcom

407079009qqcom

Sub 日报表格式生成()
Sheets("日报表模板").Visible = True
Dim sh As Worksheet
Dim x As Integer
For x = 1 To 31
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = x & "日"
Next x
Sheets("日报表模板").Visible = False
End Sub
Sub 另存报表()
Dim wb As Workbook
Dim x As Integer
For x = 1 To 31
Sheets(x & "日").Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & x & "日.xls"
wb.Close True
Next x
End Sub

407079009qqcom

怎样看答案啊

18088271240

其他没问题，就是不知道名称顺序递增怎么弄。。。。

tiansdk320

Option Explicit
Dim x As Integer
Sub 日报表格式生成()

    Dim sh As Worksheet
    Sheets("日报表模板").Visible = True
    Sheets("日报表模板").Select

    If x = 0 Then
        Sheets("日报表模板").Copy after:=Sheets("日报表模板")
        Set sh = ActiveSheet
        sh.Name = x + 1 & "日报表"
        Sheets("第1题").Select
        x = x + 1
    Else
        Sheets("日报表模板").Copy after:=Worksheets(Worksheets.Count)
        Set sh = ActiveSheet
        sh.Name = x + 1 & "日报表"
        sh.Select
        Sheets("第1题").Select
        x = x + 1
    End If
   
    Sheets("日报表模板").Visible = False
   
End Sub
Sub 另存报表()

      Dim wb As Workbook
      Dim i As Integer
      For i = 1 To Worksheets.Count - 2
        Sheets(i & "日报表").Copy
        Set wb = ActiveWorkbook
         wb.SaveAs ThisWorkbook.Path & "/" & i & "日报表.xls"
         wb.Close True
        Next i
End Sub

0126

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

Alina2017

Sub 日报表格式生成()
Sheets("日报表模板").Visible = True
Dim sh As Worksheet
Dim x As Integer
For x = 1 To 31
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = x & "日"
Next x
Sheets("日报表模板").Visible = False
End Sub
Sub 另存报表()
Dim wb As Workbook
Dim x As Integer
For x = 1 To 31
Sheets(x & "日").Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & x & "日.xls"
wb.Close True
Next x
End Sub

bufuyilu

kwdg

感谢分享