我来帮你梳理下在这个特定环境下，用VBA借助已安装的ODAC 12.2c ODBC驱动连接Oracle 12c的具体操作和常见坑：

一、先确认ODBC数据源的基础配置（关键避坑点） #

因为你用的是32位Excel，必须用32位ODBC数据源管理器来配置，64位系统默认打开的是64位管理器，根本找不到你装的32位Oracle驱动：

• 打开路径：直接运行 C:\Windows\SysWOW64\odbcad32.exe
• 进入「用户DSN」或「系统DSN」标签，点击「添加」，找到你安装的Oracle ODBC驱动（名称一般是Oracle in OraClient12Home1这类格式）
• 配置时可以自定义数据源名称（比如Oracle_12c_Work），TNS服务名可以填数据库的TNS配置项，嫌麻烦也直接用EZCONNECT格式：//你的数据库IP:端口/服务名，用户名密码可以暂时不填，留到VBA代码里处理更灵活

二、VBA连接代码实现（两种常用方式） #

方式1：基于ODBC DSN连接（配置后更省心） #

Sub ConnectOracleWithDSN()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 后期绑定ADODB对象，不用额外添加引用，适配权限受限场景
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 替换成你自己的DSN名称、数据库用户名和密码
    Dim connStr As String
    connStr = "DSN=Oracle_12c_Work;UID=your_db_user;PWD=your_db_pwd;"
    
    On Error GoTo ConnectError
    ' 打开数据库连接
    conn.Open connStr
    
    ' 执行测试查询，比如获取Oracle服务器时间
    strSQL = "SELECT SYSDATE FROM DUAL"
    rs.Open strSQL, conn
    
    ' 将结果输出到Excel单元格
    If Not rs.EOF Then
        Range("A1").Value = "Oracle服务器当前时间"
        Range("A2").Value = rs(0).Value
    End If
    
    ' 释放资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Exit Sub
    
ConnectError:
    MsgBox "连接失败：" & Err.Description, vbCritical
    ' 确保出错时资源也能释放
    If Not rs Is Nothing Then rs.Close
    If Not conn Is Nothing Then conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

方式2：无DSN直接连接（更灵活，不用预先配置数据源） #

如果不想在ODBC管理器里配置DSN，直接用驱动名称写连接字符串即可：

Sub ConnectOracleWithoutDSN()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 替换驱动名称、数据库地址、端口、服务名、用户名和密码
    ' 驱动名称要和ODBC管理器里看到的完全一致，别写错
    Dim connStr As String
    connStr = "DRIVER={Oracle in OraClient12Home1};" & _
              "DBQ=//192.168.0.10:1521/ORCL;" & _
              "UID=your_db_user;" & _
              "PWD=your_db_pwd;"
    
    On Error GoTo ConnectError
    conn.Open connStr
    
    ' 示例：查询某张表的前10条数据并导入Excel
    strSQL = "SELECT * FROM YOUR_TABLE_NAME WHERE ROWNUM <= 10"
    rs.Open strSQL, conn
    
    ' 直接把查询结果导入到当前工作表的A1单元格开始的区域
    Range("A1").CopyFromRecordset rs
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Exit Sub
    
ConnectError:
    MsgBox "连接失败：" & Err.Description, vbCritical
    If Not rs Is Nothing Then rs.Close
    If Not conn Is Nothing Then conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

三、针对你的环境的常见问题排查 #

• 权限问题：因为你之前受限于工作站权限，要确保Excel运行的用户对ODAC安装目录（默认是C:\app\Oracle\product\12.2.0\client_1）有读取权限，尤其是network\admin下的TNS配置文件
• 位数不匹配：千万不要碰64位的ODBC驱动或管理器，全程用32位的，否则会直接提示“找不到驱动程序”
• TNS配置问题：如果用TNS服务名连接，要确认tnsnames.ora里的配置正确，并且Excel用户能读取该文件；嫌麻烦就直接用EZCONNECT格式，跳过TNS配置
• 引用问题：如果不想用后期绑定（CreateObject），可以在VBA编辑器里添加ADODB引用：「工具」→「引用」→勾选「Microsoft ActiveX Data Objects 6.1 Library」（必须选对应32位的版本）

内容的提问来源于stack exchange，提问作者Mike Shanahan