引用ACCDE/ACCDB库后，如何用VBA释放引用并移除LDB锁文件？

我之前也碰到过一模一样的糟心事——把accde/accdb当共享代码库用，手动或简单用VBA移除引用后，库目录里的LDB锁定文件死活不肯消失。折腾了好一阵，终于找到能彻底解决的方案，核心是确保Access完全释放对库文件的所有关联句柄，再主动清理锁定文件：

第一步：用VBA彻底移除引用，规避隐性残留 #

手动通过「工具→引用」移除经常会留下隐性的文件关联，直接操作VBProject的引用集合能更彻底：

Sub RemoveLibraryReference(libraryName As String)
    Dim ref As Reference
    Dim vbProj As VBProject
    
    Set vbProj = Application.VBE.ActiveVBProject
    
    ' 遍历所有引用，定位目标库并移除
    For Each ref In vbProj.References
        If ref.Name = libraryName Then
            vbProj.References.Remove ref
            Exit For
        End If
    Next ref
    
    ' 强制刷新VBProject缓存，避免残留关联
    vbProj.Saved = True
End Sub

注意：运行这段代码需要先开启对Microsoft Visual Basic for Applications Extensibility的引用，同时要确保数据库信任设置里启用了VBA项目对象模型（路径：文件→选项→信任中心→信任中心设置→宏设置）。

第二步：释放残留句柄并清理LDB文件 #

移除引用后，Access可能还悄悄持有库文件的句柄，这时候需要触发垃圾回收，再尝试删除锁定文件：

Sub CleanupLDBFile(libraryPath As String)
    Dim ldbPath As String
    ldbPath = Left(libraryPath, Len(libraryPath) - 4) & ".ldb"
    
    ' 触发VBA垃圾回收，强制释放未使用的对象句柄
    Dim tempObj As Object
    Set tempObj = Nothing
    DoEvents
    GC.Collect ' 需引用Microsoft Scripting Runtime，或用API替代
    
    ' 尝试删除锁定文件
    If Dir(ldbPath) <> "" Then
        On Error Resume Next
        Kill ldbPath
        On Error GoTo 0
        
        ' 验证删除结果
        If Dir(ldbPath) = "" Then
            Debug.Print "LDB锁定文件已成功清理"
        Else
            Debug.Print "LDB仍被占用，可等待几秒后重试或检查后台进程"
        End If
    End If
End Sub

要是不想额外引用库，也可以用Windows API强制释放句柄，但这种方法风险较高（可能导致Access不稳定），优先推荐上面的垃圾回收方案。如果是accde库，建议在删除前加个2-3秒的等待（比如写个简单的Wait函数），因为编译后的文件句柄释放会稍慢。

第三步：组合调用，完成全流程 #

把两个函数结合起来，一次搞定移除引用+清理锁定文件：

Sub RemoveReferenceAndCleanup(libraryName As String, libraryPath As String)
    RemoveLibraryReference libraryName
    ' 针对accde库可增加等待
    ' Wait 2
    CleanupLDBFile libraryPath
End Sub

调用示例：RemoveReferenceAndCleanup "MySharedCodeLib", "D:\AccessLibs\source.accde"

额外注意事项 #

• 要是LDB还是删不掉，打开任务管理器看看有没有残留的MSACCESS.EXE进程，有时候隐藏的后台进程会一直占用文件。
• 确保你的用户账号对库目录有写入权限，不然删除操作会失败。

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