Dim objExcelApp As Excel.Application

Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru])
objExcelApp.Visible = True