将 Excel 连接到 Access - VBA答案

【问题标题】：Connect Excel to Access - VBA将 Excel 连接到 Access - VBA
【发布时间】：2012-12-17 16:50:11
【问题描述】：

我在执行以下代码时收到“未定义用户定义的类型”错误，并且

"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

【问题讨论】：

您好，您是否在 Tools->reference 中添加了 ActiveX？ support.microsoft.com/kb/257819
天哪，就是这样，它成功了！极好。请添加为答案，以便我为您加分。
我建议关闭问题，这个问题之前已经问过很多次了，你可以在SO或谷歌上搜索VBA ADODB REFERENCE找到解决方案。 :)
Cqn 我关闭了，如果是，如何关闭？还是只有模组才能做到？
你能看到 cmets 上方的share|edit|close|delete|flag 吗？ delete 如果没有，我可以将其作为答案..

标签： vba ado

【解决方案1】：

您可以执行以下操作之一

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

或在 VBA 编辑器中工具-->参考--> 添加Microsoft ActiveX Data Object X.Y Library

【讨论】：