修復損毀的活頁簿

開啟 Microsoft Excel 時若偵測到損毀的活頁簿，Microsoft Excel 會自動啟動 [檔案復原] 模式，並嘗試修復活頁簿。如果 [檔案復原] 模式沒有啟動，請嘗試使用這個手動程序來復原您的活頁簿：

按一下 [檔案] > [開啟舊檔]。
按一下包含損毀的活頁簿的位置和資料夾。
在 [開啟舊檔] 對話方塊中，選取損毀的活頁簿。
按一下 [開啟] 按鈕旁邊的箭號，然後按一下 [開啟並修復]。
若要盡可能復原活頁簿中的資料，請選擇 [修復]。

如果 [修復] 無法復原您的資料，請選擇 [抽選資料] 擷取活頁簿中的值和公式。

如果自動或手動修復無法運作方式，還有一些修復方法或許有助於挽救資料。您也可以透過自動儲存活頁簿的備份或隨時建立復原檔案，採取可避免遺失工作的一些預防性措施。

從損毀的活頁簿復原資料
自動儲存活頁簿的備份複本
在設定的時間間隔自動建立復原檔案

從損毀的活頁簿復原資料

選擇下列其中一個方法，協助復原您的資料。如果無法成功，請嘗試另一種方法。您也可以嘗試使用協力廠商軟體解決方案來復原活頁簿。

重要: 如果是磁碟錯誤或網路錯誤造成您無法開啟活頁簿，請將活頁簿移至不同的硬碟機或本機磁碟，再嘗試下列任一復原選項。

在 Excel 中開啟活頁簿時復原資料

將活頁簿回復到上次儲存的版本 如果在您使用活頁簿時，活頁簿在您儲存變更之前損毀，您可以將活頁簿回復到上次儲存的版本：
1. 按一下 [檔案] > [開啟舊檔]。
2. 按兩下您在 Excel 中開啟的活頁簿名稱。
3. 按一下 [是]，重新開啟活頁簿。
  
  活頁簿隨即開啟，但是不含可能造成活頁簿損毀的任何已完成變更。

在您無法以 Excel 開啟活頁簿時復原資料

將 Excel 中的計算選項設定為手動 請嘗試將計算設定從自動變更為手動。由於不會重新計算活頁簿，因此可能能夠開啟。
1. 按一下 [檔案] > [新增]。
2. 在 [新增] 下，按一下 [空白活頁簿]。
3. 按一下 [檔案] > [選項]。
4. 在 [公式] 類別中，按一下 [計算選項] 之下的 [手動]，然後按一下 [確定]。
5. 按一下 [檔案] > [開啟舊檔]。
6. 尋找並按兩下損毀的活頁簿以將它開啟。
使用外部參照連結至損毀的活頁簿 若只要從活頁簿擷取資料，不擷取公式或計算的值，請嘗試使用外部參照連結至損毀的活頁簿。
1. 按一下 [檔案] > [開啟舊檔]。
2. 前往含有損毀活頁簿的資料夾。
3. 以滑鼠右鍵按一下損毀活頁簿的檔案名稱，按一下 [複製]，然後按一下 [取消]。
4. 按一下 [檔案] > [新增]。
5. 在 [新增] 下，按一下 [空白活頁簿]。
6. 在新活頁簿的 A1 儲存格中，鍵入 =File Name!A1 (當中的 File Name 為您在步驟 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
  
  ' Calculate the number of rows of data.
  
  NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
  
  Worksheets("ChartData").Cells(1, 1) = "X Values"
  
  ' Write x-axis values to worksheet.
  
  With Worksheets("ChartData")
  
  .Range(.Cells(2, 1), _
  
  .Cells(NumberOfRows + 1, 1)) = _
  
  Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
  
  End With
  
  ' Loop through all series in the chart and write their values to
  
  ' the worksheet.
  
  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 工作表中。