1.按照office 2003提示的操作均无效.
2.用word(office 2003)打开excel文件,有100多页,显示一片空白,表格->转换->表格转换成文本不可选.
3.安装office2000重复上面1,2步操作,依然不行.
4.用excel recovery修复未果.并显示:no data to recover detected.
5.将该文件复制到其他电脑(2台以上),采用上述4种方法,亦不行.

个别（不是全部成功）情况下可以用Word、Access导入损坏的Excel文档，再存回Excel。

在Excel XP中手动恢复文件,Microsoft Excel 2002通过尝试重新打开并同时修复文件，为损坏文件提供自动恢复。Excel 在修复文件时识别进行了哪些更改。如果修复失败，Excel将再次尝试打开文件，但并不进行修复，而是提取单元格值和公式（仅保留数据）。但是，在某些情况下，Excel不会自动进入恢复模式，因此用户有必要手动恢复文件数据。

要手动修复文件
　　在“文件”菜单上，单击“打开”。
　　在“打开”对话框中，选择要打开的文件，并单击“打开”按钮旁边的箭头。
　　单击“打开并修复”，然后选择恢复工作薄所要使用的方法。

从损坏的工作薄中恢复数据的方法
　　您可以使用下面的附加方法，从损坏的文件中手动恢复数据。在某些情况下，磁盘错误或网络错误可能会导致无法打开文件。在这些情况下，您应当先将文件移动到另外一个硬盘驱动器或从网络移动到本地磁盘，然后花时间去执行本文所述的恢复操作。下列方法均可保存可能丢失的数据，因此如果一种方法失效，请尝试另一种方法。如果使用这些方法无法恢复数据，您也可以尝试第三方软件解决方案来恢复文件数据。
　　如果您可以在Excel中打开文件，使用“还原至保存的文档”命令
　　如果您正在编辑Excel工作表，并且在您保存更改之前文件损坏，您可以按照以下方法恢复原始工作表：
　　在“文件”菜单上，单击“打开”，选择正在编辑的文件的名称。
　　系统显示一个带有“还原至保存过的文档？”信息的对话框
　　单击“确定”。您正编辑的文件将恢复成该文件的上一次保存版本。

以超文本标记语言HTML格式保存文件
　　在可以打开损坏的Excel文件的情况下，如果您以HTML格式保存文件，然后关闭文件，之后重新打开文件，则可以将其进行“过滤”。如下所示：
　　在“文件”菜单中，单击“另存为”。在“保存类型”列表中，单击“Web页”。
　　在“保存”下，单击“整个工作薄”，然后单击“保存”。关闭文件。
　　在Excel中重新打开文件。
　　在“文件”菜单中，单击“另存为”。在“保存类型”列表中，单击“Microsoft Excel工作薄”。更改文件的名称以创建新的“过滤的”副本而不替换原始文件。
　　注意,以HTML格式保存文件将会丢失某些功能。
　　如果您不能在Excel中打开文件
　　在Excel中将重新计算选项设置为手动
　　启动Excel并打开一个空白工作薄（如果屏幕上没有打开的空白工作簿）。
　　在“工具”菜单上，单击“选项”。
　　单击“重新计算”选项卡。
　　在“计算”节，单击“手动重算”，然后单击“确定”。
　　在“文件”菜单上，单击“打开”，尝试打开文件。
　　使用外部引用链接至损坏的文件
　　此方法仅检索工作薄中的数据，而不检索公式或值。

　　在“文件”菜单上，单击“打开”。然后，从当前文件夹浏览至包含损坏文件的文件夹，单击“取消”。
　　单击“文件”菜单上的“新建”，单击“空白工作薄”，然后单击“确定”。
　　在新工作薄的 A1 单元格中键入“=文件名!A1”（其中“文件名”是损坏工作薄的名称）。如果显示“选择工作表”对话框，请选择适当的工作表，单击“确定”。
　　选择 A1 单元格，在“编辑”菜单上，单击“复制”。然后，选择与包含损坏文件中数据的单元格的范围差不多大小的区域，然后单击“编辑”菜单上的“粘贴”。
　　保持选定单元格的范围，单击“编辑”菜单上的“复制”。
　　在“编辑”菜单上，单击“选择性粘贴”，选择“值”，并单击“确定”。
　　此步骤删除指向损坏文件的链接，仅保留数据。

如果图表链接至损坏文件，请使用宏来提取数据
　　在模块工作表中输入下列宏代码：
　　Sub GetChartValues97()
　　Dim NumberOfRows As Integer
　　Dim X As Object
　　Counter = 2
　　' 计算数据的行数。
　　NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
　　Worksheets(ChartData).Cells(1, 1) = X 值
　　' 向工作表中写入 x 坐标轴值。
　　With Worksheets(ChartData)
　　.Range(.Cells(2, 1), _
　　.Cells(NumberOfRows + 1, 1)) = _
　　Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
　　End With
　　' 在图表的所有系列中循环并将它们的值写入
　　' 工作表。
　　For Each X In ActiveChart.SeriesCollection
　　Worksheets(ChartData).Cells(1, Counter) = X.Name
　　With Worksheets(ChartData)
　　.Range(.Cells(2, Counter), _
　　.Cells(NumberOfRows + 1, Counter)) = _
　　Application.Transpose(X.Values)
　　End With
　　Counter = Counter + 1
　　Next
　　End Sub
　　将新的工作表插入工作薄并重命名为 ChartData。
　　选择您要从中提取基础数据值的图表。
注意,图表可以是嵌入在工作表中或是在单独的图表工作表中。e