ADODBレコードセット列ヘッダー

Question

ADODB.RecordsetデータをExcelファイルにコピーしていますが、列ヘッダーなしでレコードセットデータをExcelにコピーしています.MS Access 2013、CompyFromRecordsetコマンドを使用しています。

私の質問は、レコードセットのデータヘッダーをコピーする方法はありますか？

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 

（注：私は、コードをテストしていない。多少の誤差があるかもしれません。 ）