Hallo zusammen,
ich verarbeite für unsere Kunden diverse Excel-Exports aus verschiedenen Dritt-Systemen in einem Excel-Tool. Diese Dateien öffne ich über VBA, um Sie an die richtige Stelle in meiner Excel-Datei einzufügen (über den Befehl Application.Workbooks.Open Filename:=ImportFile)
Dabei gibt es jedoch leider immer wieder Probleme, da manche dieser Dritt-Systeme die Dateien automatisch mit ungültigen Blattnamen abspeichern. Wenn man eine solche Datei einfach öffnet, kommt zunächst der Fehler:
"Wir haben ein Problem bei einigen Inhalten in...erkannt. Sollen wir so viel wie möglich wiederherstellen?"
Wenn ich hier auf "Ja" klicke, kommt diese Meldung, die man nur mit "Ok" bestätigen kann: "Dateifehler: Daten sind möglicherweise verlorengegangen."
Danach öffnet sich ein Fehler-Log File mit dem Inhalt: "Ungültiger Blattname wurde umbenannt."
Die Datei ist jetzt endlich geöffnet und alle Inhalte werden korrekt dargestellt. Nur der Blattname lautet jetzt immer "Wiederhergestellt_Tabelle1".
Wenn ich die Datei jetzt unverändert abspeichere, erscheinen die ganzen Fehlermeldungen beim nächsten Öffnen nicht mehr. Ich kann die Datei jetzt auch ohne Probleme in mein Excel-Tool einfügen.
Meine Frage ist: Kann ich diese ganzen Fehlermeldungen automatisiert in VBA abfangen und bestätigen? Es ist nämlich sehr viel Arbeit, die ganzen Dateien einmal alle einzeln zu öffnen, alles zu bestätigen und sie dann wieder abzuspeichern. Mir ist bisher nur "On Error Resume Next" eingefallen, dass funktioniert aber leider nicht so dass die Datei gar nicht erst geöffnet wird.
Besten Dank für eure Hilfe und viele Grüße
Philipp
|