根据工作簿中特定工作表新建工作簿，并保存于指定文件夹

Joyce_ZFY

附件中的VBA 程序是根据班级名称新建工作表，并把工作表保存为工作簿，程序能正常运行

但新建工作簿的时候如果我想指定工作表名称为“控制”和“成绩表”这两个工作表不生成工作簿，应该怎么设置条件呢？

我尝试过用if 设置条件，但提示错误，望各位老师指点，谢谢！

liulang0808

1. Sub SaveToFile()
   
2.    '把各个班级的成绩表以工作簿的形式保存在指定的文件夹
   
3.    Application.ScreenUpdating = False '关闭屏幕更新
   
4.    Dim folder As String
   
5.    folder = ThisWorkbook.Path & "\班级成绩表"  '保存工作簿文件的目录
   
6.    If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder  '选择是否新建该文件夹
   
7.    Dim sht As Worksheet
   
8.    For Each sht In Worksheets
   
9.     If sht.Name <> "控制" And sht.Name <> "成绩表" Then
   
10.     sht.Copy                  '复制工作表到新工作簿
    
11.     ActiveWorkbook.SaveAs folder & "" & sht.Name & ".xlsx"  '保存工作簿，并命名
    
12.     ActiveWorkbook.Close
    
13.     End If
    
14.    Next
    
15.    Application.ScreenUpdating = True  '开启屏幕更新
    
16.    
    
17. End Sub

复制代码

Joyce_ZFY

liulang0808 发表于 2019-11-11 07:39

谢谢老师指教