你提到的Len(TableName.Connect) > 0方法确实有很大局限性——Access并不会自动更新链接表的Connect属性，哪怕源Excel文件已经被移动、删除或损坏，这个属性依然会保留最后一次成功链接时的内容。所以靠它判断链接有效性根本不靠谱，你没遗漏什么，只是这个方法本身就不适用于动态检测。

下面分享几个更可靠的检测方案，按实用性排序：

1. 使用TableDef.RefreshLink主动刷新链接（最直接） #

Access的TableDef对象有个RefreshLink方法，它会尝试重新建立与源文件的链接。如果链接失效（文件不存在、路径错误、工作表被删除等），这个方法会直接抛出错误，我们可以捕获这个错误来判断状态。

示例VBA代码：

Function IsExcelLinkValid(tableName As String) As Boolean
    Dim td As TableDef
    On Error Resume Next
    
    ' 获取目标链接表的TableDef对象
    Set td = CurrentDb.TableDefs(tableName)
    
    ' 尝试刷新链接
    td.RefreshLink
    
    ' 根据错误状态判断
    If Err.Number = 0 Then
        IsExcelLinkValid = True
    Else
        IsExcelLinkValid = False
        ' 可以在这里记录错误信息，比如Err.Description
        Debug.Print "链接失效：" & Err.Description
    End If
    
    On Error GoTo 0
    Set td = Nothing
End Function

调用方式：If IsExcelLinkValid("你的链接表名") Then ...

2. 尝试读取表数据（最直观） #

如果链接失效，尝试读取表中的任何数据都会触发运行时错误。我们可以用DCount或者打开记录集的方式，捕获这些错误来判断链接状态。

示例VBA代码：

Function CheckLinkedTableData(tableName As String) As Boolean
    Dim recordCount As Long
    On Error Resume Next
    
    ' 尝试统计记录数（不需要实际读取所有数据，DCount足够轻量）
    recordCount = DCount("*", tableName)
    
    If Err.Number = 0 Then
        CheckLinkedTableData = True
    Else
        CheckLinkedTableData = False
        Debug.Print "读取数据失败：" & Err.Description
    End If
    
    On Error GoTo 0
End Function

这个方法能覆盖更多场景，比如文件存在但工作表被重命名、文件损坏等情况，比单纯检查文件存在性更全面。

3. 解析Connect属性检查源文件存在性（辅助预检查） #

虽然Connect属性不能直接判断链接有效性，但里面包含了源Excel文件的路径。我们可以解析这个字符串提取路径，先检查文件是否存在，作为初步筛选。

示例VBA代码：

Function GetExcelSourcePath(tableName As String) As String
    Dim td As TableDef
    Dim connectParts() As String
    Dim i As Integer
    
    Set td = CurrentDb.TableDefs(tableName)
    ' 拆分Connect字符串，提取DATABASE=后面的路径
    connectParts = Split(td.Connect, ";")
    For i = LBound(connectParts) To UBound(connectParts)
        If Left(connectParts(i), 9) = "DATABASE=" Then
            GetExcelSourcePath = Mid(connectParts(i), 10)
            Exit For
        End If
    Next i
    Set td = Nothing
End Function

Function IsExcelFileExists(tableName As String) As Boolean
    Dim filePath As String
    filePath = GetExcelSourcePath(tableName)
    ' 检查文件是否存在
    IsExcelFileExists = (Dir(filePath) <> "")
End Function

注意：这个方法只能判断文件是否存在，无法检测文件内部的问题（比如工作表被删除），所以建议和前两种方法结合使用。

为什么Connect属性不靠谱？ #

Access的链接表Connect属性本质上是存储最后一次成功链接时的配置信息，它不会实时同步源文件的状态。只有当你手动修改链接、使用RefreshLink方法成功刷新，或者重新链接表时，这个属性才会更新。所以当源文件失效后，Connect依然会保留原来的路径，自然无法用来判断当前链接是否有效。

内容的提问来源于stack exchange，提问作者L.P.