Відновлення пошкодженої книги

Відновлення даних, коли книгу відкрито у програмі 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

     Затінити X як об'єкт

     Лічильник = 2

     ' Обчислити кількість рядків даних.

     NumberOfRows = UBound(ActiveChart.SeriesCollection(1). Значення)

     Worksheets("ChartData"). Клітинки(1; 1) = "Значення X"

     ' Запис значень осі X на аркуш.

     З аркушами("ChartData")

     . Діапазон(. Клітинки(2, 1), _

     . Cells(NumberOfRows + 1, 1)) = _

     Application.Transpose(ActiveChart.SeriesCollection(1). Значення X)

     Завершити на

     ' Цикл через всі ряди на діаграмі і записати їх значення в

     ' аркуш.

     Для кожного x в ActiveChart.SeriesCollection

     Worksheets("ChartData"). Клітинки(1; лічильник) = X.Name

     З аркушами("ChartData")

     . Діапазон(. Клітинки(2; лічильник), _

     . Cells(NumberOfRows + 1, Counter)) = _

     Application.Transpose(X.Values)

     Завершити на

     Лічильник = лічильник + 1

     Next

     End Sub

  2. Вставте або видаліть аркуш у книзі, клацніть правою кнопкою миші вкладку аркуша та перейменуйте його на ChartData.

  3. Виберіть діаграму, з якої потрібно видобути основні значення даних.

     Примітка.: Діаграма може бути вбудованою в аркуш або окремий аркуш діаграми.

  4. Запустіть макрос.

  5. Дані з діаграми буде розміщено на аркуші ChartData .

На початок сторінки