Kaip atkurti sugadintą „Excel“ failą: išsamus vadovas [2026]

 

Atraskite patikrintus sugadintų „Excel“ failų atkūrimo metodus – nuo ​​nemokamų integruotų „Excel“ funkcijų iki pažangių metodų ir specializuotų taisymo įrankių.

1. „Excel“ failų korupcijos supratimas

„Excel“ failų sugadinimas sukelia didelių problemų įmonėms ir asmenims. Šiame skyriuje aptarsime visus „Excel“ failų sugadinimo aspektus.

1.1 Dažnos „Excel“ failų sugadinimo priežastys

Toliau pateikiamos kelios dažniausios „Excel“ failų sugadinimo priežastys:

• Netikėtas kompiuterio išjungimas dėl elektros energijos tiekimo nutraukimo, techninės ar programinės įrangos problemų.
• Virusų atakos ir kenkėjiškos programos.
• Sugenda standieji diskai, ypač kai „Excel“ failai saugomi paveiktuose sektoriuose.
• Dideli failai su daugybe formulių ir nuorodų turi didesnę riziką būti sugadinti.
• Keli vartotojai vienu metu bando pasiekti tą patį failą.
• Pasiekite „Excel“ failą tinklo diske.

1.2 Naudingi patarimai, kaip išvengti „Excel“ failų sugadinimo

Apibendriname keletą naudingų patarimų, kaip išvengti „Excel“ failų sugadinimo. Tačiau kai taip iš tikrųjų atsitiks, jums vis tiek reikia veiksmingo metodo, kaip ištaisyti sugadintą failą.

1.3 Dažni sugadinto Excel failo požymiai

Sugadintas „Excel“ failas gali rodyti šiuos ženklus:

• Failų atidaryti negalima
• Failai įkeliami neįprastai ilgai
• Dažnai sugenda arba užšąla operacijų metu
• Trūksta duomenų įrašų arba formulių
• Išdėstymo problemos arba sugadintos antraštės
• Neįskaitomi arba atsitiktiniai simboliai arba nesuprantamas kodas
• Klaidų pranešimai, kurie nuolat rodomi
• Pakeitimai nebus išsaugoti arba atnaujinti
• Netikėtos klaidos atliekant išsaugojimo operacijas
• Automatinis atkūrimas neveikia

1.4 Klaidos pranešimai, kai failas sugadintas

Toliau pateikiami dažniausiai pasitaikantys klaidų pranešimai, kuriuos matysite, kai sugadintas „Excel“ failas. Sugadintam „Excel“ failo pavadinimui išreikšti naudojame „filename.xlsx“.

• „Excel“ negali atidaryti failo „failo pavadinimas.xlsx“, nes failo plėtinio failo formatas netinkamas. Patikrinkite, ar failas nebuvo sugadintas ir ar failo plėtinys atitinka failo formatą. (101590 klaida)
• „Excel“ negali atidaryti šio failo. Failo formatas arba plėtinys netinkamas. Patikrinkite, ar failas nebuvo sugadintas ir ar failo plėtinys atitinka failo formatą.
• „Excel“ negali atidaryti failo „failo pavadinimas.xlsx“, nes netinkamas failo formatas arba failo plėtinys. Patikrinkite, ar failas nebuvo sugadintas ir ar failo plėtinys atitinka failo formatą.
• Failo formatas ir failo pavadinimas.xls plėtinys nesutampa. Failas gali būti sugadintas arba nesaugus. Neatidarykite jo, nebent pasitikite jo šaltiniu. Ar vis tiek norite jį atidaryti?
• Failas sugadintas ir jo negalima atidaryti.
• Šis failas nėra atpažįstamo formato.
  * Jei žinote, kad failas yra iš kitos programos, kuri nesuderinama su Microsoft Office Excel, spustelėkite Atšaukti, tada atidarykite šį failą pradinėje programoje. Jei failą norite atidaryti vėliau naudodami Microsoft Office Excel, išsaugokite jį suderinamu formatu, pvz., teksto formatu
  * Jei įtariate, kad failas sugadintas, spustelėkite Žinynas, kad gautumėte daugiau informacijos apie problemos sprendimą.
  * Jei vis tiek norite pamatyti, koks tekstas yra faile, spustelėkite Gerai. Tada teksto importavimo vedlyje spustelėkite Baigti.
• „Excel“ failas nėra atpažįstamo formato.
• „Excel“ rado neįskaitomą turinį Ar norite atkurti šios darbaknygės turinį? Jei pasitikite šios darbaknygės šaltiniu, spustelėkite „Taip“.
• Dokumentas sugadintas ir jo negalima atidaryti. Norėdami pabandyti jį pataisyti, dialogo lange Atidaryti naudokite komandą Atidaryti ir taisyti ir, kai būsite paraginti, pasirinkite Išskleisti duomenis.
• Nepavyko nuskaityti failo.
• 'failo pavadinimas.xls' negalima pasiekti. Failas gali būti tik skaitomas arba jūs bandote pasiekti tik skaitymo vietą. Arba serveris, kuriame saugomas dokumentas, gali neatsakyti.
• „Microsoft Excel“ nustojo veikti.
• Keitikliui nepavyko atidaryti failo.
• Keitiklis, reikalingas šiam failui atidaryti, nerastas.
• Aptikome problemą dėl tam tikro „failo pavadinimas.xlsx“ turinio. Ar norite, kad stengtumėmės kuo daugiau atsigauti? Jei pasitikite šios darbaknygės šaltiniu, spustelėkite Taip.
• Atsiprašome, nepavyko rasti failo pavadinimas.xlsx. Ar įmanoma, kad jis buvo perkeltas, pervardytas ar ištrintas?
• „EXCEL.exe“ sukėlė klaidų ir „Windows“ jį uždarys.

1.5 Poveikis verslo operacijoms

Failų korupcija labai paveikia verslo operacijas. Mažos įmonės susiduria su didesne rizika, o FEMA praneša, kad 40% įmonių niekada neatsidaro po to, kai prarado savo duomenis. Situacija tampa kritiškesnė, nes 88 % skaičiuoklių turi klaidų. Dėl šių klaidų failai tampa pažeidžiami sukčiavimo, korupcijos ir netinkamo valdymo. Failų vientisumas yra gyvybiškai svarbus stabilioms operacijoms ir finansiniam saugumui.

