【代码模板004】VBA快速删除工作表

在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表，那么运行时错误’1004‘就不期而遇的跳了出来。

老规则 —— 先删除再创建，删除工作表很简单嘛，Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口，Excel的产品经理考虑过宝宝们的用户体验吗！？删除工作表也搞得这么复杂，又不是从银行账户里转走500万。

每次都这么麻烦，必须拿出VBA来搞定它了。

Sub DelSheet(vShtName, Optional sWkName As String)
    Dim sName
    With Application
        .DisplayAlerts = False
        On Error Resume Next
        If Len(sWkName) > 0 Then
            Set objWk = ActiveWorkbook
        Else
            Set objWk = Workbooks(sWkName)
        End If
        If VBA.IsArray(vShtName) Then
            For Each sName In vShtName
                objWk.Sheets(sName).Delete
            Next
        Else
            objWk.Sheets(sShtName).Delete
        End If
        On Error GoTo 0
        .DisplayAlerts = True
    End With
End Sub

这个事儿整的似乎有点儿大，一句代码怎么被扩展成了20多行。莫急，俗话说工欲善其事，必先利其器，以后调用起来就so easy。

Sub Demo()
    '删除单个工作表
    DelSheet Array("sheet1")
    '删除多个工作表，并指定工作簿
    DelSheet Array("sheet3", "sheet4"), "MyData.xlsx"
End Sub

无论是当前工作簿还是其他工作簿，即可以删除单个工作表，又可以删除一组工作表，随心所欲一句代码就搞定。