Export to csv with headers

W

Webtechie

Hello,

I've created some code to export some SQL to a csv file.

Now, I am told, the file should have the headers in the first row.

How do you add headers? Here is the code so far:

On Error Resume Next
' is run for the first time
With CurrentDb ' it would be better to check to see if the
' querydef exists and then delete it
.QueryDefs.Delete ("ExportFile")
' createquerydef command line follows
Set qdf = .CreateQueryDef("ExportFile", strSQL)
.Close
End With

Set qdf = Nothing

BatchFile = mCorpID & "_" & mAgentID & "_" & BatchMonth & BatchDay &
BatchYear & ".csv"
BatchFileName = ImportFolder & "\" & BatchFile

DoCmd.TransferText acExportDelim, "TempBatchFile Export_Spec", "ExportFile",
BatchFileName
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Problem with access acImportDelim importing csv with headers 1
Export with Format 8
SQL PassThrough query - CSV Error 5
How to check if a query exists and if it finds to delete 3
Number Formating 1
import csv files to access db 2
Export Access Query to a pipe delimited .csv file 5
Exporting csv file but headers not created 1

Top