Dim objXL As Object
Dim objXLWB As Object
Dim MyBook As String
MyBook = CurrentProject.Path & "\YouExcelWorkBook.xlsx"
Set objXL = CreateObject("Excel.Application")
'if excel is opened, Set objXL = GetObject(, "Excel.Application"), when excel not opened or opened (workbooks won't show), objXL = CreateObject("Excel.Application")
Set objXLWB = objXL.workbooks.Open(MyBook)