ms-access - ADODB 记录集列标题

Question

我正在将 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

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