。
运行时错误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
变量替换为你要删除的工作表的名称。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云