求助：Oracle SQL VBA导出Excel时如何添加列名

CopyFromRecordset方法只会导出记录集中的数据行，不会自动包含列标题。要添加列标题，你可以遍历ADODB.Recordset的Fields集合，将每个字段的名称写入工作表的第一行，再把数据复制到第二行开始的位置。

修改后的完整代码如下：

Sub MACRO1()

  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim sConnString As String
  Dim wbNew As Workbook
  Dim i As Integer ' 用于遍历字段的索引

  ' 创建连接字符串
  sConnString = "Driver={Oracle in OraClient11g_home1};Dbq=EXAMPLEDB;Uid=USERNAME;Pwd=PASSWORD;"

  ' 初始化连接和记录集对象
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset

  ' 打开连接并执行查询
  conn.Open sConnString
  Set rs = conn.Execute("SELECT COLUMN1, COLUMN2, COLUMN3 FROM TABLE1 A WHERE FILTER1 = 'OPERATING' AND FILTER2 in('XY') AND FILTER3 LIKE ('EXAMPLE')")

  ' 检查是否返回数据
  If Not rs.EOF Then
    ' 创建新工作簿
    Set wbNew = Workbooks.Add
    With wbNew.Sheets(1)
      ' 写入列标题到第一行
      For i = 0 To rs.Fields.Count - 1
        .Cells(1, i + 1).Value = rs.Fields(i).Name
        ' 可选：设置表头样式，比如加粗
        .Cells(1, i + 1).Font.Bold = True
      Next i
      ' 从第二行开始复制数据
      .Range("A2").CopyFromRecordset rs
    End With

  Else
    MsgBox "错误：未返回任何记录。", vbCritical
  End If

  ' 关闭记录集和连接
  rs.Close
  If CBool(conn.State And adStateOpen) Then conn.Close

  ' 释放对象
  Set conn = Nothing
  Set rs = Nothing
  Set wbNew = Nothing

End Sub

关键说明： #

• 新增i变量用于遍历记录集的字段集合
• 通过rs.Fields(i).Name获取列标题，写入工作表第一行对应单元格
• 数据从A2开始复制，避免覆盖表头
• 可选添加了表头加粗样式，可根据需求调整

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