检测特定命名工作簿是否处于打开状态。错误53

Sub CheckWorkbookStatus()
    Dim filePath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim fso As Object
    
    ' 设置文件路径和文件名
    filePath = "C:\Path\To\Workbook\"
    fileName = "WorkbookName.xlsx"
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件是否存在
    If fso.FileExists(filePath & fileName) Then
        ' 检查文件是否处于打开状态
        On Error Resume Next
        Set wb = Workbooks(fileName)
        On Error GoTo 0
        
        If Not wb Is Nothing Then
            ' 文件处于打开状态
            MsgBox "工作簿已打开。"
            ' 进行其他操作...
        Else
            ' 文件未打开
            MsgBox "工作簿未打开。"
            ' 进行其他操作...
        End If
    Else
        ' 文件不存在
        MsgBox "工作簿不存在。"
        ' 进行其他操作...
    End If
    
    ' 释放对象
    Set wb = Nothing
    Set fso = Nothing
End Sub