ADODB 记录集列标题

【问题标题】：ADODB recordset column headersADODB 记录集列标题
【发布时间】：2016-08-02 19:14:12
【问题描述】：

我正在将 ADODB.Recordset 数据复制到 excel 文件，但它会将记录集数据复制到没有列标题的 excel。我使用的是 MS Access 2013，CompyFromRecordset 命令。

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

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

【问题讨论】：

【解决方案1】：

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

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

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

【讨论】：