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

Question

我正在尝试编写一个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

我收到错误＆＃34;用户定义类型未定义＆＃34;在线

   Dim cnt As ADODB.Connection

我没有看到这种类型是如何定义的，因为那是我定义它的行。

我犯了什么错误？

Answer 1

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

如果您没有此设置，则运行时环境不了解ADODB库，因此会抛出未定义的错误。