Excel 2016（32位）连接Oracle数据库及循环执行查询技术求助

嘿，针对你在Excel 2016 32位下的Oracle查询需求，我分两部分给你详细的解决方案，都是实际项目里验证过的方法：

因为你用的是32位Excel，必须安装32位的Oracle驱动（哪怕你的系统是64位，也要找32位版本），常用的连接方式有两种：

ODBC 连接法 #

1. 先安装32位Oracle ODBC驱动：可以下载Oracle Instant Client的ODBC组件（注意版本要和你的Oracle服务器兼容）
2. 配置ODBC数据源：
   • 打开32位ODBC管理器（路径一般是C:\Windows\SysWOW64\odbcad32.exe，别打开64位的，否则Excel识别不到）
   • 切换到「系统DSN」标签，点击「添加」，选择你安装的Oracle ODBC驱动，然后填写数据源名称、Oracle服务名、用户名密码等信息，测试连接确保能成功。
3. VBA里的连接代码：

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
Dim connStr As String
' 替换成你配置的DSN名称、用户名、密码
connStr = "DSN=MyOracleDSN;UID=myUser;PWD=myPassword;"
conn.Open connStr

' 连接成功后就可以执行查询了，用完记得关闭
' conn.Close
' Set conn = Nothing

OLE DB 连接法 #

如果不想配置ODBC数据源，可以直接用OLE DB驱动，同样需要32位的OraOLEDB驱动：

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
Dim connStr As String
' 替换成你的Oracle服务名、用户名、密码
connStr = "Provider=OraOLEDB.Oracle;Data Source=MyOracleService;User ID=myUser;Password=myPassword;"
conn.Open connStr

查询逻辑建议放在VBA标准模块里，你可以和Sheet1的筛选脚本整合，或者单独写一个宏，执行方式可以是手动运行、按钮触发，或者Sheet1筛选完成后自动触发。

完整的循环查询代码示例 #

下面的代码会自动获取Sheet1筛选后的所有可见ID，循环执行Oracle查询，每次用新ID的结果覆盖Sheet2的内容：

Sub RunOracleIDQueries()
    ' 定义数据库对象
    Dim conn As Object, rs As Object
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 定义工作表对象
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1") ' 筛选后的ID所在工作表
    Set wsTarget = ThisWorkbook.Sheets("Sheet2") ' 结果保存的工作表，可替换成其他表
    
    ' 数据库连接字符串（这里用ODBC示例，你可以换成OLE DB的字符串）
    Dim connStr As String
    connStr = "DSN=MyOracleDSN;UID=myUser;PWD=myPassword;"
    
    ' 尝试连接数据库
    On Error GoTo ConnectionFail
    conn.Open connStr
    On Error GoTo 0
    
    ' 获取Sheet1筛选后的可见ID（假设ID在A列，表头在第1行）
    Dim idRange As Range, idCell As Range
    On Error Resume Next
    Set idRange = wsSource.Range("A2:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 判断是否有可见ID
    If idRange Is Nothing Then
        MsgBox "Sheet1筛选后没有可查询的ID记录！"
        Cleanup
        Exit Sub
    End If
    
    ' 循环每个ID执行查询
    For Each idCell In idRange
        ' 更安全的参数化写法（推荐，避免SQL注入）
        Dim cmd As Object
        Set cmd = CreateObject("ADODB.Command")
        cmd.ActiveConnection = conn
        cmd.CommandText = "SELECT * FROM your_table WHERE ID = ?"
        ' 根据你的ID类型调整参数：adVarChar=200（字符串），adInteger=3（数字），长度按需设置
        cmd.Parameters.Append cmd.CreateParameter("ID", 200, 1, 50, idCell.Value)
        Set rs = cmd.Execute
        
        ' 清空目标工作表并写入新结果
        wsTarget.Cells.Clear
        ' 写入表头
        Dim colIndex As Integer
        For colIndex = 0 To rs.Fields.Count - 1
            wsTarget.Cells(1, colIndex + 1).Value = rs.Fields(colIndex).Name
        Next colIndex
        ' 写入查询数据
        wsTarget.Cells(2, 1).CopyFromRecordset rs
        
        ' 清理当前查询的资源
        rs.Close
        Set cmd = Nothing
        
        ' 可选：添加提示，告知当前完成的ID
        ' MsgBox "已完成ID: " & idCell.Value & " 的查询"
    Next idCell
    
    ' 完成提示
    MsgBox "所有ID查询已执行完毕！"
    Cleanup
    Exit Sub
    
ConnectionFail:
    MsgBox "数据库连接失败：" & Err.Description
    Cleanup
    Exit Sub
    
Cleanup:
    ' 统一清理数据库资源
    If Not rs Is Nothing Then
        If rs.State = 1 Then rs.Close
        Set rs = Nothing
    End If
    If Not conn Is Nothing Then
        If conn.State = 1 Then conn.Close
        Set conn = Nothing
    End If
End Sub

执行方式选择 #

1. 手动运行：打开VBA编辑器（Alt+F11），找到这个宏，点击运行按钮即可。
2. 按钮触发：在Sheet2添加一个表单按钮，右键指定宏为RunOracleIDQueries，点击按钮就执行。
3. 自动触发：如果想在Sheet1筛选完成后自动运行，可以在Sheet1的代码模块里添加以下代码：

Private Sub Worksheet_Calculate()
    ' 因为筛选操作会触发Calculate事件，这里直接调用查询宏
    ' 可以加个判断避免重复触发，比如记录上次筛选状态
    RunOracleIDQueries
End Sub

关键注意事项 #

• 务必用32位Oracle驱动，否则32位Excel会提示找不到驱动。
• 用参数化查询替代直接拼接SQL，避免SQL注入风险，也能处理ID里的特殊字符。
• 如果要把结果保存到其他工作表，只要修改Set wsTarget = ThisWorkbook.Sheets("你的目标表名")即可。

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