2. Nemokami integruoti metodai sugadintiems „Excel“ failams taisyti

„Microsoft Excel“ yra su galingais integruotais įrankiais, kurie padeda vartotojams atkurti sugadintus „Excel“ failus nereikalaujant trečiosios šalies programinės įrangos. Šios funkcijos veikia kaip pirmoji apsauga, kai failai sugadinami.

2.1 „Excel“ atidarymo ir taisymo funkcijos naudojimas

„Excel“ turi integruotą taisymo procesą per savo funkciją „Open and Repair“. Galite naudoti šią funkciją atlikdami šiuos veiksmus:

1. In Excel, Spustelėkite filė > Atviras
2. Pasirinkite sugadintą „Excel“ failą
3. Spustelėkite šalia esančią rodyklę Atviras mygtukas
4. Pasirinkti Atidaryti ir remontas
5. pasirinkti remontas maksimaliai atkurti duomenis
6. Jei tai neveikia, naudokite gauti duomenis norėdami gauti reikšmes ir formules

Norėdami gauti daugiau informacijos, taip pat galite apsilankyti oficialus Microsoft puslapis .

2.2 Atkūrimas naudojant automatinį atkūrimą

„Excel“ automatiškai apsaugo jūsų darbą naudodama automatinio atkūrimo funkciją. Ši funkcija automatiškai išsaugos neišsaugotas darbaknygių versijas tam tikroje vietoje nustatytu intervalu.

2.2.1 Automatinio atkūrimo nustatymas

Galite nustatyti automatinį atkūrimą taip:

1. In Excel, atviras filė > Nustatymai > Sutaupote
2. Įjungti Išsaugokite automatinio atkūrimo informaciją (Įjungta pagal numatytuosius nustatymus)
3. Nustatykite laiko intervalą (numatytasis yra 10 minučių)
4. Patikrinti „AutoRecover“ failo vieta

2.2.2 Kaip veikia automatinis atkūrimas

Paaiškinkime, kaip veikia automatinis atkūrimas:

1. Kai kuriate failą Test.xlsx, tada pakeiskite jį, bet neišsaugokite. Tada po iš anksto nustatyto laiko intervalo automatinis atkūrimas sukurs poaplankį iš anksto nustatytoje automatinio išsaugojimo failo vietoje, pavyzdžiui:

   C:\Users\ccw\AppData\Roaming\Microsoft\Excel\Test#####

   kur ilgasis skaičius ##### yra unikalus identifikatorius, kurį „Excel“ naudoja skirtingoms automatinio atkūrimo sesijoms atskirti. Tada jis išsaugos pakeitimą automatiškai atkurtame faile Test((Automatiškai atkurta-#####)).xlsb. Ilgas skaičius skliausteliuose yra unikalus identifikatorius, kurį „Excel“ naudoja skirtingoms keitimo sesijoms atskirti. Atkreipkite dėmesį, kad jie išsaugomi .xlsb („Microsoft Excel Binary Worksheet“) formatu, kad būtų geresnis našumas ir mažesnis failo dydis, net jei pradinis failas yra .xlsx.

