ADODB recordset sütun başlıkları

Question

Ben excel dosyasına ADODB.Recordset veri kopyalıyorum, ancak kayıt defteri verileri sütun başlıkları olmadan excel'e kopyalar. MS Access 2013, CompyFromRecordset komutunu kullanıyorum.

Sorum şu ki, Kayıt Defteri'nin veri başlıklarını kopyalamanın herhangi bir yolu var mı?

For i = 0 To iFieldCount - 1 
    objSheet.Range("A" & i + 1).CopyFromRecordset rst 
    objBook.Save 
Next i 

Answer 1

Bir "başlığı" rekor değildir ve CopyFromRecordset komut başlıklarını içermez.

Döndünüz kümesinin FIELDNAMES yineleme ederek levha kendine başlığını koymak gerekir gibi bir şey:

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

(Not: Ben kodu test vermedi; bazı hatalar olabilir.