运行VBA工作表检查代码时遇运行时错误9，请求协助解决

你的代码核心问题是未启用错误处理：当指定名称的工作表不存在时，Set WS = ThisWorkbook.Sheets(SheetName)会直接触发“下标越界”错误，因为Sheets集合找不到对应元素。另外“expecting object to be local”通常是编辑器对变量作用域的提示，不影响运行，但规范写法可以优化。

以下是修复后的完整代码：

Sub Check_Sheet_Exists()
    Dim WS As Worksheet
    Dim SheetName As String
    
    SheetName = "ABCD"
    
    ' 启用错误处理，捕获工作表不存在的情况
    On Error Resume Next
    Set WS = ThisWorkbook.Sheets(SheetName)
    ' 重置错误处理，避免后续代码错误被忽略
    On Error GoTo 0
    
    If WS Is Nothing Then
        ' 新建工作表并直接赋值给变量，避免依赖ActiveSheet
        Set WS = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        WS.Name = SheetName
        MsgBox "The sheet '" & SheetName & "' was created."
    Else
        MsgBox "The sheet '" & SheetName & "' already exists."
    End If
End Sub

关键修改说明 #

• 取消注释On Error Resume Next：这行代码让VBA遇到错误时继续执行，当工作表不存在时，WS会被设为Nothing，而非直接报错。
• 新增On Error GoTo 0：重置错误处理机制，确保后续代码的错误能正常触发，避免隐藏其他问题。
• 直接引用新建工作表对象：用Set WS = Sheets.Add(...)替代ActiveSheet.Name，避免因当前活动表变化导致的命名错误，代码更健壮。

内容的提问来源于stack exchange，提问作者Hasan