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 Nowy kliknij pozycję Pusty skoroszyt.

  3. Kliknij pozycję Plik > Opcje.

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

  5. Kliknij pozycję Plik > Otwórz.

  6. Znajdź uszkodzony skoroszyt, a następnie kliknij go dwukrotnie, aby go otworzyć.

• Używanie odwołań zewnętrznych do łączenia z uszkodzonym skoroszytem    Aby pobrać ze skoroszytu tylko dane, a nie formuły czy 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ę pliku uszkodzonego skoroszytu, kliknij polecenie Kopiuj, a następnie kliknij pozycję Anuluj.

  4. Kliknij pozycję Plik > Nowy.

  5. W obszarze Nowy kliknij 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:  Musisz wprowadzić tylko nazwę skoroszytu — nie musisz 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, rozpoczynając od komórki A1 o w przybliżeniu takim samym rozmiarze jak zakres komórek zawierających dane w uszkodzonym skoroszycie.

  12. Kliknij pozycję Narzędzia główne > Wklej lub naciśnij klawisze Ctrl+V.

  13. Gdy zakres komórek jest nadal zaznaczony, kliknij ponownie pozycję Narzędzia główne > Kopiuj lub naciśnij klawisze Ctrl+C.

  14. Kliknij pozycję Narzędzia główne > strzałkę poniżej przycisku Wklej, a następnie w obszarze Wklej wartości kliknij 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 wykres jest połączony z uszkodzonym skoroszytem, spróbuj wyodrębnić dane źródłowe wykresu za pomocą makra.

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

     Sub GetChartValues()

     Dim NumberOfRows As Integer

     Przyciemnianie X jako obiektu

     Licznik = 2

     ' Oblicz liczbę wierszy danych.

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

     Arkusze("Dane Wykresu"). Komórki(1;1) = "Wartości X"

     ' Zapisuj wartości osi x w arkuszu.

     Z arkuszami("ChartData")

     . Zakres(. Komórki(2; 1); _

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

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

     Zakończ na

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

     " w arkuszu.

     Dla każdego znaku X w obszarze ActiveChart.SeriesCollection

     Arkusze("Dane Wykresu"). Komórki(1;licznik) = X.Name

     Z arkuszami("ChartData")

     . Zakres(. Komórki(2; licznik), _

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

     Application.Transponuj(X.Wartości)

     Zakończ na

     Licznik = Licznik + 1

     Następny

     End Sub

  2. Wstaw lub usuń arkusz do skoroszytu, klikając prawym przyciskiem myszy jego kartę arkusza, a następnie zmień jego nazwę na ChartData.

  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 ChartData .

Początek strony