[excel 2007] unreadable content na save, hele tabblad leeg

[trekker22]

Zit met een groot probleem met een Excel 2007 bestand. Gisteravond opgeslagen en nu vanmorgen weer geopend:

Excel found unreadable content in 'excel.xlsm' Do you want to recover the contents of this workbook? If you trust this workbook, click Yes

Ik zal wel moeten dus klik yes.

Laat die deze melding zien:
Replaced Part: /xl/worksheets/sheet2.xml part with XML error. An attribute value must not contain '<'. Line 2, column 1912214.
Removed Records: Formula from /xl/calcChain.xml part (Calculation properties)

En dan heeft die een heel tabblad leeggemaakt! Je zou zeggen dat 1 cell misschien fout is, maar gooit die heel tabblad leeg!

Iemand een idee hoe dit op te lossen? (Belangrijke financiele gegevens van enkele dagen raak ik anders kwijt!) Geprobeerd in Office 2010, Office 2007, Office 2003 met Converter..

In de autosave ook geen oude versie te vinden, want zelf netjes opgeslagen!

EDIT
http://www.recoverytoolbox.com/excel.html

deze tool geprobeerd om te testen, in de demo versie laat die zien dat van dat specifieke tabblad hij komt tot regel 2065 en daar ergens kennelijk een fout in zit. Wel vreemd want die regel is van 2 jaar geleden, zit nu ongeveer op regel 10.000 waar mijn actuele data zit.

EDIT2
ergens gelezen dat je xlsm gewoon in winrar kan openen. Dit dus gedaan en kan ook me sheet terug vinden, sheet2.xml genaamd. Kan deze echter niet uit het winrar archief halen:

! Z:\excel\excel.zip: CRC niet correct. Het bestand xl\worksheets\sheet2.xml is beschadigd

mag ik dan de moed opgeven en terug gaan naar een oude versie???

EDIT3
OpenOffice leest ook dit tabblad in tot regel 2065.

Is er een manier deze fout weg te halen zodat die wel verder leest? Zit ergens gewoon een fout teken in het bestand lijkt me!

EDIT4 7zip wist hem toch te extracten, bekeken in XMLSpy... precies vanaf regel 2065 barst het daarna van de XML fouten. Dus niet meer handmatig te herstellen.

Dus als iemand ooit deze fout krijgt, geeft het maar op en ga verder met een backup

[ Voor 38% gewijzigd door trekker22 op 16-04-2010 10:08 ]

[F_J_K]

Bestand kopieren (je bent er achter waarom: backup backup backup!) en hernoemen naar zip. Dat bestand uitpakken. Dan kan je inderdaad de xml aanpassen (of importeren in een nieuw Excel-sheet).

Welk OS? Hele kleine kans, maar staat shadow copy heel misschien aan? Zo ja: www.shadowexplorer.com

edit1: zegt spuit 11

[ Voor 4% gewijzigd door F_J_K op 16-04-2010 10:30 ]

[trekker22]

F_J_K schreef op vrijdag 16 april 2010 @ 10:29:
Bestand kopieren (je bent er achter waarom: backup backup backup!) en hernoemen naar zip. Dat bestand uitpakken. Dan kan je inderdaad de xml aanpassen (of importeren in een nieuw Excel-sheet).

Welk OS? Hele kleine kans, maar staat shadow copy heel misschien aan? Zo ja: www.shadowexplorer.com

edit1: zegt spuit 11

shadowexplor werkt niet want netwerkschijf. Was al begonnen met herstellen van de data, 3 dagen kwijt.

Weet iemand een handig script om bv 4x per dag excel te laten opslaan (staat hele dag open) en dan te mailen naar gmail en meteen kopie naar lokale schijf?

[trekker22]

trekker22 schreef op vrijdag 16 april 2010 @ 11:52:
[...]

shadowexplor werkt niet want netwerkschijf. Was al begonnen met herstellen van de data, 3 dagen kwijt.

Weet iemand een handig script om bv 4x per dag excel te laten opslaan (staat hele dag open) en dan te mailen naar gmail en meteen kopie naar lokale schijf?

dit werkt voor mij prima, misschien heeft iemand er wat aan!

code:

Sub veiligstellen()
'
' veiligstellen Macro
'
' Keyboard Shortcut: Ctrl+g
'

    fname = "D:\excel_backup\excel " & Format(Now, "yyyy mm dd hh mm") & ".xlsm"
    ActiveWorkbook.SaveCopyAs fname
    
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    '    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    With iMsg
        Set .Configuration = iConf
        .To = ""
        .CC = ""
        .BCC = ""
        .From = ""
        .Subject = fname
        .TextBody = fname
        .AddAttachment fname
        .Send
    End With
        
End Sub