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

积跬步至千里

学海无涯苦作舟 发表于 2019-12-29 21:52

Sub 另存报表()
Dim wb As Workbook
Dim x As Integer
If Sheets.Count > 3 Then
For x = 1 To Sheets.Count - 2 Step 1
Sheets(x & "日报表").Copy
'Sheets(Sheets.Count - 2).Copy  这句为什么编译错误，显示worksheet copy 方式错误？
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & x & "日报表.xlsx"
wb.Close True
Next x
Else
'MsgBox x & "份日报表工作簿已生成完成"  这句语句为什么没有执行？
End If
End Sub

能帮忙解答下吗？为感！

96449479

感谢

youke333

过来学习

精英搬运工

看看

yui998

Sub 日报表格式生成()
Dim x As Integer
        Sheets("日报表模板").Visible = True
        Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
        For x = 1 To Sheets.Count
            If Sheets(Sheets.Count - 1).Name = x & "日报表" Then
               Sheets(Sheets.Count).Name = x + 1 & "日报表"
               Sheets("日报表模板").Visible = False
               Sheets(1).Select
               Exit Sub
               End If
               Next
            Sheets(Sheets.Count).Name = "1日报表"
            Sheets("日报表模板").Visible = False
            Sheets(1).Select
End Sub
Sub 另存报表()
Dim x As Integer, y As Integer, wb As Workbook
    For x = 1 To Sheets.Count
        For y = 1 To Sheets.Count
            If Sheets(x).Name = y & "日报表" Then
            Sheets(x).Copy
            Set wb = ActiveWorkbook
            wb.SaveAs ThisWorkbook.Path & "/" & y & "日报表" & ".xls"
            wb.Close
            End If
            Next
            Next
End Sub

新人，不允许我用HIDE代码。。。。

caoxin

Sub 日报表格式生成()
    Dim sh As Worksheet
        Dim y As Integer
      Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
      
       Set sh = ActiveSheet
           
        y = Sheets.Count
        y = y - 2
            
sh.Name = y & "日"
         
End Sub

yyyyyyvba

1

youni-302

学习一下

huaqianqian1

1111111

hehaibo1013@163

最近才开始学习兰色的VB，将题目答案上传如下：

自我感觉是实现了这个功能，但不知道对题目的理解是否正确，还请老师和各网友评判和指正，多谢！

1. Sub 日报表格式生成()
   
2.    Dim sht As Worksheet
   
3.       Sheets("日报表模板").Visible = True
   
4.       Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
   
5.       Set sht = ActiveSheet
   
6.          If Sheets.Count = 3 Then
   
7.             sht.Name = "1日报表"
   
8.          Else
   
9.             sht.Name = Sheets.Count - 2 & "日报表"
   
10.          End If
    
11.       Sheets("日报表模板").Visible = False
    
12.       Sheets("第1题").Select
    
13. End Sub

复制代码

1. Sub 另存报表()
   
2.    Dim wb As Workbook, i As Integer
   
3.    For i = 3 To Sheets.Count
   
4.    Application.ScreenUpdating = False
   
5.       Sheets(i).Copy
   
6.       Set wb = ActiveWorkbook
   
7.          wb.SaveAs ThisWorkbook.Path & "/" & ActiveSheet.Name & ".xls"
   
8.          wb.Close
   
9.    Next i
   
10.    Application.ScreenUpdating = True
    
11. End Sub
    

复制代码