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

johnny21 · 发表于 2017-4-18 20:51

answer

LeEric · 发表于 2017-4-19 17:11

阿萨德撒多撒多撒大所多撒多

李家禾 · 发表于 2017-4-19 21:01

学习

李家禾 · 发表于 2017-4-20 14:58

本帖最后由李家禾于 2017-4-20 14:59 编辑

Sub 日报表格式生成()
Dim sht As Worksheet

Set sht = Worksheets("日报表模板")
sht.Visible = True
sht.Copy after:=Sheets(Sheets.Count)
Set sht = ActiveSheet
sht.Name = Sheets.Count - 2 & "日报表"
Worksheets("日报表模板").Visible = False
Sheets("第1题").Select

End Sub
Sub 另存报表()
Dim sht As Worksheet
Dim xpath As String

xpath = ActiveWorkbook.Path

For Each sht In ActiveWorkbook.Sheets
      On Error Resume Next
      sht.Copy
      On Error GoTo 0

      ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xls"
      ActiveWorkbook.Close

Next
   Kill ThisWorkbook.Path & "\日报表模板.XLS"
   Kill ThisWorkbook.Path & "\第1题.XLS"


End Sub

wxt7327 · 发表于 2017-4-24 13:50

感谢楼主分享，顶贴支持～

407079009qqcom · 发表于 2017-4-25 11:08

想看答案

viviennenan · 发表于 2017-4-28 10:52

太棒了！

xtghtje · 发表于 2017-4-30 14:22

谢谢

xin_fei_ · 发表于 2017-5-1 10:12

学习学习

azhali88 · 发表于 2017-5-1 19:09

。。。。。。。。

		自动登录	找回密码
密码			注册