vba - 将 Excel 连接到 Access - VBA

Question

当我执行下面的代码时出现“用户定义的类型未定义”错误，

"objCon As ADODB.Connection"

在第一行突出显示。我正在尝试通过 VBA 代码设置从 Excel 到 Access 的连接。感谢您的任何建议!

Private objCon As ADODB.Connection
Private rstRec As ADODB.Recordset
Private strQry

Sub Connect()
   Dim strConn As String


   Set objCon = New ADODB.Connection
   objCon.Mode = adModeReadWrite

      If objCon.State = adStateClosed Then
         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\DB\Db.accdb;Persist Security Info=False;"
         objCon.ConnectionString = strConn
         objCon.Open
      End If
End Sub

Answer 1

您可以执行以下操作之一

set objCon  = CreateObject("ADODB.Connection")
set rstRec = CreateObject("ADODB.Recordset")

或者在 VBA 编辑器中工具-->引用-->添加 Microsoft ActiveX 数据对象 X.Y 库