Поправяне на повредена работна книга

Възстановяване на данни, когато работната книга е отворена в Excel

• Връщане на работната книга към последната записана версия    Ако работната книга се повреди, докато работите в нея, но преди да запишете промените си, можете да върнете работната си книга до последната записана версия:

  1. Щракнете върху Файл > Отвори.

  2. Щракнете двукратно върху името на работната книга, която сте отворили в Excel.

  3. Щракнете върху Да, за да отворите отново работната книга.

     Работната книга се отваря без промените, извършени от вас, които може да са причинили повреждането на работната книга.

Възстановяване на данни, когато не можете да отворите работната книга в Excel

• Задаване на опцията за изчисляване в Excel като ръчно    Опитайте да промените настройката за изчисляване от автоматично на ръчно. Тъй като работната книга не се преизчислява, тя може да се отвори.

  1. Щракнете върху Файл > Създай.

  2. Под Създай щракнете върху Празна работна книга.

  3. Щракнете върху Файл > Опции.

  4. В категорията Формули, под Опции за изчисленията изберете Ръчно, след което щракнете върху OK.

  5. Щракнете върху Файл > Отвори.

  6. Намерете и след това щракнете двукратно върху повредената работна книга, за да я отворите.

• Използване на външни препратки за свързване с повредена работна книга.    За да извлечете само данните, но не и формулите или изчисляемите стойности в работната книга, опитайте да използвате външни препратки за свързване в повредената работна книга.

  1. Щракнете върху Файл > Отвори.

  2. Отидете в папката, която съдържа повредената работна книга.

  3. Щракнете с десния бутон върху името на файла на повредената работна книга, изберете Копирай, след което щракнете върху Отказ.

  4. Щракнете върху Файл > Създай.

  5. Под Създай щракнете върху Празна работна книга.

  6. В клетка A1 на новата работна книга въведете =Име на файл!A1, където "Име на файл" е името на повредената работна книга, която копирахте на стъпка 3, и след това натиснете клавиша Enter.

     Забележка:  Трябва да въведете само името на работната книга – няма нужда да въвеждате разширението на името на файла.

  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"

     ' Запис на стойностите по оста Х в работен лист.

     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.

Най-горе на страницата