特别提醒：本人看博客园的消息还是比较少，如果对本文有疑问，可以发邮件到 shandongdxl2004@126.com 我看邮箱还是比较勤快的 ：）
（2019.08.02更新）本文内容在Windows10 企业版64bit下测试通过
本文主要内容：
- Oracle环境配置
- ODBC驱动设置、第三方驱动下载
- VBA连接Oracle连接方法
- Oracle10g官方免账号下载地址
- （2021年09月02日更新）关于连接数据库的问题
系统环境：
- Windows 7 64bit
- Excel 2016 64bit
- Oracle_win64_11gR2_client完整客户端（64bit）
1. VBA连接Oracle前的环境配置
如果想连接本地数据库，必须先安装Oracle服务器端。
我这里使用的是内网其他电脑上的Oracle数据库，这里只安装Oracle客户端就可以。
1.1 安装Oracle完整版客户端
网上应该有各种关于VBA连接Oracle的帖子了，不过之前我按他们说的尝试，都无法连接成功，可能是操作系统版本的问题。以下介绍我自己尝试成功的两种办法：
从Oracle官网的数据库下载列表中，选择对应自己操作系统版本的完整版客户端下载，需要注册Oracle网站的用户（这里我使用的是11G64bit版本）
下载好以后，解压，然后点击 client\setup.exe 安装程序。在步骤1/6中，选择“管理员”，在步骤4/7中，可能会提示你Environment variable:"PATH" 项目 状态失败，不用管，选择忽略即可。
安装完毕后进入安装目录的\Administrator\product\11.2.0\client_1\network\admin\tnsnames.ora中设置服务，也可以通过 Net Manager工具设置
1.2 使用连接工具测试连接
数据库配置好之后，使用PLSQL Developer 或者Navicat等连接工具，测试一下数据库是否可以正常登陆，可以正常使用的话，再进行下面这一步。
如果无法正常登陆，请返回去重新检查连接服务设置。
PS：数据连接工具推荐使用Navicat，可以同时连接不同的数据库，非常方便。
我常用的是11.0.16版本 下载地址 提取码: s5kt
1.3 配置ODBC驱动
进入“控制面板”-》“管理工具”-》“数据源”。点击“添加”，选择和1.1中对应版本的Oracle ODBC驱动（我这里是11.02.00.01），点击“完成”，然后会弹出设置界面如下：
DataSourceName： 该ODBC连接的名称
TNS Service Name：在1.1中你设置的连接名称，如果为空，则说明客户端设置出错，应重新检查是否正确设置了tnsname.ora
User ID：登录数据库的用户名
填写完以上三个选项后，可以使用Test Connection测试一下连接是否正常，测试正常的话进入下一步。
特别提醒：
可能你的本地有其他依赖Oracle的软件，如果产生冲突，可以同时安装32bit和64bit的客户端解决。
我这里的情况是本地软件必须使用32bit的，那么我就先安装了64bit的完整客户端，然后安装了32bit的简化版客户端，这样就互不影响了
友情提醒：
如果你安装的客户端位数和操作系统不同，是没法正常配置ODBC数据源的。如果你不想装两个版本的客户端，也可以使用第三方驱动。
第三方驱动我测试成功的是 devart odbc driver for oracle 不过这玩意要149刀，不花钱的话只能试用30天。
1.4 配置VBE环境
在Excel这边，需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE，在菜单栏选择“工具”－“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾选上，点击确定即可。 （如果不是这两个版本，则选择一个版本号最高的勾选即可）
2. VBA连接Oracle
在按照上述步骤配置了环境支持后，就可以在VBA中使用代码连接Oracle了。
首先需定义连接对象：
Dim conn as ADODB.Connection Set conn = new ADODB.Connection
这里也可以简写为：
Dim conn As New ADODB.Connection
连接数据库
strConn = "Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;" conn.Open strConn '打开数据库
连接字符串ConnectionString中的各个参数应该很明了，就不一一解释了。注意这里的driver 设置中必须正确填写驱动的版本号，在ODBC界面可以明显看到版本号及名称。
上一段代码也可以简写为
conn.Open "Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;" '打开数据库
再次提醒，Driver变量的值是必须要和数据源中添加的新数据源一致的，否则会提示找不到数据源。
至此，数据库连接成功！
可以使用连接对象的State属性和Version属性查看数据库状态和版本（检查是否连接成功）
MsgBox("连接成功！" & vbCrLf & "数据库状态：" & conn.State & vbCrLf & "数据库版本：" & conn.Version)
最后关闭数据库连接
conn.Close Set conn = Nothing
整个过程的完整代码如下：
Sub 连接Oracle数据库() '1. 引用ADO工具 '2. 创建连接对象 Dim conn As New ADODB.Connection '3. 建立数据库的连接 strConn ="Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;" conn.Open strConn MsgBox ("连接成功！" & vbCrLf & "数据库状态：" & conn.State & vbCrLf & "数据库版本：" & conn.Version) conn.Close Set conn = Nothing End Sub
至此，Oracle的连接方法就结束了，至于使用VBA操作数据库，可以参考我的上一篇文章
Excel VBA 连接各种数据库（一） VBA连接MySQL数据库
（2020年1月10日更新）——————————————————
如果出现无法连接数据库的情况，很有可能是因为没有配置ODBC数据源，VBA要求每个数据库都需要单独配置一个数据源。
（2021年9月02日更新）——————————————————
有时候可能出现报错信息： ORA-01013: 用户请求取消当前的操作
这可能是由于数据量太大，查询数据库时间过长，连接被关闭导致，网上提到的解决方法也不止一种，这里写一个VBA代码里的解决方法
只需要在连接串内增加一个参数即可：QTO=F; 表示放开对连接时间的限制，加上以后的连接串为：
strConn ="Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;QTO=F;"
我自己遇到问题的时候，一个查询花了大概130秒，不加就一直报错，加上这个参数后正常。
参考文献：ORA-01013:用户请求取消当前的操作 （csdn博客）
3. Oracle10g下载资源分享
如果要连接Oracle，需要安装完整版的客户端
从官网下载这些软件，你需要一个OTN免费帐号，不过如果通过迅雷进行下载，就不用登陆OTN了：（直接复制下载链接即可）
Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Microsoft Windows (32-bit)
http://download.oracle.com/otn/nt/oracle10g/10201/10201_database_win32.zip
http://download.oracle.com/otn/nt/oracle10g/10201/10201_client_win32.zip
http://download.oracle.com/otn/nt/oracle10g/10201/10201_clusterware_win32.zip
http://download.oracle.com/otn/nt/oracle10g/10201/10201_gateways_win32.zip
Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Microsoft Windows (x64)
http://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_database.zip
http://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_client.zip
http://download.oracle.com/otn/nt/oracle10g/10201/102010_win64_x64_clusterware.zip
Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Linux x86
http://download.oracle.com/otn/linux/oracle10g/10201/10201_database_linux32.zip
http://download.oracle.com/otn/linux/oracle10g/10201/10201_client_linux32.zip
http://download.oracle.com/otn/linux/oracle10g/10201/10201_gateways_linux32.zip
Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Linux x86-64
http://download.oracle.com/otn/linux/oracle10g/10201/10201_database_linux_x86_64.cpio.gz
http://download.oracle.com/otn/linux/oracle10g/10201/10201_client_linux_x86_64.cpio.gz
http://download.oracle.com/otn/linux/oracle10g/10201/10201_clusterware_linux_x86_64.cpio.gz
http://download.oracle.com/otn/linux/oracle10g/10201/10201_gateways_linux_x86_64.cpio.gz
Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for AIX5L
http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_database.cpio.gz
http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_client.cpio.gz
http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_cluster.cpio.gz
http://download.oracle.com/otn/aix/oracle10g/10201/10gr2_aix5l64_gateways.cpio.gz
Oracle Database 10g Release 2 (10.2.0.2) Enterprise/Standard Edition for Solaris Operating System (x86)
http://download.oracle.com/otn/solaris/oracle10g/10202/10202_database_solx86.zip
http://download.oracle.com/otn/solaris/oracle10g/10202/10202_client_solx86.zip
http://download.oracle.com/otn/solaris/oracle10g/10202/10202_clusterware_solx86.zip
Oracle Database 10g Release 2 (10.2.0.1.0) Enterprise/Standard Edition for Solaris Operating System (x86-64)
http://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_database_solx86_64.zip
http://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_client_solx86_64.zip
http://download.oracle.com/otn/solaris/oracle10g/10201/x8664/10201_clusterware_solx86_64.zip
特别提醒：本人看博客园的消息还是比较少，如果对本文有疑问，可以发邮件到 shandongdxl2004@126.com 我看邮箱还是比较勤快的 ：）
