我正在复制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
“标头”不是一条记录，CopyFromRecordset命令不包含标头。
您必须通过迭代返回的记录集的字段名称，自行将标题放入工作表中，如下所示：
For i = 0 To rs.Fields.Count - 1
Cells(1, i + 1).Value = rs.Fields(i).Name
Next
Cells(2, 1).CopyFromRecordset rs
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
