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

我收到错误 "User Defined Type Not Defined" 在线

   Dim cnt As ADODB.Connection

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

我犯了什么错误？

Answer 1

确保您在项目中设置了对 "Microsoft ActiveX Data Objects Library" 的引用（在 Project > References 菜单下）：

如果您没有此设置，运行时环境将不知道 ADODB 库，因此它会抛出一个未定义的错误。

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

VBA User Defined Type not defined error

excel

vba

adodb