Adodb.Connection不能在Excel中工作VBA操作系统：Windows 7专业版64位

Question

我有一个带有VBA代码的Excel文件，用于从在Windows XP上运行的Oracle数据库导入数据。

当我在Windows 7 SP1 64位上尝试时，我在下面的代码的第一行出现错误。

Function getConnection2() As ADODB.Connection 
    Dim cnn As New ADODB.Connection 
    Dim strCnn As String 

    strCnn = "Data Source=XXXXX;User ID=XXXXX;Password=XXXXXXX;" 
    cnn.Provider = "OraOLEDB.Oracle" 
    cnn.ConnectionString = strCnn 

    cnn.Open 
    Set getConnection2 = cnn 
End Function 

错误：编译错误：自动化错误

我搜索MSDASQL为Windows 7，但无法找到微软网站一样。他们有它的Windows 2003 http://www.microsoft.com/en-in/download/details.aspx?id=20065

我们有任何解决方案，感觉就像它无法为ADODB创建对象。

Answer 1

这是一个complie错误吗？ 我想在Windows 7中，你在XP 32位使用的库不再有

VBA编辑器工具 - >参考 - >添加Microsoft ActiveX数据对象库X.Y