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

我在行上收到錯誤“用戶定義的類型未定義”

   Dim cnt As ADODB.Connection

我看不到如何定義這種類型，因為那是我定義它的地方。

我犯什么錯誤？

Answer 1

確保在項目中設置了對“ Microsoft ActiveX數據對象庫”的引用（在“ 項目”>“引用”菜單下）：

如果沒有此設置，那么運行時環境將不了解ADODB庫，因此會引發未定義的錯誤。