修复损坏的工作簿

应用对象

Microsoft 365 专属 Excel Excel 2024 Excel 2021 Excel 2019 Excel 2016

通过 Copilot 获取帮助

当 Microsoft Excel 在打开时检测到工作簿损坏时，它会自动启动文件恢复模式并尝试修复工作簿。如果文件恢复模式未启动，请尝试使用此手动过程恢复工作簿：

单击 “文件>打开”。
单击包含损坏的工作簿的位置和文件夹。
在“打开”对话框中，选择损坏的工作簿。
单击“打开”按钮旁边的箭头，然后单击“打开并修复”。
若要恢复尽可能多的工作簿数据，请选择 “修复”。
如果 “修复” 无法恢复数据，请选择“ 提取数据 ”以从工作簿中提取值和公式。

如果自动和手动修复都不起作用，有一些恢复方法可能有助于挽救数据。您也可以采取一些预防性措施以避免丢失所做的工作，方法是自动保存工作簿的备份副本或不时地创建恢复文件。

从损坏的工作簿恢复数据
自动保存工作簿的备份副本
以设置时间间隔自动创建恢复文件

从损坏的工作簿恢复数据

选择下列方法之一以帮助恢复您的数据。如果未成功，请尝试其他方法。还可以尝试第三方软件解决方案来尝试恢复工作簿。

重要

如果磁盘错误或网络错误导致您无法打开工作簿，请在尝试使用下列任何恢复选项之前，将工作簿移至不同的硬盘驱动器或本地磁盘。

当工作簿在 Excel 中打开时恢复数据

将工作簿还原为上次保存的版本：如果工作簿在工作期间损坏，但在保存更改之前，可以还原工作簿为上次保存的版本：
1. 单击 “文件>打开”。
2. 双击在 Excel 中打开的工作簿的名称。
3. 单击“是”，重新打开该工作簿。
  该工作簿将打开，其中不含任何可能导致工作簿损坏的更改。

当无法在 Excel 中打开工作簿时恢复数据

将 Excel 中的计算选项设置为手动：尝试将计算设置从自动更改为手动。因为这样不会重新计算工作簿，或许能够打开它。
1. 单击 “文件>新建”。
2. 在“新建”下，单击“空白工作簿”。
3. 单击 “文件>选项”。
4. 在“公式”类别中的“计算选项”下，选择“手动”，然后单击“确定”。
5. 单击 “文件>打开”。
6. 找到并双击损坏的工作簿以将其打开。
使用外部引用链接到损坏的工作簿：若要仅从工作簿中检索数据而不检索公式或计算值，请尝试使用外部引用链接到损坏的工作簿。
1. 单击 “文件>打开”。
2. 转到包含损坏的工作簿的文件夹。
3. 右键单击损坏的工作簿的文件名，单击“复制”，然后单击“取消”。
4. 单击 “文件>新建”。
5. 在“新建”下，单击“空白工作簿”。
6. 在新工作簿的单元格 A1 中，键入“=文件名!A1”，其中“文件名”是在步骤 3 中复制的损坏工作簿的名称，然后按 Enter。
  
  注意
  
  只需输入工作簿的名称，不必键入文件扩展名。
7. 如果出现“更新值”对话框，请选择损坏的工作簿，然后单击“确定”。
8. 如果出现“选择工作表”对话框，请选择适当的工作表，然后单击“确定”。
9. 选择单元格 A1。
10. 单击“复制开始>”，或按 Ctrl+C。
11. 选择大小与损坏工作簿中包含数据的单元格区域大致相同的区域（从单元格 A1 开始）。
12. 单击“粘贴开始>”，或按 Ctrl+V。
13. 在单元格区域仍处于选中状态的情况下，再次单击“ 主>页复制 ”，或按 Ctrl+C。
14. 单击“粘贴”下方的箭头“主页>”，然后在“粘贴值”下单击“值”。
  粘贴值可删除指向损坏的工作簿的链接，只保留数据。
使用宏从损坏的工作簿中提取数据：如果图表链接到损坏的工作簿，请尝试使用宏提取图表的源数据。
1. 复制下面的宏代码并将其粘贴到模块工作表：
  Sub GetChartValues()
  Dim NumberOfRows As Integer
  Dim X As Object
  Counter = 2
  ' 计算数据的行数。
  NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
  Worksheets("ChartData").Cells(1, 1) = "X Values"
  ' 将 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
2. 在工作簿中插入或删除工作表，右键单击其工作表标签，然后将其重命名为 ChartData。
3. 选择您要从中提取基础数据值的图表。
  
  注意
  
  图表可以嵌入在工作表中或嵌入在单独的图表工作表中。
4. 运行宏。
5. 图表中的数据将置于 ChartData 工作表中。