There is a series of commands to open an Excel:
************************
strFName = LCase(DBPath() & "\schdata.xls")
DoCmd OutputTo A_TABLE, "qfsubScheduleData", A_FORMATXLS, strFName, False
Main_ViewExcelFile strFName
******************
Sub Main_ViewExcelFile (ByVal strFile As String)
On Error GoTo Err_Main_ViewExcelFile
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open strFile
Set objExcel = Nothing
'Beep
'MsgBox "File " & strFile & " has been created. Please open the file using Excel.", MB_ICONINFORMATION
Exit_Main_ViewExcelFile:
Exit Sub
Err_Main_ViewExcelFile:
MsgBox "Error (" & Err & "): " & Error, MB_ICONExclamation
Resume Exit_Main_ViewExcelFile
End Sub