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 for Windows 7，但无法在Microsoft网站上找到它。他们为Windows 2003提供它 http://www.microsoft.com/en-in/download/details.aspx?id=20065

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

Answer 1

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

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

Adodb.Connection无法在Excel VBA OS中运行：Windows 7 pro 64位

1 个答案: