生成与删除工作表

opklnm1108

求助，在打开该工作簿时，根据要求生成与删除工作表。非常感谢！！

marchwen01

代码供参考。。。。。

opklnm1108

请帮个忙，非常感谢

taller

Qs18

Sub sc() '单独增加ABC工作表
Dim sht As Worksheet, st As Worksheet
k = 0
For Each sht In Sheets
    If sht.Name = "ABC" Then
        k = k + 1
        MsgBox "ABC工作表已经存在   "
    End If
Next
If k = 0 Then
    Set st = Sheets.Add
    st.Name = "ABC"
End If
End Sub
Sub dl() '删除加增加ABC工作表
Application.DisplayAlerts = False
Dim sht As Worksheet, k, st As Worksheet
k = 0
arr = Array("ABC", "01", "02", "03", "04")
Set dic = CreateObject("scripting.dictionary")
For i = 0 To UBound(arr)
    dic(arr(i)) = 1
Next
For Each sht In Sheets
        If dic(sht.Name) Then
            If sht.Name = "ABC" Then k = k + 1
        Else
            sht.Delete
        End If
Next
If k = 0 Then
    Set st = Sheets.Add
    st.Name = "ABC"
End If
Application.DisplayAlerts = True
End Sub

Qs18

试一下.......

opklnm1108

Qs18 发表于 2024-6-13 07:23
试一下.......

我的意思是在打开这个工作簿时判断。将代码写在一起

chxw68

参与一下。

opklnm1108

taller 发表于 2024-6-13 07:06

非常感谢，我试一下

ykcbf1100

工作表判断、工作表新建、工作表删除