Заголовки столбцов набора записей ADODB

Я копирую данные 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

vba ms-access adodb
person Tedo G.    schedule 12.04.2016    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Заголовок не является записью, и команда CopyFromRecordset не включает заголовки.

Вы должны сами поместить заголовок в свой лист, перебирая имена полей возвращаемого набора записей, например:

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