Option Compare Database 
Option Explicit 
 
 
Sub OpenSpecific_xlFile() 
     '   Late Binding (Needs no reference set)
    Dim oXL As Object 
    Dim oExcel As Object 
    Dim sFullPath As String 
    Dim sPath As String 
     
     
     '   Create a new Excel instance
    Set oXL = CreateObject("Excel.Application") 
     
     
     '   Only XL 97 supports UserControl Property
    On Error Resume Next 
    oXL.UserControl = True 
    On Error GoTo 0 
     
     
     '   Full path of excel file to open
    On Error GoTo ErrHandle 
    sFullPath = CurrentProject.Path & "\TestFile.xls" 
     
     
     '   Open it
    With oXL 
        .Visible = True 
        .Workbooks.Open (sFullPath) 
    End With 
     
     
ErrExit: 
    Set oXL = Nothing 
    Exit Sub 
     
ErrHandle: 
    oXL.Visible = False 
    MsgBox Err.Description 
    GoTo ErrExit 
End Sub 
 
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' Run it from a form button
 
Private Sub cmdOpenExcelFIle_Click() 
     '   Access form button
    Call OpenSpecific_xlFile 
     
End Sub