2016-04-12 7 views
1

Ich kopiere ADODB.Recordset Daten in Excel-Datei, aber es kopiert die Datensatzdaten zu Excel ohne Spaltenüberschriften.Ich verwende MS Access 2013, CompyFromRecordset Befehl.ADODB-Recordset-Spaltenüberschriften

meine Frage ist, gibt es eine Möglichkeit, die Datenheader von RecordSet zu kopieren?

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

Antwort

3

A "Header" ist kein Datensatz und die CopyFromRecordset Befehl enthält nicht die Header.

Sie müssen den Header in Ihrem Blatt setzen Sie sich durch über den Feldnamen des zurück Cord-Iterieren, so etwas wie:

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

(Anmerkung: Ich habe den Code nicht getestet, es gab einige Fehler sein kann.)