ADODB 记录集列标题

Question

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

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

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

Answer 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