As a start this might work.
Assume your file is called MyFile and is located in C:MyDocs. Assume also that your data is on Sheet1 in the file.
Open a new workbook and in cell A1 type:
If you're lucky this formula will return the value in cell A1 of the corrupted file.
Copy the formula down and across to recover as much as you can, then convert the formulas to values and save the new workbook.
Note this only recovers values, not formulas.