ACCESS - Export Multiple Blank Header Lines

Hello,

I have a query that has been working correct for years. The client has 1 request, they want 3 BLANK header lines above the regular header and data.  What I have set up is:

A macro that runs three queries and a RunCode() Module. That Module runs and exports the final query and names the file.  How can I add these 3 blank header lines?  Thank you!
WO2015Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

als315Commented:
Is it text file? Can you show piece of code with export?
WO2015Author Commented:
Here is the module, the other items are just queries populating tables for this query to put all together for the output.

Function Discover()
DoCmd.OutputTo acOutputQuery, "CallReport", acFormatXLSX, "N:\CALLS_" & Format(Date, "mmddyy") & ".xlsx"
End Function
Rey Obrero (Capricorn1)Commented:
try this codes

Function ExportToExcel()
dim xlObj as Object, j as integer
dim rs as dao.recordset
set rs=currentdb.openrecordset("CallReport")
set xlObj=createObject("excel.application")
      xlObj.workbooks.add
     with xlObj
           for j=0 to rs.fields.count-1
                 .cells(4, j+1).value=rs(j).name
           next
                  .range("a5").copyfromrecordset rs

                   .activeworkbook.saveas  "N:\CALLS_" & Format(Date, "mmddyy") & ".xlsx"
     end with
      xlObj.quit

end function


another way is to open the excel file after your export and insert three blank lines on top

Function Discover()
DoCmd.OutputTo acOutputQuery, "CallReport", acFormatXLSX, "N:\CALLS_" & Format(Date, "mmddyy") & ".xlsx"
dim xlObj as object
set xlObj=createObject("excel.application")
      xlObj.workbooks.open  "N:\CALLS_" & Format(Date, "mmddyy") & ".xlsx"
     with xlOb
              .worksheets(1).activate
              .Rows("1:3").Select
              .Selection.Insert Shift:=-4121, CopyOrigin:=0
              .activeworkbook.save
      end with
      xlObj.quit
End Function

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
WO2015Author Commented:
Thank you, that worked perfectly!!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.