VBA连接Oracle提取数据：如何获取10个不同变量而非重复结果

问题根源 #

你的代码里用rs.GetRows()获取的数据是列优先的二维数组，结构为mtxData(列索引, 行索引)。而Excel单元格区域赋值默认是行优先，直接把这个数组赋值给A1:A10时，Excel会重复读取数组的第一列（即所有行的第一个值）填充到每一行，导致出现10条相同记录。

另外你的SQL逻辑存在潜在问题：Oracle中rownum是在生成结果集前就应用的，原语句select distinct var from dataset where rownum <=10会先取前10条原始记录再去重，可能无法得到10个不同的var值。如果要确保获取10个不同值，SQL需要调整为：

select var from (select distinct var from dataset) where rownum <=10

三种修改方案 #

方案1：转置数组（最简修改） #

只需要修改赋值数组的代码，用Excel的Transpose函数把列优先数组转成Excel适配的行优先结构：

' 替换原赋值行
Worksheets(1).Range("a1:a10") = Application.Transpose(mtxData)

原理：Transpose函数会交换数组的维度，把(列,行)结构转为(行,列)结构，这样Excel就能正确匹配每一行的数据。

方案2：循环写入（适合理解基础逻辑） #

直接遍历数组的行维度，手动将每个值写入对应单元格：

' 替换原赋值代码块
Worksheets(1).Activate
For i = 0 To rs.RecordCount - 1
    ActiveSheet.Cells(i + 1, 1).Value = mtxData(0, i)
Next i

原理：因为只查询了var一列，所以数组的列索引固定为0，通过遍历行索引（从0到记录数-1），逐个将数组值写入Excel行（i+1对应第1到第10行）。

方案3：直接复制记录集（最优方案） #

用Excel原生的CopyFromRecordset方法，跳过数组转换步骤，代码更简洁高效：

Sub ConnectToOracle()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    ' 打开连接（移除多余空格，避免潜在连接问题）
    cn.Open _
        "User ID=USERID;" & _
        "Password=PASSWORD;" & _
        "Data Source=DATASOURCE;" & _
        "Provider=OraOLEDB.Oracle"
    
    ' 执行修正后的SQL，确保获取10个不同值
    rs.Open "select var from (select distinct var from dataset) where rownum <=10", cn, adOpenForwardOnly
    
    ' 直接从记录集复制数据到Excel，起始单元格为A1
    Worksheets(1).Range("A1").CopyFromRecordset rs
    
    ' 关闭资源（避免内存泄漏）
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

原理：CopyFromRecordset是Excel与ADODB记录集的原生适配方法，会自动识别记录集的行/列结构，直接将数据写入指定起始单元格，无需手动处理数组维度，效率更高，还能自动适配实际返回的记录数（不用硬写A1:A10）。

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