ADODB記錄集列標題

Question

我將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 

Answer 1

「標題」不是記錄，並且CopyFromRecordset命令不包含標題。

你必須把你的表自己的頭通過循環返回的記錄的字段名，是這樣的：

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

（注：我沒有測試的代碼，可能會有一些錯誤。 ）