VBA delete sheet抛出运行时错误9，但仍删除工作表

。

运行时错误9是VBA中的一个常见错误，表示"索引超出范围"。当我们尝试删除一个不存在的工作表时，就会抛出这个错误。尽管抛出了错误，但是工作表仍然会被删除。

解决这个问题的方法是在删除工作表之前，先检查工作表是否存在。可以使用Worksheet对象的Exists方法来判断工作表是否存在。下面是一个示例代码：

Sub DeleteSheet()
    Dim ws As Worksheet
    Dim sheetName As String
    
    sheetName = "Sheet1" '要删除的工作表名称
    
    '检查工作表是否存在
    If WorksheetExists(sheetName) Then
        '存在则删除工作表
        Application.DisplayAlerts = False '禁用警告提示
        Worksheets(sheetName).Delete
        Application.DisplayAlerts = True '启用警告提示
    End If
End Sub

Function WorksheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = Worksheets(sheetName)
    On Error GoTo 0
    
    WorksheetExists = Not ws Is Nothing
End Function

在上面的示例代码中，我们首先定义了一个名为DeleteSheet的子过程。在这个过程中，我们首先声明了一个Worksheet对象ws和一个字符串变量sheetName，用于存储要删除的工作表的名称。

然后，我们调用了一个名为WorksheetExists的函数来检查工作表是否存在。这个函数接受一个工作表名称作为参数，并返回一个布尔值，指示工作表是否存在。在函数内部，我们使用了On Error Resume Next语句来忽略任何可能的错误，然后尝试将指定名称的工作表赋值给ws变量。如果工作表存在，ws变量将被赋值为该工作表对象；否则，ws变量将保持为Nothing。最后，我们使用On Error GoTo 0语句恢复错误处理。

回到DeleteSheet过程，我们在删除工作表之前，先调用WorksheetExists函数来检查工作表是否存在。如果工作表存在，我们使用Application.DisplayAlerts属性来禁用删除工作表时的警告提示，然后调用Worksheets(sheetName).Delete语句来删除工作表。最后，我们再次启用警告提示。

这样，即使抛出了运行时错误9，工作表仍然会被删除。注意，在实际应用中，你需要将sheetName变量替换为你要删除的工作表的名称。

腾讯云相关产品和产品介绍链接地址：

云服务器（CVM）：提供可扩展的计算容量，满足不同规模业务的需求。了解更多：云服务器（CVM）
云数据库 MySQL：高性能、可扩展的关系型数据库服务，适用于各种规模的应用程序。了解更多：云数据库 MySQL
云存储（COS）：安全、高可靠、低成本的对象存储服务，适用于存储和处理各种类型的数据。了解更多：云存储（COS）
人工智能平台（AI Lab）：提供丰富的人工智能算法和模型，帮助开发者快速构建和部署人工智能应用。了解更多：人工智能平台（AI Lab）
物联网开发平台（IoT Explorer）：提供全面的物联网解决方案，帮助开发者连接、管理和控制物联网设备。了解更多：物联网开发平台（IoT Explorer）
区块链服务（Tencent Blockchain）：提供安全、高效的区块链解决方案，帮助企业构建和管理区块链应用。了解更多：区块链服务（Tencent Blockchain）
腾讯云元宇宙：提供全面的虚拟现实（VR）和增强现实（AR）解决方案，帮助开发者构建沉浸式的虚拟体验。了解更多：腾讯云元宇宙