Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA defekte Datei automatisch reparieren?

VBA defekte Datei automatisch reparieren?
06.11.2017 10:29:21
Karsten
Hallo
Ich habe ein Programm geschrieben, was Daten in diverse andere Dateien schreibt, damit das Hauptprogramm schreibgeschützt geöffnet werden kann.
Jetzt ist es in letzter Zeit bereits mehrfach passiert, dass das Programm keine Daten mehr speichern/aufrufen konnte.
Wenn man dann die zugehörige Datei manuell geöffnet hat, kam der Fehler, dass die Datei beschädigt war und repariert werden musste.
Kann man das automatisieren und per VBA machen lassen?
Also das er erst prüft, ob die Dateien in Ordnung sind, falls nicht sie repariert und dann erst die Funktion aufnimmt.
Gruß
K. Jung

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA defekte Datei automatisch reparieren?
06.11.2017 10:33:21
mumpel
Hallo!
Nein, das kann man m.W. nicht. Die Meldung erfolgt ja bevor die Datei (vollständig) geladen wird.
Wenn ständig solche Probleme auftreten kann es an Deinem Code liegen. Wie sieht der Code aus?
Gruß, René
AW: VBA defekte Datei automatisch reparieren?
06.11.2017 12:53:48
Nepumuk
Hallo,
bei der Workbooks_Open - Methode gibt es einen Parameter: CorruptLoad
zu diesem gibt es 3 Möglichkeiten:
xlExtractData
xlNormalLoad
xlRepairFile
Ich würde es mal so versuchen:
Public Sub Beispiel()
    Dim objWorkbook As Workbook
    Dim strPath As String
    strPath = "C:\Ordner\Unterordner\Datei.xlsx"
    Set objWorkbook = Workbooks.Open(Filename:=strPath, CorruptLoad:=xlRepairFile)
    
    
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA defekte Datei automatisch reparieren?
06.11.2017 13:38:55
Karsten
Das werde ich mal probieren, vielen Dank.
Gruß
K. Jung
AW: VBA defekte Datei automatisch reparieren?
07.11.2017 09:10:21
mumpel
Du solltest aber trotzdem versuchen zu klären weshalb es zu diesem Problem kommt. Muss ja eine Ursache haben.
AW: VBA defekte Datei automatisch reparieren?
08.11.2017 05:59:06
Karsten
Das werde ich natürlich machen.
Kommt aber nur 1-2x im Jahr vor, deshalb schwierig.
Gruß
K. Jung
AW: VBA defekte Datei automatisch reparieren?
07.11.2017 08:54:14
mumpel
Was es nicht alles gibt. ;-)
AW: VBA defekte Datei automatisch reparieren?
08.11.2017 06:11:06
Karsten
Hi
So habe ich es jetzt gelöst: 
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function

Das folgende ist nur ein Teil des Makros, es werden Variabeln beim Aufrufen mitgegeben: 
            On Error Resume Next
Workbooks.Open Filename:=Pfad_NOR + CStr(Dateiname) + ".XLSX", ReadOnly:=lesen       _
If IsWorkbookOpen(Dateiname + ".XLSX") Then
Else
Workbooks.Open Filename:=Pfad_NOR + CStr(Dateiname) + ".xlsx", ReadOnly:=lesen,  _
CorruptLoad:=xlRepairFile
Kill "\\L31SRV10\U027\Operations\AR-Betriebstechnik\ar\Schichtwechsel\" &  _
Dateiname & ".xlsx"
Application.DisplayAlerts = False
Workbooks(Dateiname + ".xlsx").SaveAs "\\L31SRV10\U027\Operations\AR- _
Betriebstechnik\ar\Schichtwechsel\" & Dateiname & ".xlsx", AccessMode:=xlShared
Application.DisplayAlerts = True
Workbooks(Dateiname + ".xlsx").Close SaveChanges:=True
Workbooks.Open Filename:=Pfad_NOR + CStr(Dateiname) + ".XLSX", ReadOnly:=lesen
End If

Also, es wird versucht, die Datei zu öffnen.
Wenn es wegen dem Fehler nicht geht, geht er ohne Hinweis zum nächsten Schritt.
Dann wird geprüft, ob die Datei offen ist.
Wenn nicht startet das Reparatur Teil.
1. Reparieren der Datei.
2. Löschen der Datei von der Festplatte.
3. Speichern der Datei incl. der Freigabe aktiviert.
4. Schließen und speichern der Datei.
5. Erneutes öffnen der fehlerfreien Datei.
Vielen Dank für die Hilfe.
Ich begebe mich jetzt auf die Ursachensuche.
Gruß
K. Jung
Anzeige
AW: VBA defekte Datei automatisch reparieren?
07.11.2017 05:58:52
Karsten
Hi
Kann die Freigabe das Problem sein?
Denn der Fehler tritt nur in Dateien auf, wo ich eine Freigabe eingerichtet habe. (Jeder Nutzer schreibt in andere Zellen und nie 2 in die gleiche)
Gruß
K. Jung

302 Forumthreads zu ähnlichen Themen

Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Anzeige
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
VBA Ausdruck des Moduls mit aktueller Uhrzeit
MBorn

Hallo,
weiß vielleicht jemand von Euch, wie man ein VBA-Modul ausdruckt und es schafft,
die aktuelle Zeit / und das Datum in der ersten Zeile mit auszudrucken?
Gruß und Dank,
Born
31.01.2009 14:30:56
Thread-ID: 1045652
4 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
1
12
4
3
1
3
11
2
1
5
5
4
3
11
9
4
1
4
2
2
7
6
2