HI
Have a Nice Day

First of all download the S/q to recover Data Truely its very Good
www.phazeddl.com
and Download FINAL DATA 2 OK

Now ur solution for openiung Excel

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\a.xls")

Wait For Ur Acknoledgement
Best Regards
Scorpion