我在这一行收到编译时错误“用户定义的类型未定义”:
Dim cn As ADODB.Connection
可能出什么问题了?
Code:
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 Data Objects 2.5 Library”的引用:此引用是必需的early binding
.
如何获取该参考:
工具 > 参考 > 选中“Microsoft ActiveX Data Objects 2.5 Library”前面的复选框
其他可用的库包括:
Microsoft ActiveX 数据对象 2.6 库
Microsoft ActiveX 数据对象 2.7 库
Microsoft ActiveX 数据对象 2.8 库
Microsoft ActiveX 数据对象 6.1 库
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)