Sub 判断_指定名称的工作表是否存在_如果不存在_则插入工作表()

    Dim x As Integer                                        '对工作表进行循环的变量

    Dim sh As Worksheet

    Dim y As String

    Dim XinZeng_Shu As Integer                              '初始化时,需要增加的检查的新增工作表的个数

    Dim XinZeng_Ming As String                              '初始化时,新增工作表的名称

    Dim LinShi As Integer                                   '用来对初始化的工作表个数循环的变量

    Dim PanDuan_BiaoZhi As Boolean                          '判断需要增加的工作表是否存在(等于true说明存在,等于false说明不存在)

    XinZeng_Shu = 6

    For LinShi = 1 To XinZeng_Shu

         If LinShi = 1 Then

              XinZeng_Ming = "DF.2.IS"                      '利润表

         ElseIf LinShi = 2 Then

              XinZeng_Ming = "DF.3.SGP"                     '销售毛利表

         ElseIf LinShi = 3 Then

              XinZeng_Ming = "DF.4a.IOC"                    '间接费用表

         ElseIf LinShi = 4 Then

              XinZeng_Ming = "DF.4b.DOC"                    '直接费用表

         ElseIf LinShi = 5 Then

              XinZeng_Ming = "DF.6.BS"                      '负债表

         ElseIf LinShi = 6 Then

              XinZeng_Ming = "DF.10.Purchase record"        '采购记录表

         End If

         PanDuan_BiaoZhi = False                            '设置(判断是否存在的)默认数值

         For x = 1 To Sheets.Count

              If Sheets(x).Name = XinZeng_Ming Then

                    PanDuan_BiaoZhi = True                  '存在准备增加的工作表

              End If

         Next

         If PanDuan_BiaoZhi = True Then                     '存在工作表,则跳过

              GoTo AAA

         ElseIf PanDuan_BiaoZhi = False Then                '不存在工作表,则创建

              Set sh = Sheets.Add

              sh.Name = XinZeng_Ming                        '设置新增的工作表的名称

         End If

AAA:

    Next

    

End Sub