ADODB recordset column headers

Question

Я копирую ADODB.Recordset данные в файл 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 = 1 To iFieldCount 
    objSheet.Range("A" & i) = rst.Field(i).Name 
Next i 

(Примечание: я не проверял код, там могут быть некоторые ошибки.)