用户定义类型未定义
Sub GetTransfers()
Set Cnn = New ADODB.Connection '创建ADO对象
Cnn.Provider = "Microsoft.Jet.OLEDB.4.0" '设置ADO对象属性
Cnn.Open ThisWorkbook.Path & "\test.mdb" '打开数据库
Set Rst = New ADODB.Recordset '定义记录集
sSQL = "SELECT A1, A2, A3 FROM table1" '定义SQL语句
Rst.Open Source:=sSQL, ActiveConnection:=Cnn '提取数据
Range("A2:C65536").ClearContents '清除原有内容
Range("A2").CopyFromRecordset Rst '复制记录集
Rst.Close '关闭记录集
Cnn.Close '关闭ADO对象
End Sub
运行时出现“用户定义类型未定义”错误，求大神啊，交作业急急急 CNN 数据库 对象
[解决办法]
Set Cnn = New ADODB.Connection
变成
Set Cnn = CreateObject("ADODB.Connection")
还有这个：Set Rst = New ADODB.Recordset
也变成
Set Rst = CreateObject("ADODB.Recordset")
[解决办法]
dim cn as new adodb.connection
dim str as string
dim path as string
str="提供程序"
path="路径"
cn.open provider:=str,datasource:=path
