excel - 打开 ADODB 连接时出现 "Unspecified error"

Question

我面对 “未指定的错误”在 只有一台电脑我的用户。

Run-time error '-2147467259 (80004005)':
Unspecified error

我正在运行以下 VBA 代码来打开与位于网络共享驱动器中的 Access 数据库的连接。但是 代码在尝试运行 .Open 时抛出错误。声明 .

我认为这是驱动程序问题，并在用户的 PC 中安装了 Access 2007 数据库引擎，并将提供程序替换为“ Microsoft.ACE.OLEDB.12.0”，但它不起作用。

代码:

 Dim cn As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim retVal As Boolean
 Dim strSQL As String
 retVal = False

    On Error GoTo CatchError
     Set cn = New ADODB.Connection

     With cn
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .Properties("Jet OLEDB:Database Password") = Initialize.GetDBPwd 'returns pass
     .Open Initialize.GetDbConnectionString 'returns the network DB path
    End With

Answer 1

从本地 Excel 文件到另一个本地 Excel 文件建立 ADODB 连接时，我遇到了同样的问题。

我解决它的唯一方法是重开主 Excel 文件 我从中进行连接。没有做任何其他事情，并且该功能再次起作用。

我的连接功能:

Sub SetConReadOnly(ByRef con1 As Object, ByRef rst1 As Object, sFile As String)
    If con1 Is Nothing Then Set con1 = CreateObject("ADODB.Connection")
    If rst1 Is Nothing Then Set rst1 = CreateObject("ADODB.Recordset")

    con1.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
     "Data Source=" & sFile & ";" & _
     "Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
End Sub

(我使用 Office 2013 32 位，Windows 7 64 位)