2. Jei vėliau išsaugosite Test.xlsx, automatinis atkūrimas tai padarys nE ištrinkite pirmąjį automatiškai atkurtą failą.
3. Jei atliksite kitą failo pakeitimą, bet jo neišsaugosite. Tada po iš anksto nustatyto laiko intervalo automatinis atkūrimas išsaugos pakeitimą antrajame automatiškai atkurtame faile Test((Automatiškai atkurta-#####)).xlsb, su kitu unikaliu identifikatoriumi, kad išsiskirtų nuo pirmojo automatiškai atkurto failo.
4. Aukščiau aprašyta procedūra bus tęsiama, jei keitimus atliksite nuolat, bet NEĮsaugosite jų nepasibaigus nustatytam laiko intervalui. Taigi poaplanke gali būti keli automatiškai atkurti failai.
5. Jei galiausiai uždarysite Test.xlsx, bet pasirinksite nE jei norite jį išsaugoti, visi automatiškai atkurti failai bus ištrinti, išskyrus naujausią, kuris bus pervardytas į neišsaugotą failą, Test((Neišsaugotas-#####)).xlsb, kur unikalus identifikatorius ##### yra identiškas atitinkamo automatiškai atkurto failo identifikatoriui:
   
6. Jei pasirinksite „Išsaugoti“, visi automatiškai atkurti failai ir ankstesni neišsaugoti failai bus ištrinti, taip pat bus ištrintas ir pats poaplankis. Kai kitą kartą atidarysite ir redaguosite tą patį failą, automatinis atkūrimas sukurs naują poaplankį Test#### su kitu unikaliu identifikatoriumi.

2.2.3 Tikras pavyzdys

Žemiau yra tikras pavyzdys:

Iš šio pavyzdžio matome:

1. Test311582750060201638 yra Test.xlsx automatinio atkūrimo poaplankis.
2. Test((Neišsaugotas-311583441505446697)).xlsb yra neišsaugota versija PRIEŠ paskutinį failo uždarymą.
3. Šie failai yra automatiškai atkurti failai PO paskutinio failo atidarymo:

   Test((Autorecovered-311583633426885544)).xlsb
   Test((Autorecovered-311583641215697279)).xlsb
   Test((Autorecovered-311583653173513157)).xlsb

   Šių failų laiko žymos bus naujesnės nei neišsaugoto failo.

4. Test.xlsx yra nuoroda į tikrąjį failą Test.xlsx.

2.2.4 Naudokite automatinį atkūrimą, kai failas sugadintas

Geros naujienos yra tai, kad yra automatinis atkūrimas įjungta pagal numatytuosius nustatymusTaigi, jei negalite atidaryti ir atkurti sugadinto „Excel“ failo, galite atkurti naujausią failo versiją naudodami automatinio atkūrimo funkciją.

2.2.5 Naudokite funkciją „Atkurti neišsaugotas darbaknyges“.

1. In Excel, Spustelėkite filė > Atviras
2. Spauskite Atkurti neapsaugotus darbaknygius mygtukas
   
3. Raskite ir pasirinkite sugadinto failo .xlsb failą automatinio atkūrimo failo vietoje. Ar neišsaugota versija, arba automatiškai atkurta versija yra gerai. Tiesiog pasirinkite tą, kurio norimas turinys.

2.2.6 Failų paieška ir atkūrimas rankiniu būdu

Taip pat galite rankiniu būdu atidaryti „Automatinio atkūrimo failo vietą“ ir rasti norimus failus:

1. Nukopijuokite „Automatinio atkūrimo failo vietą“ programoje „Excel“.
2. Įklijuokite jį į „Windows File Explorer“.

2.2.7 Naudokite „Dokumentų atkūrimo“ skydelį

Jei failas sugadinamas dėl netikėto „Excel“ išjungimo, tada, kai vėl jį atidarysite naudodami „Excel“, išskyrus klaidos pranešimą, kad failas sugadintas, kairėje taip pat pamatysite skydelį „Dokumentų atkūrimas“, kuriame pateikiama šiek tiek daugiau informacijos apie skirtingas versijas, kad galėtumėte pasirinkti norimą:

Kartais, kai spustelėsite vieną versiją, vis tiek gausite klaidos pranešimą, kad „Excel“ nepavyksta jos atidaryti. Tokiu atveju išbandykite kitą versiją, kol rasite sveiką.

2.2.8 Svarbios pastabos

1. Automatinis atkūrimas yra nE Automatinis išsaugojimas, kita toliau aprašyta funkcija.
2. Automatinis atkūrimas yra nE automatinė atsarginė kopija. Taip bus nE išsaugokite neišsaugotas versijas, jei failą įrašote nepasibaigus laiko intervalui. Taip pat bus nE išsaugoti tarpinę versiją, jei įrašote failą ir jį uždarote. Norėdami automatiškai sukurti atsarginę failų kopiją, turite įjungti kitą toliau aprašytą parinktį.
3. Norėdami padidinti galimybę atkurti failus naudojant automatinį atkūrimą, galite sumažinti laiko intervalą iki mažiausiai 1 minutės. Tačiau tai gali sumažinti „Excel“ našumą apdorojant didelius failus.

Automatinio atkūrimo informaciją galite rasti oficialus Microsoft puslapis taip pat. Tačiau jie nepateikia išsamios informacijos, kaip mes.

2.3 Atkūrimas naudojant automatinį išsaugojimą

Automatinis išsaugojimas yra dar viena funkcija, kuri gali padėti, kai failas yra sugadintas. Daugelis žmonių dažnai painioja automatinį atkūrimą ir automatinį išsaugojimą, klaidingai manydami, kad jie yra vienodi, tačiau iš tikrųjų jie yra visiškai skirtingi. Automatinis išsaugojimas, kai įjungtas, kas kelias sekundes automatiškai išsaugos failą debesies saugykloje, pvz., „OneDrive“.

Automatinis įrašymas galimas tik programoje Excel, skirta Microsoft 365. Pagal numatytuosius nustatymus jis įgalintas failams OneDrive, OneDrive for Business arba SharePoint Online. Bet išjungta failams vietiniame kompiuteryje.

2.3.1 Automatinio išsaugojimo parinktis

Automatinio išsaugojimo parinktį galite rasti:

1. In Excel, atviras filė > Nustatymai > Sutaupote
2. Čia galite rasti Pagal numatytuosius nustatymus „Excel“ automatiškai išsaugokite debesyje saugomus failus variantas. Jis įjungtas pagal numatytuosius nustatymus ir rekomenduojame jį visada palikti įjungtą, nebent ypatingais atvejais.

2.3.2 Įgalinti vietinio failo automatinį išsaugojimą

Taip pat galima įjungti automatinį failų išsaugojimą vietiniame diske, kaip nurodyta toliau:

1. Atidarykite vietinį failą Excel
2. Įjunkite AutoSave perjungti viršutiniame kairiajame kampe.
3. Pasirodys dialogo langas. Tada galite pasirinkti debesies diską, kad saugotumėte automatiškai išsaugotus failus.
4. Nuo tada jūsų vietinis failas bus įkeltas į debesies diską. Ir visi būsimi atnaujinimai bus išsaugoti ten. Vietinis failas bus nE nebebus atnaujinamas.

2.3.3 Atkurti sugadintą Excel failą

Kai jūsų failas debesyje yra sugadintas, galite naudoti automatinio išsaugojimo funkciją „Versijų istorija“, kad atkurtumėte seną, sveiką versiją:

1. In Excel, spustelėkite failo pavadinimą viršutinėje juostoje.
2. Iššokančiajame meniu spustelėkite versija istorija.
   
3. Versijų istorija bus rodoma dešiniajame skydelyje.
4. Spustelėkite versiją, kurią norite atkurti:
   
5. Vidurinėje informacijos juostoje spustelėkite atkurti Norėdami atkurti tą versiją:
   

2.3.3 literatūros sąrašas

1. Oficialus „Microsoft“ puslapis: Kas yra automatinis išsaugojimas?
2. Oficialus „Microsoft“ puslapis: Kaip įjungti automatinį išsaugojimą?

2.4 Atkurti naudojant automatinį atsarginį kopijavimą

Taip pat galite sukurti automatines atsargines kopijas. Tai suteikia prieigą prie duomenų, jei pradinis failas yra sugadintas. Tačiau, skirtingai nuo automatinio atkūrimo, automatinė atsarginė kopija yra nE įjungta pagal numatytuosius nustatymus.

2.4.1 Įgalinti automatinį atsarginį kopijavimą rankiniu būdu

Įjungti automatinį atsarginį kopijavimą paprasta:

1. In Excel, atidarykite failą, kuriame norite sukurti automatinę atsarginę kopiją.
2. pasirinkti filė > Įrašyti kaip > Naršyti.
3. Spauskite Ištekliai > Bendrosios parinktys…
4. Atrask Visada sukurkite atsarginę kopiją parinktis ir spustelėkite OK mygtuką.
5. Spauskite Sutaupote mygtuką ir patvirtinkite esamo failo pakeitimą.

Nuo tada, jei pradinis failas yra „Test.xlsx“, jam bus sukurta „Test.xlk atsarginė kopija“. Pastaba .xlk yra „Microsoft Excel“ atsarginės kopijos failo plėtinys:

2.4.2 Pastabos:

1. Automatinė atsarginė kopija yra nE visuotinė parinktis, bet kiekvieno failo parinktis. Jei įjungsite automatinį vieno failo atsarginį kopijavimą, jis bus nE įjungta kitiems.
2. Bus sukurta automatinė atsarginė kopija nE sukurkite atsarginę dabartinės versijos, bet prieš išsaugodami versiją. Ir išsaugojimo operacija iš tikrųjų išsaugo pradinio failo pakeitimus, paverčiant jį dabartine versija.
3. Pirmą kartą naudojant „Išsaugoti kaip“, kad išsaugotumėte naują „Excel“ failą su atsarginės kopijos parinktimi, „Excel“ tai padarys nE sukurkite atsarginės kopijos failą, nes prieš išsaugant nėra jokios versijos.
4. Jei originalus „Excel“ failas yra sugadintas ir įjungėte automatinį atsarginį kopijavimą, galite gauti versiją prieš išsaugodami iš atsarginės kopijos.
5. Kai atidarysite .xlk atsarginės kopijos failą, pamatysite šį įspėjimą:
   
   Tiesiog nekreipkite dėmesio į tai ir spustelėkite Taip norėdami atidaryti failą.

2.4.3 Įgalinti automatinį failų paketo atsarginį kopijavimą

Excel VBA metodas Darbaknygė.Išsaugoti kaip turi pasirenkamą parametrą CreateBackup, kurį galima naudoti norint programiškai įjungti automatinę failo atsarginę kopiją. Taigi galime parašyti paprastą VBA scenarijų, kad įgalintume automatinį failų paketo atsarginę kopiją:

Option Explicit

Function BatchEnableBackup()
    Dim fd As FileDialog
    Dim i As Long
    Dim fileName As String
    Dim wb As Workbook
    Dim fileFormat As Long
    
    ' Configure file dialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = True
        .Title = "Select Excel Files to Enable Backup"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb"
        If .Show <> -1 Then Exit Function ' Exit if user cancels
    End With
    
    ' Process selected files
    For i = 1 To fd.SelectedItems.Count
        fileName = fd.SelectedItems(i)
        
        ' Attempt to open workbook
        On Error Resume Next
        Set wb = Workbooks.Open(fileName)
        On Error GoTo 0
        
        If Not wb Is Nothing Then
            Application.DisplayAlerts = False  ' Suppress overwrite warnings
            
            ' Save with backup enabled
            On Error Resume Next  ' Skip files that can't be saved
            fileFormat = wb.fileFormat
            wb.SaveAs _
                fileName:=fileName, _
                fileFormat:=fileFormat, _
                CreateBackup:=True
            On Error GoTo 0
            
            Application.DisplayAlerts = True
            wb.Close SaveChanges:=False
            Set wb = Nothing
        End If
    Next i
End Function

Taip pat galite atsisiųsti „Excel“ failas su makrokomandomis tiesiogiai.

Kita VBA tik skaitymo nuosavybė Workbook.CreateBackup galima naudoti norint patikrinti, ar automatinė failo atsarginė kopija įjungta, ar ne.

Yra tik labai ribota informacija apie automatinio atsarginio kopijavimo funkciją oficialus Microsoft puslapis .

2.5 Atkūrimas naudojant rankinio skaičiavimo režimą

Perjungus skaičiavimo režimą iš automatinio į rankinį, Excel gali neleisti perskaičiuoti visų darbaknygės formulių ją atidarant. Šis metodas gali padėti atidaryti ir atkurti kai kuriuos sugadintus „Excel“ failus, jei jų nereikia perskaičiuoti.

Skaičiavimo nustatymus galite pakeisti tokiu būdu:

1. Programoje Excel atidarykite arba sukurkite naują tuščią darbaknygę.
2. Spauskite  filė > Nustatymai
3. Eikite į Formulės kortelė
4. Pagal Skaičiavimo parinktys, Pasirinkite Mechaninė Darbo knygos skaičiavimui.
5. Nuimkite žymėjimą Prieš išsaugodami perskaičiuokite darbaknygę.
   
6. Spauskite OK išsaugoti pakeitimus.
   
7. Pabandykite atidaryti sugadintą failą.
8. Jei failą galima sėkmingai atidaryti, sukurkite atsarginę jo kopiją išsaugodami jį kaip naują failą.

„Microsoft“ pateikia daugiau informacijos apie keičiant formulės perskaičiavimo režimą bei dabartinis skaičiavimo režimas .

2.6 Atidarykite failą saugiuoju režimu

Taip pat galite pabandyti atidaryti sugadintą failą Safe mode . Jei jį galima sėkmingai atidaryti, išsaugokite kopiją kitu pavadinimu.

3. Pažangūs sugadintų Excel failų atkūrimo būdai

Pažangūs atkūrimo metodai yra puikūs sprendimai labai pažeistiems „Excel“ failams. Šie metodai padeda sutelkti dėmesį į specializuotus formatus ir kodavimo metodus, kurie gelbsti duomenis iš sugadintų darbaknygių.

3.1 SYLK formato konvertavimo metodas

„Excel“ faile naudojamas sudėtingas dvejetainis failo formatas, todėl jis gali būti sugadintas. Jei taip atsitiks, galite pabandyti konvertuoti jį į teksto formatą, SYLK (simbolinės nuorodos) formatą, kad išfiltruotumėte sugadintus elementus, tada konvertuokite atgal į Excel formatą. Šis metodas ypač naudingas sprendžiant su spausdintuvu susijusias problemas. Tačiau tam reikia, kad sugadintas failas būtų atidarytas „Excel“.

Žemiau pateikiami išsamūs žingsniai:

1. pasirinkti filė > Įrašyti kaip
2. Pasirinkti SYLK (simbolinė nuoroda) formatas
   
3. Pavadinkite aktyvų lapą aprašomuoju pavadinimu
4. Spauskite Sutaupote ir patvirtinkite formato pakeitimus
5. Iš naujo atidarykite išsaugotą .slk failą
6. Išsaugokite jį atgal į Excel formatą nauju pavadinimu

SYLK formatas turi savo apribojimų. Jis palaiko tik vieną darbalapį, todėl turite kelis kartus pakartoti pirmiau nurodytus veiksmus kelių lapų darbaknygėse. Norėdami išspręsti šią problemą, sukūrėme Excel VBA funkciją, kuri gali pataisyti kelių lapų darbaknyges naudojant SYLK konvertavimo metodą:

Option Explicit

Function RepairExcelFileViaSYLKConversion(SrcFile As String, DstFile As String) As Boolean
    On Error GoTo ErrorHandler

    Dim srcWb As Workbook
    Dim dstWb As Workbook
    Dim tempWb As Workbook
    Dim slkWb As Workbook
    Dim ws As Worksheet
    Dim fso As Object
    Dim srcBaseName As String
    Dim dstPath As String
    Dim slkFileName As String
    Dim sheetName As String
    Dim sanitizedName As String
    Dim isFirst As Boolean

    Set fso = CreateObject("Scripting.FileSystemObject")

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' Step 1: Open source workbook
    Set srcWb = Workbooks.Open(SrcFile)

    ' Get source base name
    srcBaseName = fso.GetBaseName(SrcFile)

    ' Step 2: Save each sheet as SYLK
    dstPath = fso.GetParentFolderName(DstFile) & "\"
    
    If Not fso.FolderExists(dstPath) Then
        fso.CreateFolder dstPath
    End If

    For Each ws In srcWb.Worksheets
        ' Sanitize sheet name for filename
        sanitizedName = SanitizeFileName(ws.name)
        slkFileName = dstPath & srcBaseName & "_" & sanitizedName & ".slk"
        
        ' Copy sheet to new workbook and save as SYLK
        ws.Copy
        Set tempWb = ActiveWorkbook
        tempWb.SaveAs Filename:=slkFileName, FileFormat:=xlSYLK
        tempWb.Close SaveChanges:=False
    Next ws

    ' Close source workbook
    srcWb.Close SaveChanges:=False

    ' Step 3 and 4: Create new workbook and merge SYLK files
    Set dstWb = Workbooks.Add
    isFirst = True

    ' Get list of SYLK files
    slkFileName = Dir(dstPath & srcBaseName & "_*.slk")

    Do While slkFileName <> ""
        ' Open SYLK file
        Application.DisplayAlerts = False
        Set slkWb = Workbooks.Open(dstPath & slkFileName)
        Application.DisplayAlerts = True
        
        ' Copy sheet to destination workbook
        If isFirst Then
            ' Copy before first sheet and delete original
            slkWb.Sheets(1).Copy Before:=dstWb.Sheets(1)
            Application.DisplayAlerts = False
            If dstWb.Sheets.Count > 1 Then
                dstWb.Sheets(2).Delete
            End If
            Application.DisplayAlerts = True
            isFirst = False
        Else
            slkWb.Sheets(1).Copy After:=dstWb.Sheets(dstWb.Sheets.Count)
        End If
        
        ' Extract sheet name from filename
        sheetName = Mid(fso.GetBaseName(slkFileName), Len(srcBaseName) + 2)
        ' Rename the sheet
        On Error Resume Next ' Ignore errors (e.g., duplicate name)
        dstWb.Sheets(dstWb.Sheets.Count).name = sheetName
        On Error GoTo ErrorHandler ' Resume normal error handling
        
        ' Close SYLK workbook
        slkWb.Close SaveChanges:=False
        
        ' Next file
        slkFileName = Dir()
    Loop

    ' Step 5: Save and close destination workbook
    Application.DisplayAlerts = False ' Suppress overwrite warning
    dstWb.SaveAs Filename:=DstFile
    Application.DisplayAlerts = True
    dstWb.Close SaveChanges:=True

    ' Cleanup
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    RepairExcelFileViaSYLKConversion = True
    Exit Function

ErrorHandler:
    ' Cleanup code
    On Error Resume Next
    If Not srcWb Is Nothing Then srcWb.Close SaveChanges:=False
    If Not tempWb Is Nothing Then tempWb.Close SaveChanges:=False
    If Not slkWb Is Nothing Then slkWb.Close SaveChanges:=False
    If Not dstWb Is Nothing Then dstWb.Close SaveChanges:=False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    RepairExcelFileViaSYLKConversion = False
End Function

Function SanitizeFileName(name As String) As String
    Dim invalidChars As String
    invalidChars = "\/:*?""<>|"
    Dim i As Long
    For i = 1 To Len(invalidChars)
        Dim c As String
        c = Mid(invalidChars, i, 1)
        name = Replace(name, c, "_")
    Next i
    SanitizeFileName = name
End Function

Taip pat sukūrėme šios funkcijos GUI. Galite atsisiųsti Excel failą su visomis funkcijomis ir GUI ir paleiskite vartotojo formą MainForm.

Informacijos apie šį metodą yra labai mažai oficialus Microsoft tinklalapis .

3.2 Tinklalapio konvertavimo metodas

Panašiai kaip SYLK konvertavimo metodas, taip pat galite konvertuoti sugadintą „Excel“ failą į tinklalapio (HTML) formatą ir tada atgal į naują „Excel“ failą, kad pašalintumėte galimus pažeidimus.

Toliau pateikiami žingsniai:

1. pasirinkti filė > Įrašyti kaip
2. pasirinkti Išsaugoti kaip tipą į Tinklalapis or Vieno failo tinklalapis.
3. Būtinai išsaugokite Visa darbo knyga VIETOJ Pasirinkimas: lapas.
   
4. Spauskite Sutaupote, pamatysite šį įspėjimą, nepaisykite jo ir spustelėkite Gerai, kad išsaugotumėte:
   

3.3 Išorinių nuorodų atkūrimo metodas

Išorinės nuorodos suteikia dar vieną būdą gauti duomenis ir atkurti sugadintus Excel failus. Ši technika sukuria nuorodas į sugadintą darbaknygę ir leidžia išgauti duomenis be formulių ar apskaičiuotų verčių.

3.3.1 Atkūrimo veiksmai

1. In Excel, sukurkite naują tuščią darbaknygę ir išsaugokite ją.
2. Pirmame darbaknygės langelyje įveskite šią formulę: =FileName!A1, kur FileName yra sugadintas Excel failo pavadinimas be plėtinio. Pavyzdžiui, jei jūsų sugadintas failas yra Test.xlsx, tada formulė bus tokia =Test!A1. Įvedę formulę paspauskite įeiti.
   
3. Jei pasirodo dialogo langas Atnaujinti reikšmes, naršykite ir pasirinkite sugadintą „Excel“ failą su išorinės nuorodos reikšmėmis:
   
4. Jei sugadintame „Excel“ faile yra keli lapai, turite pasirinkti dabartinės išorinės nuorodos lapą:
   
5. Pasirinkite A1 langelį ir paspauskite Ctrl + C nukopijuoti jo formulę.
6. Stariš A1 pasirinkite diapazoną, kuris yra maždaug toks pat arba didesnis nei duomenų diapazonas pradinėje sugadintoje darbaknygėje, tada paspauskite Ctrl + P kad įklijuotumėte formulę į visus pasirinkto diapazono langelius.
7. Po įklijavimo, Atnaujinkite vertes dialogo langas gali vėl pasirodyti, pasirinkite originalią sugadintą darbaknygę ir spustelėkite OK.
8. Patikrinkite, ar teisingos langelių reikšmės. Tie langeliai, esantys pradinio failo diapazone, rodys pradinio failo reikšmes. Tie, kurie yra už diapazono ribų, rodys nulius.
9. Pasirinkite norimus langelius ir paspauskite Ctrl + C juos kopijuoti.
10. Sukurkite naują lapą, spustelėkite A1 langelį, tada dešiniuoju pelės mygtuku spustelėkite ir pasirinkite Įklijuoti vertes norėdami įklijuoti tik vertes. Tokiu būdu nukopijuojame reikšmes iš pradinio sugadinto failo į naują lapą. Jei pasirinksime įklijuoti tiesiogiai, vietoj reikšmių vėl gausime išorines nuorodos formules.

3.3.2 Pastaba:

1. Šis metodas atkurs tik duomenų reikšmes. Jis NEGALIMA atkurti formulių, formatų, diagramų, formų ir makrokomandų.
2. Jei 6 veiksme aptinkate klaidų, sumažinkite diapazoną, kol pavyks.

Informacijos apie šį metodą taip pat galite rasti oficialus Microsoft puslapis .

3.4 Open XML SDK įrankio naudojimas

Taip pat galite naudoti Open XML SDK įrankį, kad surastumėte ir ištaisytumėte sugadintas dalis faile. Norėdami tai padaryti, prašome:

1. Parsisiųsti Atidarykite XML SDK ir ją įdiegti.
2. Parsisiųsti Atidarykite XML SDK produktyvumo įrankį, skirtą „Microsoft Office“. ir ją įdiegti.
3. Start Atidarykite XML SDK produktyvumo įrankį, skirtą „Microsoft Office“.
4. Spauskite Failas > Atidaryti failą… Norėdami atidaryti sugadintą „Excel“ failą.
5. Spauskite Veiksmai > Patvirtinti Norėdami patvirtinti „Excel“ failą ir rasti failo problemų:
   
6. Patikrinkite patvirtinimo rezultatą ir rankiniu būdu ištaisykite failo klaidas:
   

Pastaba: Šis metodas reikalauja, kad turėtumėte pažangių IT įgūdžių, tokių kaip programavimas, ir susipažintumėte su Office Open XML failų formatai, todėl paprastam „Excel“ vartotojui gali neveikti.

3.5 Atkurti VBA kodus ir makrokomandas

Darbaknygėse su vertingais VBA kodais ir makrokomandomis reikalingas specialus atkūrimo metodas, kaip nurodyta toliau:

1. Start Excel nepaleidžiant sugadinto failo.
2. Nustatyti Darbo knygos skaičiavimas režimas į Mechaninė.
3. Clik filė > Nustatymai.
4. In Patikimumo centras skirtuką spustelėkite Pasitikėjimo centro nustatymai:
   
5. Iššokančiajame lange Patikimumo centras dialogo langas spustelėkite Makrokomandos nustatymai skirtuką ir pasirinkite Išjungti visas makrokomandas be įspėjimo, tada spustelėkite OK:
   
6. Dabar visi automatiniai skaičiavimai ir makrokomandos buvo išjungti.
7. Tada galite atidaryti sugadintą failą. Jei „Excel“ gali sėkmingai jį atidaryti, bus NE pranešimas, kad makrokomandos buvo išjungtos, nes pasirinkome parinktį nepranešti. Jei „Excel“ nepavyksta jo atidaryti, tada jūs CAN naudokite šį metodą norėdami atkurti kodus.
8. spauda Alt + F11 Norėdami atidaryti Visual Basic redaktorių.
9. Naršykite VBAProject ir pasirinkite norimą elementą, pvz., formą arba modulį, tada dešiniuoju pelės mygtuku spustelėkite jį ir pasirinkite Eksportuoti failą… norėdami eksportuoti prekę rankiniu būdu:
   
10. Kartokite 9 veiksmą, kol visi pageidaujami elementai bus eksportuoti.
11. Uždarykite „Visual Basic“ rengyklę ir dabartinį failą.
12. Sukurkite naują darbaknygę ir importuokite visus elementus atgal.

Šis metodas veikia net tada, kai naudojant kitus atkūrimo metodus nepavyksta atkurti visos darbaknygės funkcionalumo.

Šios pažangios technologijos papildo standartinius atkūrimo metodus specializuotais įvairių tipų korupcijos sprendimais. Jūsų pasirinkimas tarp SYLK konvertavimo, išorinių nuorodų arba VBA atkūrimo turėtų priklausyti nuo konkrečios žalos ir duomenų, kuriuos reikia išsaugoti, tipo.

3.6 Išskleiskite diagramos duomenis naudodami makrokomandą

Taip pat galite naudoti makrokomandą, kad ištrauktumėte diagramos duomenis iš sugadintos darbaknygės. „Microsoft“ pateikia daugiau informacijos apie makrokomandą bei kaip ja naudotis  Norėdami atkurti diagramos duomenis.

4. Naudokite trečiosios šalies Excel suderinamus įrankius

Kai kurie trečiųjų šalių įrankiai taip pat palaiko „Excel“ failus. Kai failas sugadintas ir negali būti atidarytas programoje „Excel“, galite išbandyti šiuos įrankius. Žemiau yra keletas iš jų:

• "Google" skaičiuoklės
• "OpenOffice"
• LibreOffice

Jei vienas įrankis gali atidaryti failą, išsaugokite jį naujame „Excel“ faile be klaidų.

5. Naudojimas DataNumen Excel Repair Norėdami pataisyti sugadintą „Excel“ failą

Jei visi aukščiau išvardyti metodai nepadeda, galite kreiptis į profesionalų įrankį, pvz. DataNumen Excel Repair, kuri padeda vartotojams atkurti sugadintus „Excel“ failus neįtikėtinu tikslumu. Programinė įranga veikia su visomis „Excel“ versijomis.

Nemokamas atsisiuntimas

5.1 Pataisykite vieną Excel failą

Norėdami pataisyti vieną sugadintą „Excel“ failą, atlikite šiuos veiksmus:

1. Uždarykite „Microsoft Excel“ ir kitas programas, kurios gali keisti jūsų šaltinio „Excel“ failą.
2. Pasirinkite šaltinio „Excel“ failą (.xls/.xlsx).
3. Jei šaltinio failas yra test.xls/test.xlsx, išvesties failo pavadinimas bus automatiškai nustatytas į test_fixed.xls/test_fixed.xlsx. Atminkite, kad išvesties failo formatas nustatomas pagal vietiniame kompiuteryje esančią „Excel“ versiją. „Excel 2003“ ar ankstesnėse versijose išvesties failas bus .xls formatu. „Excel 2007“ ir naujesnėse versijose jis bus .xlsx formatu. Taip pat galite pakeisti išvesties failo pavadinimą rankiniu būdu (.xls/.xlsx).
4. Spustelėkite „Start Remontas“ mygtuką
5. Po remonto proceso, DataNumen Excel Repair išves naują fiksuotą Excel failą.

5.2 Pataisykite „Excel“ failų paketą

DataNumen Excel Repair palengvina kelių sugadintų failų apdorojimą. Galite pasirinkti kelis „Excel“ failus arba ieškoti pagal konkrečius kriterijus iš savo kompiuterio, tada taisyti juos paketu, kaip nurodyta toliau:

1. Eikite į skirtuką „Paketinis taisymas“.
2. Spustelėkite „Pridėti failus“, kad pridėtumėte kelis „Excel“ failus (.xls/.xlsx), kuriuos reikia taisyti.
3. Taip pat galite spustelėti „Ieškoti failų“, kad surastumėte failus, kuriuos reikia taisyti vietiniame kompiuteryje.
4. Spustelėkite „Start Remontas“ mygtuką
5. Visi sąraše esantys Excel failai bus taisomi po vieną.

5.3 Atkurkite „Excel“ duomenis iš standžiojo disko, disko vaizdo arba atsarginių kopijų failų

„Excel“ duomenis galima atkurti tiesiai iš standžiųjų diskų, disko vaizdų arba atsarginių kopijų failų, jei „Excel“ failų nebeturite, pavyzdžiui:

• Ištrinate Excel XLS/XLSX failą visam laikui.
• Jūs formatuojate standųjį diską.
• Kietojo disko gedimas.
• Virtualusis diskas VMWare arba Virtual PC yra sugadintas arba pažeistas.
• Atsarginės kopijos laikmenoje esantis atsarginės kopijos failas yra sugadintas arba sugadintas ir iš jo negalite atkurti Excel XLS / XLSX failo.
• Disko vaizdo failas yra sugadintas arba pažeistas, todėl negalite iš jo atkurti „Excel“ failo.

Jei turite disko vaizdą arba atsarginių kopijų failus, galite atlikti šiuos veiksmus:

1. Spustelėkite mygtuką „…“, kad pasirinktumėte šaltinio failą.
2. Dialogo lange „Atidaryti failą“ kaip filtrą pasirinkite „Visi failai (*.*)“.
3. Pasirinkite disko vaizdą arba atsarginės kopijos failą kaip šaltinio failą, kurį reikia taisyti.
4. Nustatykite fiksuotą išvesties „Excel“ failą ir įsitikinkite, kad jo plėtinys yra .xlsx, jei įdiegta „Excel 2007+“, pvz., E_Drive_fixed.xlsx, kitu atveju naudokite .xls plėtinį, pvz., E_Drive_fixed.xls.

Jei norite atkurti iš standžiojo disko tiesiogiai, turite naudoti DataNumen Disk Image Norėdami sukurti standžiojo disko disko vaizdo failą:

1. Pasirinkite standųjį diską arba diską.
2. Nustatykite išvesties vaizdo failo pavadinimą.
3. Spustelėkite „Start Klonavimas“, norėdami sukurti disko vaizdo failą iš standžiojo disko / disko.

5.4 Atkurti nuo Ransomware arba viruso

Nedelsdami sukurkite atsargines užkrėstų failų atsargines kopijas, jei jūsų failus užklups išpirkos reikalaujančios programos ar virusas. Tada galite naudoti DataNumen Excel Repair Norėdami nuskaityti šiuos failus ir pabandyti atkurti prieigą prie savo duomenų. Išplėstinės nuskaitymo funkcijos padės sumažinti duomenų praradimą dėl išpirkos reikalaujančių programų ar virusų užkrėstų failų.

5.5 Pataisykite atkurtą failą

Kartais failus atkuria DataNumen Data Recovery ar kitų panašių duomenų atkūrimo įrankių vis tiek nepavyksta atidaryti programoje „Excel“. Tokiu atveju galite naudoti DataNumen Excel Repair atkurti atkurtą failą, kurį galima atidaryti programoje „Excel“.

5.6 Pavyzdiniai failai

Sugadinto „Excel“ failo pavyzdys	Failą atkūrė DataNumen Excel Repair
Klaida1.xls	Error1_fixed.xlsx
Klaida4.xlsx	Error4_fixed.xls
Klaida5.xls	Error5_fixed.xls

6. Internetinės atkūrimo paslaugos

Internetinės atkūrimo paslaugos suteikia vartotojams internetinį būdą atkurti sugadintus Excel failus neįdiegiant programinės įrangos. Vartotojai, ieškantys greitų sugadintų failų pataisų, kreipiasi į šias paslaugas.

6.1 Paprastos atkūrimo procedūros

„Excel“ failų atkūrimas naudojant internetines paslaugas atliekami šiais veiksmais:

1. Pasirinkite patikimą internetinę atkūrimo paslaugą
2. Įkelkite sugadintą „Excel“ failą į paslaugos tinklalapį
3. Įveskite savo el. pašto adresą, kad gautumėte pranešimus
4. Start remonto procesą
5. Palaukite, kol bus baigtas remonto procesas
6. Atsisiųskite fiksuotą failą arba gaukite jį el. paštu

Šios paslaugos naudoja įvairius algoritmus, kad ištaisytų įvairių tipų „Excel“ failų pažeidimus. Remontas paprastai trunka vos kelias minutes, todėl tai yra greitas būdas atkurti skubius failus.

6.2 „už“ ir „prieš“

Geras internetinių atkūrimo paslaugų stipriųjų ir silpnųjų pusių supratimas padeda vartotojams geriau pasirinkti.

Privalumai:

• Juos galite pasiekti iš bet kurio įrenginio su internetu
• Nereikia diegti programinės įrangos ar turėti techninių žinių
• Failai greitai pataisomi
• Įperkamesnis nei tradiciniai atkūrimo metodai

Apribojimai:

• Įkeliant neskelbtinus duomenis kyla problemų dėl saugumo ir privatumo
• Jums reikia stabilaus interneto ryšio
• Paprastai jie neveikia gerai su labai sugadintais failais

6.3 Geriausios paslaugos

Kelios internetinės platformos gali atkurti „Excel“ failus, toliau pateikiami keli iš jų:

1. „OfficeRecovery“: pirmauja kaip novatoriška debesyje pagrįsta paslauga, palaikanti „Excel“ versijas nuo 5.0 iki 2010 m. Ši paslauga tvarko įvairius failų formatus, pvz., .xls, .xlsx ir .xla.
2. „Excel“ atkūrimo įrankių rinkinys: išsiskiria duomenų atkūrimu iš kelių „Excel“ formatų, įskaitant .xls, .xlsx, .xlsm, .xlt, .xltx, .xltm ir .xlam failus. Paslauga siūlo išsamų atkūrimo palaikymą:
   • Ląstelių turinys ir formatavimas
   • Formulės ir skaičiavimai
   • Darbo lapų struktūros
   • Įterpti objektai
   • Individualūs stiliai ir išdėstymai
3. Aspose: suteikia patikimas įvairių failų formatų taisymo galimybes ir palaiko XLS, XLSM, XLSX, XLSB ir ODS failus. Paslauga orientuota į duomenų saugumą ir naudoja šifravimą, kad apsaugotų įkeltus failus.

Šios paslaugos siūlo skirtingas kainodaros parinktis – nuo ​​nemokamo paprasto remonto iki aukščiausios kokybės prenumeratos su pažangiomis atkūrimo funkcijomis.

7. Pažangesni įrankiai, skirti atkurti sugadintus Excel failus

Be jau aptartų sprendimų, yra įvairių specializuotų „Excel“ taisymo programinės įrangos parinkčių, skirtų spręsti rimtus failų pažeidimus. Siekdami supaprastinti paiešką, mes kruopščiai išbandėme ir sudarėme a išsamus sąrašas most patikimi įrankiai, pabrėžiant jų ypatybes ir efektyvumą įvairiems scenarijams.

8. Kiti Excel failo atidarymo klaidų sprendimai

Be failų sugadinimo, kai kurios kitos priežastys taip pat gali sukelti Excel failo atidarymo nesėkmes. Simptomai ir klaidų pranešimai gali būti panašūs arba net tokie patys kaip failo sugadinimo.

Norėdami nustatyti, ar failas sugadintas, galite nukopijuoti failą į kitą veikiantį kompiuterį ir atidaryti jį programoje Excel, kad pamatytumėte, ar klaida vis dar egzistuoja. Arba naudokite internetinė Excel versija jį patikrinti.

Jei failą galima atidaryti kituose kompiuteriuose arba tinkle, tai yra ne sugadintas. Norėdami ištaisyti kompiuterio atidarymo klaidą, galite išbandyti šiuos sprendimus:

• Remonto biuras
• Vartotojo patirties virtualizavimo taisymas (UE-V)
• NEGALIMA ignoruoti DDE
• Išjungti visus priedus
• Iš naujo nustatyti failų asociacijas
• Išjungti aparatūros pagreitį
• Įdiekite naujausius naujinimus
• Įsitikinkite, kad nėra „Excel“, „Windows“ ir kitos programinės įrangos suderinamumo problemų.
• Ištaisykite klaidas „Windows“ registre .
• Uždarykite visas kitas programas

9. Išvada

„Excel“ failų korupcija yra most svarbus iššūkis, su kuriuo šiandien susiduria įmonės. Norėdami išspręsti šią problemą, turite kelias atkūrimo parinktis. Geras atkūrimo metodų supratimas padės apsaugoti jūsų vertingus duomenis ir užtikrinti, kad jūsų verslas veiktų sklandžiai. Žemiau pateikiama santrauka:

Integruotos „Excel“ funkcijos, rankiniai metodai, profesionalus Excel taisymo programinė įranga, ir internetinės atkūrimo paslaugos veikia skirtingai. Kiekvienas variantas turi savo privalumų, atsižvelgiant į sugadinimo tipą. Pirmiausia turėtumėte rinktis integruotus „Excel“ atkūrimo įrankius. Rimtų sugadinimo atvejų atveju specializuota programinė įranga, pvz., DataNumen suteikia pažangių atkūrimo funkcijų, kad atkurtumėte sugadintus Excel failus.

Atminkite, kad norint išvengti problemų, būtina reguliariai kurti atsargines kopijas ir tinkamai tvarkyti failus. Be to, reikia stebėti, ar nėra įspėjamųjų ženklų apie korupciją. Atnaujinkite „Excel“ programinę įrangą, kad sumažintumėte riziką.

Tinkamas derinys prevencija ir atkūrimo įrankiai apsaugos jūsų Excel failus nuo sugadinimo. Greitas atsigavimas tampa lengvesnis, kai reikia. Imkitės aktyvaus požiūrio į failų apsaugą ir paruoškite kelias atkūrimo parinktis. Tokiu būdu galite be streso išspręsti „Excel“ sugadinimo problemas.

Nuorodos:

1. „Microsoft Corporation“. (nd). Pataisykite sugadintą darbo knygą„Microsoft“ palaikymas. https://support.microsoft.com/en-us/office/repair-a-corrupted-workbook-153a45f4-6cab-44b1-93ca-801ddcd4ea53