you can try something like
Code:
Public Sub OpenExcel(strFileName As String, strQueryName As String)
On Error GoTo Err_OpenExcel
Dim appExcel As Excel.Application
Dim wkbBooks As Excel.Workbooks
Dim wkbBook As Excel.Workbook
Dim wksSheet As Excel.Worksheet
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strQueryName, strFileName, True
Set appExcel = GetObject(, "Excel.Application")
Set wkbBooks = appExcel.Workbooks
Set wkbBook = wkbBooks.Add(strFileName)
Set wksSheet = wkbBook.Sheets(strQueryName)
wksSheet.Activate
With appExcel.ActiveWindow
.SplitColumn = 0
.SplitRow = 4
End With
appExcel.ActiveWindow.FreezePanes = True
appExcel.ActiveSheet.Range("A4").CurrentRegion.autofilter
wkbBook.Save
appExcel.Visible = True
Exit_OpenExcel:
Exit Sub
Err_OpenExcel:
If Err.Number = 429 Then 'excel is not running
Set appExcel = CreateObject("excel.application")
Resume Next
Else
MsgBox Err.Number & ": " & Err.Description
End If
Resume Exit_OpenExcel
End Sub
Don't forget to activate the Microsoft Excel Object library in the VBA -> references window