破損したブックを修復する

Excel でブックが開く場合にデータを回復する

• ブックを最後に保存したバージョンに戻す:    作業中にブックが破損したが、変更をまだ保存してなかった場合は、最後に保存したバージョンに戻すことができます。

  1. [ファイル]、[開く] をクリックします。

  2. 開いているブックの名前をダブルクリックします。

  3. ブックを再度開くには [はい] をクリックします。

     ブックは、ブックを破損させる原因となった可能性がある変更なしで開きます。

Excel でブックを開くことができない場合にデータを回復する

• Excel の計算方法の設定を手動に設定する:    計算の設定を自動から手動に変更します。 ブックが再計算されないため、開く場合があります。

  1. [ファイル] メニューの [新規] をクリックします。

  2. [新規作成] で、[空白のブック] をクリックします。

  3. [ファイル]、[オプション] の順にクリックします。

  4. [数式] カテゴリの [計算方法の設定] で、[手動] をクリックし、[OK] をクリックします。

  5. [ファイル]、[開く] をクリックします。

  6. 破損したファイルを探し、ダブルクリックして開きます。

• 外部参照を使用して破損したブックにリンクする:    ブックからデータのみを取得し、数式または計算した値を取得しない場合は、外部参照を使用して破損したブックにリンクします

  1. [ファイル]、[開く] をクリックします。

  2. 破損したブックが保存されているフォルダーを選びます。

  3. 破損したブックのファイル名を右クリックし、[コピー] をクリックし、[キャンセル] をクリックします。

  4. [ファイル] メニューの [新規] をクリックします。

  5. [新規作成] で、[空白のブック] をクリックします。

  6. 新しいブックのセル A1 に、「=ファイル名!A1」と入力し、Enter キーを押します (ファイル名は、手順 3 でコピーした破損したブックの名前です)。

     注:  ブックの名前だけを入力する必要があります。ファイル名の拡張子を入力する必要はありません。

  7. [値の更新] ダイアログ ボックスが表示されたら、破損したブックを選び、[OK] をクリックします。

  8. [シートの選択] ダイアログ ボックスが表示されたら、適切なシートを選び、[OK] をクリックします。

  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 ワークシートに配置されます。

ページの先頭へ