excel - Adodb.Connection 在 Excel VBA 操作系统中不起作用：windows 7 pro 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，但在 Microsoft 网站上找不到相同的内容。他们有它适用于 Windows 2003 http://www.microsoft.com/en-in/download/details.aspx?id=20065

我们有什么解决方案吗？感觉就像它无法为 ADODB 创建对象一样。

Answer 1

这是一个编译错误吗？我认为在 Windows 7 中，您在 XP 32bit 上使用的库不再存在

VBA Editor Tools-->Reference--> Add Microsoft ActiveX Data Object XY Library