如何为新建外部MS Access数据库添加引用库？代码报错修复

问题根源 #

你遇到的运行时错误'9'，核心原因是刚创建的数据库还没在Access实例中打开，对应的VBE项目还未初始化。CreateDatabase只是在磁盘上生成了数据库文件，但并没有在你创建的accessApp实例里加载它，所以VBProjects(1)自然不存在，导致下标越界。另外你代码里的accessApp.Application是多余的——accessApp本身就是Access.Application对象，直接用accessApp.VBE就可以了。

修改后的完整代码 #

Sub makeDb(fl As String)
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    '检查文件是否已存在
    If Not fs.FileExists(fl) Then
        Dim accessApp As Access.Application
        Set accessApp = New Access.Application
        
        '1. 创建数据库后必须先打开，才能加载对应的VBE项目
        accessApp.DBEngine.CreateDatabase fl, dbLangGeneral
        accessApp.OpenCurrentDatabase fl
        
        '2. 直接通过accessApp访问VBE项目，无需额外嵌套.Application
        Dim targetVbProj As VBIDE.VBProject
        Set targetVbProj = accessApp.VBE.VBProjects(1)
        Dim targetVbRefs As VBIDE.References
        Set targetVbRefs = targetVbProj.References
        
        '获取当前数据库的引用集合
        Dim curVbProj As VBIDE.VBProject
        Set curVbProj = Application.VBE.VBProjects(1)
        Dim curVbRef As VBIDE.Reference
        
        For Each curVbRef In curVbProj.References
            '跳过VBA内置引用（每个数据库默认自带，重复添加会报错）
            If curVbRef.Guid <> "{000204EF-0000-0000-C000-000000000046}" Then
                On Error Resume Next '捕获目标机器缺失对应库的情况，避免代码中断
                targetVbRefs.AddFromGuid _
                    Guid:=curVbRef.Guid, _
                    Major:=curVbRef.Major, _
                    Minor:=curVbRef.Minor
                On Error GoTo 0
            End If
        Next
        
        '关闭数据库并退出Access实例
        accessApp.CloseCurrentDatabase
        accessApp.Quit
        Set accessApp = Nothing
    End If
End Sub

关键改动说明 #

• 打开数据库：新增accessApp.OpenCurrentDatabase fl，确保数据库在Access实例中加载，VBE项目随之初始化，VBProjects(1)就能正常访问了。
• 简化VBE访问路径：把冗余的accessApp.Application.VBE.VBProjects(1)改成accessApp.VBE.VBProjects(1)，因为accessApp本身就是Application对象。
• 跳过默认引用：添加了对VBA内置引用的判断，避免重复添加导致的错误。
• 错误捕获：加入On Error Resume Next处理可能的引用缺失问题（比如目标机器没有安装对应库文件），防止代码中途中断。

关于“为外部数据库添加引用”的问题 #

完全可以为外部数据库添加引用，但需要满足两个前提：

1. 必须在Access实例中打开该外部数据库（就像我们上面做的那样），因为引用属于VBA项目，只有打开数据库才能加载其VBA项目。
2. 确保Access信任中心允许访问VBA项目对象模型：
   • 打开Access选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选“信任对VBA项目对象模型的访问”

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