vba - 在 VBA 中设置与 access 数据库的连接会导致 excel 崩溃

Question

这是我用来从 excel 打开到 access 数据库的连接的代码。它曾经工作一年多。

Set dbname = New ADODB.Connection
theconnection = "//xxx.sharepoint.com/sites" & Application.PathSeparator & TARGET_DB
With dbname
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open theconnection
End With

通过尝试错误，我得出的结论是这条线导致了问题。

Set dbname= New ADODB.Connection

问题在我的电脑自动更新后开始
我的 Excel 版本 2016 MSO (16.0.7726.1036) 32 位

如果您也遇到此问题，以及您是否知道任何修复或解决方法，请告诉我。

Answer 1

尝试取消选中您的“ActiveX 数据对象”引用并将它们添加回来:

工具 - 引用

或者

使用对象定义数据库:

 Dim dbname As Object
 Set dbname = CreateObject("ADODB.Connection")

或者

如果您像这样创建连接变量:

Dim con as New ADODB.Connection

将其更改为:

Dim con as ADODB.Connection
Set con = New ADODB.Connection