Export query to a specified location on Excel

[EdwardSalas]

Greetings all,

I have the following code in which I'm utilizing to export my results from a query to a user defined location:

Dim strFilter As String
Dim strInputFileName As String
Dim strpath
Dim strSQL

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
strInputFileName = ahtCommonFileOpenSave(filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an output file...", _
Flags:=ahtOFN_HIDEREADONLY)
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "PAT_UPLOAD", strInputFileName

It works like a charm, but now I'm running into a problem that I did not forsee. The results of the information starts at the A1 cell location on the file which is messing with an upload process that the business has.

Is there a way to possibly have the results (with the header) start on A2 versus the standard A1?

Many thanks!

 

[bubba100]

If your using Access you might take a look at CopyFromRecordset