关于vba：编译器错误：未定义用户定义的类型

Compiler Error: User-defined types not defined

我在此行上收到编译时错误"未定义用户定义类型"：

1	Dim cn As ADODB.Connection

怎么了？

代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Sub test()

Dim cn As ADODB.Connection

'Not the best way to get the name, just convenient for notes

strFile = Workbooks(1).FullName
strCon ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile &";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
'For this to work, you must create a DSN and use the name in place of

'DSNName

'strSQL ="INSERT INTO [ODBC;DSN=DSNName;].NameOfMySQLTable" &"Select AnyField As NameOfMySQLField FROM [Sheet1$];"
strSQL ="SELECT F1 FROM [Sheet1$];"
cn.Execute strSQL
End Sub

相关讨论

我忘记添加对" Microsoft ActiveX数据对象2.5库"的引用：early binding需要此引用。

How to get to that reference:

工具>参考>选中" Microsoft ActiveX数据对象2.5库"前面的复选框。

Other libraries that work include:

Microsoft ActiveX数据对象2.6库

Microsoft ActiveX数据对象2.7库

Microsoft ActiveX数据对象2.8库

Microsoft ActiveX数据对象6.1库

您可以使用后期绑定：

1	Dim cn As Object

将使问题消失。当执行Set cn = CreateObject("ADODB.Connection")语句时，VBA将自动进行引用。