VBA技术问询：如何检查已创建的Workbook对象是否有效

当Workbook被手动关闭后，对应的对象变量不会自动变为Nothing，常规的Is Nothing、IsNull等判断方法无法检测出对象已失效，此时可以通过以下两种可靠方法来检查：

方法1：错误捕获法（推荐） #

尝试访问Workbook的核心属性（如Name），如果对象已失效，访问属性会触发自动化错误，通过捕获错误状态判断有效性：

Function IsWorkbookValid(ByVal wb As Workbook) As Boolean
    On Error Resume Next
    Dim tempName As String
    tempName = wb.Name ' 尝试访问属性，失效对象会触发错误
    IsWorkbookValid = (Err.Number = 0)
    On Error GoTo 0 ' 恢复错误处理
End Function

使用示例： #

If IsWorkbookValid(dWorkbook) Then
    Debug.Print "Workbook处于有效状态"
Else
    Debug.Print "Workbook已关闭或失效"
End If

方法2：检查Workbooks集合 #

关闭后的Workbook会从Application.Workbooks集合中移除，可通过判断对象是否存在于集合中来验证有效性：

Function IsWorkbookValid(ByVal wb As Workbook) As Boolean
    Dim targetWB As Workbook
    On Error Resume Next
    ' 尝试通过名称获取工作簿，再判断是否为同一对象
    Set targetWB = Application.Workbooks(wb.Name)
    IsWorkbookValid = Not (targetWB Is Nothing) And (targetWB Is wb)
    On Error GoTo 0
End Function

注意：如果存在同名的打开工作簿，此方法可能出现误判，因此优先使用方法1。

原理说明 #

手动关闭Workbook后，对象变量持有一个悬垂COM引用：它仍然是一个对象（所以IsObject返回True），但指向的实际资源已被释放，此时访问对象的属性或方法会触发错误，这也是错误捕获法有效的原因。

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