excel - OpenCurrentDatabase 的运行时错误 7866

Question

当我运行下面的代码时，我得到运行时错误 7866 :

Microsoft Access 无法打开数据库，因为它丢失或被其他用户以独占方式打开，或者它不是 ADP 文件。

此行抛出错误db.OpenCurrentDatabase "C:\Users\QE9142\Desktop\VES Mgmt Reports ONLY.mdb"
我正在尝试通过 Excel 打开保存在我的桌面上的 Access 数据库。

Sub Task()

Dim db As Access.Application
Dim strDB As String
Set db = New Access.Application
db.OpenCurrentDatabase "C:\Users\QE9142\Desktop\VES Mgmt Reports ONLY.mdb"
db.Application.Visible = True

End Sub

Answer 1

我无法复制此错误，但是当代码退出时，Access 也会退出。

插入将保存代码的 STOP 或其他事件:

Sub Task()

    Dim db As Access.Application
    Dim strDB As String

    Set db = New Access.Application
    db.OpenCurrentDatabase "C:\Users\QE9142\Desktop\VES Mgmt Reports ONLY.mdb"
    db.Application.Visible = True
    Stop    

End Sub

至于报错，尝试在Access中打开mdb，保存为accdb文件(Access 2007格式)。