将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 Data Object X.Y Library