Naprawianie uszkodzonego skoroszytu

Odzyskiwanie danych, gdy skoroszyt jest otwarty w programie Excel

• Przywracanie skoroszytu do ostatniej zapisanej wersji    Jeśli skoroszyt zostanie uszkodzony podczas pracy, ale przed zapisaniem zmian możesz przywrócić ostatnią zapisaną wersję skoroszytu:

  1. Kliknij pozycję Plik > Otwórz.

  2. Kliknij dwukrotnie nazwę skoroszytu otwartego w programie Excel.

  3. Kliknij przycisk Tak, aby ponownie otworzyć skoroszyt.

     Skoroszyt zostanie otwarty bez żadnych wprowadzonych zmian, które mogły spowodować uszkodzenie skoroszytu.

Odzyskiwanie danych, gdy nie można otworzyć skoroszytu w programie Excel

• Ustawianie opcji obliczania w programie Excel na obliczanie ręczne    Spróbuj zmienić ustawienie obliczania z automatycznego na ręczne. Ponieważ skoroszyt nie będzie ponownie obliczany, być może uda się go otworzyć.

  1. Kliknij pozycję Plik > Nowy.

  2. W obszarze Nowykliknij pozycję Pusty skoroszyt.

  3. Kliknij pozycję Plik > Opcje.

  4. W kategorii Formuły w obszarze Opcje obliczaniawybierz pozycję Ręcznie, a następnie kliknij przycisk OK.

  5. Kliknij pozycję Plik > Otwórz.

  6. Znajdź i kliknij dwukrotnie uszkodzony skoroszyt, aby go otworzyć.

• Używanie odwołań zewnętrznych do łączenia z uszkodzonym skoroszytem    Aby pobrać ze skoroszytu tylko dane, a nie formuły lub obliczone wartości, spróbuj użyć odwołań zewnętrznych w celu połączenia z uszkodzonym skoroszytem.

  1. Kliknij pozycję Plik > Otwórz.

  2. Przejdź do folderu zawierającego uszkodzony skoroszyt.

  3. Kliknij prawym przyciskiem myszy nazwę uszkodzonego skoroszytu, kliknij polecenie Kopiuj, a następnie kliknij polecenie Anuluj.

  4. Kliknij pozycję Plik > Nowy.

  5. W obszarze Nowykliknij pozycję Pusty skoroszyt.

  6. W komórce A1 nowego skoroszytu wpisz =Nazwa pliku! A1, gdzie Nazwa pliku to nazwa uszkodzonego skoroszytu skopiowanego w kroku 3, a następnie naciśnij klawisz Enter.

     Uwaga:  Wystarczy wprowadzić tylko nazwę skoroszytu — nie trzeba wpisywać rozszerzenia nazwy pliku.

  7. Jeśli zostanie wyświetlone okno dialogowe Aktualizowanie wartości, wybierz uszkodzony skoroszyt, a następnie kliknij przycisk OK.

  8. Jeśli zostanie wyświetlone okno dialogowe Zaznaczanie arkusza, wybierz odpowiedni arkusz, a następnie kliknij przycisk OK.

  9. Zaznacz komórkę A1.

  10. Kliknij pozycję Narzędzia główne > Kopiuj lub naciśnij klawisze Ctrl+C.

  11. Zaznacz obszar, począwszy od komórki A1, który w przybliżeniu ma ten sam rozmiar co zakres komórek zawierających dane w uszkodzonym skoroszycie.

  12. Kliknij kartę Narzędzia > pozycję Wklejlub naciśnij klawisze Ctrl+V.

  13. Mając zaznaczony zakres komórek, kliknij pozycję Narzędzia > Skopiuj ponownie lub naciśnij klawisze Ctrl+C.

  14. Kliknij kartę Narzędzia > strzałkę pod przyciskiem Wklej,a następnie w obszarze Wklej wartościkliknij pozycję Wartości.

      Wklejenie wartości powoduje usunięcie łączy do uszkodzonego skoroszytu i pozostawienie tylko danych.

• Wyodrębnianie danych z uszkodzonego skoroszytu za pomocą makra    Jeśli z uszkodzonym skoroszytem jest połączony wykres, spróbuj użyć makra w celu wyodrębnienia danych źródłowych wykresu.

  1. Skopiuj następujący kod makra i wklej go w arkuszu modułu:

     Sub GetChartValues()

     Dim NumberOfRows As Integer

     Dim X As Object

     Licznik = 2

     ' Oblicz liczbę wierszy danych.

     NumberOfRows = UBound(ActiveChart.SeriesCollection(1). Wartości)

     Arkusze("Dane_wykresu"). Cells(1;1) = "Wartości X"

     ' Zapisuj wartości osi x w arkuszu.

     Za pomocą arkuszy("Dane_wykresu")

     . Range(. Cells(2;1);_

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

     Application.Transponuj(ActiveChart.SeriesCollection(1). XValues)

     Koniec z

     ' W pętli przez wszystkie serie na wykresie i zapisz ich wartości w

     ' arkusza.

     Dla każdego znaku x w sekcji ActiveChart.seriescollection

     Arkusze("Dane_wykresu"). Cells(1;Counter) = X.Name

     Za pomocą arkuszy("Dane_wykresu")

     . Range(. Cells(2; Counter), _

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

     Application.Transpose(X.Values)

     Koniec z

     Licznik = Licznik + 1

     Next (Dalej)

     End Sub

  2. Wstaw lub usuń arkusz w skoroszycie, kliknij prawym przyciskiem myszy jego kartę arkusza, a następnie zmień jego nazwę na Dane_wykresu.

  3. Wybierz wykres, z którego chcesz wyodrębnić wartości danych źródłowych.

     Uwaga: Wykres można osadzić w arkuszu lub w oddzielnym arkuszu wykresu.

  4. Uruchom makro.

  5. Dane z wykresu są umieszczane w arkuszu Dane_wykresu.

Początek strony