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

A＆＃34;标题＆＃34;不是记录，CopyFromRecordset命令不包含标题。

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

For i = 1 To iFieldCount
    objSheet.Range("A" & i) = rst.Field(i).Name
Next i

（注意：我没有测试代码;可能存在一些错误。）