ADODB 记录集列 headers

Question

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

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

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

Answer 1

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

您必须通过遍历返回的记录集的字段名，自己将 header 放入您的 sheet 中，例如：

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

ADODB recordset column headers