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

ssmusic

查看一下，学习学习。

ssmusic

学习学习。
Option Explicit

Sub 日报表格式生成()
Dim i, j, sh_count As Integer
Dim sh, newsh As Worksheet
Set sh = Sheets("日报表模板")
sh.Visible = True
sh_count = Sheets.Count
j = sh_count - 1
'Debug.Print j
sh.Copy after:=Sheets(sh_count)
Set newsh = ActiveSheet
newsh.Name = j & "日报表"
sh.Visible = False
End Sub
Sub 另存报表()
Dim i As Integer
Dim wbname As String
Dim wb, newwb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
For i = 3 To Sheets.Count
wb.Sheets(i).Copy
Set newwb = ActiveWorkbook
'Debug.Print wb.Sheets(i).Name
'wb.SaveAs ThisWorkbook.Path & "/" & Sheets(i).Name & ".xlsx"
newwb.SaveAs ThisWorkbook.Path & "/" & wb.Sheets(i).Name & ".xlsx"
newwb.Close True
Next
End Sub

ssmusic

Option Explicit

Sub 日报表格式生成()
Dim i, j, sh_count As Integer
Dim sh, newsh As Worksheet
Set sh = Sheets("日报表模板")
sh.Visible = True
sh_count = Sheets.Count
j = sh_count - 1
'Debug.Print j
sh.Copy after:=Sheets(sh_count)
Set newsh = ActiveSheet
newsh.Name = j & "日报表"
sh.Visible = False
End Sub
Sub 另存报表()
Dim i As Integer
Dim wbname As String
Dim wb, newwb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
For i = 3 To Sheets.Count
wb.Sheets(i).Copy
Set newwb = ActiveWorkbook
'Debug.Print wb.Sheets(i).Name
'wb.SaveAs ThisWorkbook.Path & "/" & Sheets(i).Name & ".xlsx"
newwb.SaveAs ThisWorkbook.Path & "/" & wb.Sheets(i).Name & ".xlsx"
newwb.Close True
Next
End Sub

owen000

看下自己的答案对不对

杨羊羊羊

学习

darcy-ydm

11qq

sangjinxin

kankan

youke2017

111

guixiuek

xiexie...........................

jack3323125

学习学习