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

hexh

Sub 生成日报表()
  Sheets("日报表模板").Visible = True
  Dim NUM As Integer
  NUM = Sheets.Count
  Sheet1.Copy Before:=Sheet1
  ActiveSheet.Name = NUM & "日报表"
  Sheets("日报表模板").Visible = False
  End Sub
Sub 导出日报表()
Dim NUM As Integer
Dim wb As Workbook
  For NUM = 1 To Sheets.Count - 1
    Sheets(NUM).Copy
    Set wb = ActiveWorkbook
    wb.SaveAs ThisWorkbook.Path & "\" _
      & ThisWorkbook.Sheets(NUM).Name & ".xlsx"
    wb.Close True
  Next NUM
End Sub

hexh

william_fung 发表于 2019-3-3 22:05
确实不会写，怎么破

Sub 生成日报表()
  Sheets("日报表模板").Visible = True
  Dim NUM As Integer
  NUM = Sheets.Count
  Sheet1.Copy Before:=Sheet1
  ActiveSheet.Name = NUM & "日报表"
  Sheets("日报表模板").Visible = False
  End Sub
Sub 导出日报表()
Dim NUM As Integer
Dim wb As Workbook
  For NUM = 1 To Sheets.Count - 1
    Sheets(NUM).Copy
    Set wb = ActiveWorkbook
    wb.SaveAs ThisWorkbook.Path & "\" _
      & ThisWorkbook.Sheets(NUM).Name & ".xlsx"
    wb.Close True
  Next NUM
End Sub

咨询小白

学习学习

yyzh1987

想了两天就做出来半道题

yyzh1987

对于此题的复制题，我有一个疑问，如果我从中间删除一天的日表，还可以正常运行么？这个问题苦恼了我好久。。再问如果我从前面加了一个新的sheet ，还可以运行么？

青丝白发

看答案

青丝白发

学习

辛苦了   学习   谢谢

Dwolf

菜鸟路过