修復損毀的活頁簿

在 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 工作表中。

頁面頂端