vba自动增加一个工作表并命名

vba自动增加一个工作表并命名

----------------------------------

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