Check if a excel file is open

[Agent Smith]

I use this to open excel files within access. Should hopefully be the same. You may need to set reference library.

    Dim oXLApp2 As Excel.Application      'Declare the object variables    
   Dim oXLBook2 As Excel.Workbook
    Set oXLApp2 = New Excel.Application   'Create a new instance of Excel
    Set oXLBook2 = oXLApp2.Workbooks.Open(smslog) 'Open an existing workbook
    oXLApp2.Visible = True
    oXLBook2.Activate
    oXLApp2.Application.WindowState = xlMaximized
'    AppActivate (oXLApp2)
    AppActivate "Excel"
    Set oXLBook2 = Nothing
    Set oXLApp2 = Nothing