没有findOracle客户端和networking组件 – Excel VBA

我试图通过Excel连接到Oracle数据库。 我已经在我的机器上安装了Oracle的即时客户端,但是当我运行这个代码时得到这个消息:

Sub testing() Dim myConn As Connection: Set myConn = New Connection Dim mySet As Recordset: Set mySet = New Recordset Dim CONNSTRING As String CONNSTRING = "Driver={Microsoft ODBC for Oracle}; " & _ "CONNECTSTRING=(DESCRIPTION=" & _ "(ADDRESS=(PROTOCOL=TCP)" & _ "(HOST=xxxxxx.xxx.xxxxxxxxxxx.com)(PORT=1524))" & _ "(CONNECT_DATA=(SERVICE_NAME=dev))); uid=xxxxxxx; pwd=xxxxxxxxxxx;" myConn.Open CONNSTRING mySet.Open "SELECT * FROM apps.ap_invoice_lines_interface", myConn, adOpenStatic, adLockBatchOptimistic, adCmdTable Sheet1.Range("A1").CopyFromRecordset mySet mySet.Close myConn.Close End Sub 

我得到的消息是

没有findOracle(tm)客户端和networking组件。 这些组件由Oracle Corporation提供,是Oracle V7.3(或更高版本)客户端软件安装的一部分。 在安装这些组件之前,您将无法使用此驱动程序

当我们的桌面支持团队安装错误的Oracle客户端时,我经常看到这个错误。 如果您的应用程序(在这种情况下,Excel)是32位,那么您还需要使用32位ODBC和32位Oracle客户端。 不要紧,你的操作系统或硬件是64位。 重要的是应用程序。 而且,似乎大多数MS Office安装都是32位的,即使安装在64位Windows上也是如此。