VBA 用户定义类型未定义错误答案

【问题标题】：VBA User Defined Type not defined errorVBA 用户定义类型未定义错误
【发布时间】：2015-01-22 18:20:39
【问题描述】：

我正在尝试编写一个 vba 脚本来运行 SQL Select 脚本并将数据导入 Excel 中的命名范围，下面是我的代码；

Option Explicit
Dim cnt As ADODB.Connection
Dim rcrds As ADODB.Recordset

Public Sub Update_Scorecard_2()

Dim ssql As String
Dim myrange As Range

Application.ScreenUpdating = False

Set cnt = New ADODB.Connection

    cnt.Open "Provider=MSDAORA;Data Source=ODSPRD01;user ID=DWH_ADH;password=mypassword;"

Call runQuery(Range("DATA_DUMP_SQL").Value, Range("DATA_DUMP"))

cnt.Close

End Sub

我收到错误“未定义用户定义的类型”

   Dim cnt As ADODB.Connection

我看不出这种类型是如何未定义的，因为这是我定义它的那一行。

我犯了什么错误？

【问题讨论】：

标签： vba excel adodb

【解决方案1】：

确保您在项目中设置了对“Microsoft ActiveX 数据对象库”的引用（在Project > References 菜单下）：

如果您没有此设置，则运行时环境不知道 ADODB 库，因此会引发未定义错误。

【讨论】：