excel vba删除工作表运行时错误，下标超出范围

在使用Excel VBA（Visual Basic for Applications）进行编程时，遇到“下标超出范围”的错误通常是因为尝试访问或操作的工作表索引不存在。以下是一些基础概念、可能的原因、解决方案以及示例代码。

基础概念

• 工作表（Worksheet）：Excel中的一个工作表是一个包含多个单元格的平面表。
• 下标（Index）：在VBA中，工作表通常通过索引进行访问，索引从1开始。

可能的原因

1. 工作表不存在：尝试访问的工作表索引超出了实际存在的工作表数量。
2. 动态工作表：在运行时动态添加或删除工作表可能导致索引变化。
3. 拼写错误：工作表名称拼写错误或使用了错误的引用方式。

解决方案

1. 检查工作表是否存在：在删除工作表之前，先检查该工作表是否存在。
2. 使用正确的工作表引用：确保使用正确的工作表名称或索引。
3. 错误处理：使用On Error语句来捕获和处理错误。

示例代码

以下是一个示例代码，展示了如何安全地删除一个工作表，并处理可能的“下标超出范围”错误：

Sub SafeDeleteWorksheet(sheetName As String)
    On Error GoTo ErrorHandler
    
    ' 检查工作表是否存在
    If Not SheetExists(sheetName) Then
        MsgBox "工作表 '" & sheetName & "' 不存在。"
        Exit Sub
    End If
    
    ' 删除工作表
    Application.DisplayAlerts = False ' 关闭删除时的警告对话框
    ThisWorkbook.Sheets(sheetName).Delete
    Application.DisplayAlerts = True
    
    Exit Sub
    
ErrorHandler:
    MsgBox "发生错误: " & Err.Description
End Sub

Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    If Err.Number = 0 Then SheetExists = True
    On Error GoTo 0
End Function

解释

1. SafeDeleteWorksheet子程序：
   • 使用On Error GoTo ErrorHandler来捕获任何运行时错误。
   • 调用SheetExists函数检查工作表是否存在。
   • 如果工作表存在，则删除它，并关闭删除时的警告对话框。

• SheetExists函数：
  • 尝试设置一个工作表对象为指定的工作表名称。
  • 如果没有错误发生（Err.Number = 0），则工作表存在，返回True。
  • 使用On Error Resume Next和On Error GoTo 0来处理错误。

通过这种方式，可以有效避免“下标超出范围”的错误，并确保代码的健壮性。