In VBA it couldn't be simpler
Code:
Dim qryName as String
Dim strSave File as String
Dim xlApp As Object 'Excel.Application
Dim xlWb As Object 'Workbook
Dim xlWS As Object 'Worksheet
qyrName = "YourQueryName"
strsaveFile = CurrentProject.Path & "\SavedExports\Myfilename.xlsx"
DoCmd.TransferSpreadsheet acExport, 10, qryName, strSaveFile , True
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open(strsaveFile )
xlApp.Visible = True
This will export your query directly to a spreadsheet then open it.