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格式)。