ADODB记录集列标题

Question

我正在将 ADODB.Recordset 数据复制到 Excel 文件中，但是它会将 RecordSet 数据复制到 Excel 中而没有列标题。我正在使用 MS Access 2013，CompyFromRecordset 命令。

我的问题是，有没有办法复制 RecordSet 的数据头？

For i = 0 To iFieldCount - 1
    objSheet.Range("A" & i + 1).CopyFromRecordset rst
    objBook.Save
Next i

- Tedo G.

Answer 1

“Header”不是记录，CopyFromRecordset命令不包括标题。

您必须通过迭代返回的记录集中的字段名称自己将标题放入表格中，例如：

For i = 0 To rs.Fields.Count - 1
    Cells(1, i + 1).Value = rs.Fields(i).Name
Next
Cells(2, 1).CopyFromRecordset rs

- Paul Ogilvie