How to open Excel file from Microsoft Access 2007

How to open Excel file from Microsoft Access 2007

 strFileName = CopyMyFile("abc.xlsm")  
 Set appExcel = CreateObject("Excel.Application")  
 appExcel.Workbooks.Open strFileName  
 ' Put the data in the file  
 appExcel.Visible = True  
 Set appExcel = Nothing