尝试重新连接时出现“运行时错误'-2147467259（80004005）未指定错误”

Question

我正在构建一个Excel电子表格，以使用自定义的Excel加载项从服务器获取某些数据（表格格式）。之后，我需要修改该表，我认为最好的方法是使用ADODB连接到同一个Excel电子表格和SQL查询。

当我尝试使用在与Excel加载项连接之前使用的Microsoft ACE OLEDB 12.0驱动程序建立ADODB连接时，我总是得到相同的错误：

  

运行时错误'-2147467259（80004005）
  未指定的错误

这是我用来建立ADODB连接的代码：

Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim sconnect As String

Set Conn = New ADODB.Connection
DBPath = ThisWorkbook.FullName
sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
     & DBPath & ";" & "Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
Conn.Open sconnect
Conn.Close

如果我交换连接顺序，首先使用ADODB连接到我的Excel，然后使用外接程序连接到外部服务器，我不会收到此错误。

问题是，有时我已经使用不同的电子表格建立了加载项连接，当我使用ADODB连接打开此电子表格时，会触发错误，因为如果我不重新启动，Excel会保留该插件连接Excel会话。

我尝试过循环Excel连接，但它没有选择插件连接：

    For i = 1 To ActiveWorkbook.Connections.Count

    Next

有没有办法知道/调试我收到此错误的原因。