<div>
This KB article <a href="http://support.microsoft.com/kb/246335" rel="ugc">http://support.microsoft.com/kb/246335</a>&nbsp;suggests the method below to add the field names to your worksheet and then to use the CopyFromRecordset method beginning on row 2<br />
<br />
<br />
&nbsp; &nbsp; ' Copy field names to the first row of the worksheet<br />
&nbsp; &nbsp; fldCount = rst.Fields.Count<br />
&nbsp; &nbsp; For iCol = 1 To fldCount<br />
&nbsp; &nbsp; &nbsp; &nbsp; xlWs.Cells(1, iCol).Value = rst.Fields(iCol - 1).Name<br />
&nbsp; &nbsp; Next<br />
<br />
OM Gang
</div>


This KB article http://support.microsoft.com/kb/246335 [http://support.microsoft.com/kb/246335] suggests the method below to add the field names to your worksheet and then to use the CopyFromRecordset method beginning on row 2


    ' Copy field names to the first row of the worksheet
    fldCount = rst.Fields.Count
    For iCol = 1 To fldCount
        xlWs.Cells(1, iCol).Value = rst.Fields(iCol - 1).Name
    Next

OM Gang

<div>
thank you, works perfectly.
</div>


<div>
<div class="content wysiwyg-content">
I am using the following code to export an Access query to Excel: &nbsp;<br />
&nbsp;Set sht = wbk.Sheets.Add<br />
&nbsp; &nbsp; sht.Name = &quot;Cost Data&quot;<br />
&nbsp; &nbsp; Set rs = CurrentDb.OpenRecordset(&quot;s<wbr />qryExportT<wbr />oAdmin_Cos<wbr />tDetails&quot;,<wbr /> , dbFailOnError)<br />
&nbsp; &nbsp; sht.Range(&quot;A2&quot;).CopyFromRe<wbr />cordset rs<br />
<br />
I would like the heading of the query to appear on row 1, is there a parameter I can turn on to include field headings?
</div>
</div>


I am using the following code to export an Access query to Excel:  
 Set sht = wbk.Sheets.Add
    sht.Name = "Cost Data"
    Set rs = CurrentDb.OpenRecordset("sqryExportToAdmin_CostDetails", , dbFailOnError)
    sht.Range("A2").CopyFromRecordset rs

I would like the heading of the query to appear on row 1, is there a parameter I can turn on to include field headings?

Eporting Access Query o Excel

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.