Erste "saveas-Methode von Objekt _workbook ist fehlgeschlagen" Fehler beim speichern als CSV-Datei XLSM

Diese ist ein Jahr alt, aber ich werde etwas hinzufügen, für die zukünftigen Leser

Werden Sie nicht finden, eine Menge an Dokumentation in der Excel-Hilfe für die Run-time error 1004 wie Microsoft nicht der Auffassung, dass es sich um eine Excel-Fehler.

Den oben genannten Antworten sind zu 100% gültig, aber manchmal hilft es, zu wissen, was das problem verursacht, so dass Sie es vermeiden können, fixieren Sie es früher oder fixieren Sie es leichter.

Die Tatsache, dass dies ist ein sporadisch auftretender Fehler, und es ist behoben, die durch die Einsparung mit der vollständige Pfad und der Dateiname sagt mir, dass entweder dein makro kann versuchen zu speichern .xlsb-Datei, um die AutoWiederherstellen-Verzeichnis nach einer automatischen Datei-recovery.

Alternativ können Sie das editieren der Datei Pfad oder im Dateinamen selbst.

Können Sie überprüfen Sie den Pfad und Dateinamen mit:-
MsgBox ThisWorkbook.FullName

Sollten Sie etwas wie dies in der message-box.

C:\Users\Mike\AppData\Roaming\Microsoft\Excel\DIARY(version 1).xlxb

Wenn also die Lösung ist (wie oben erwähnt von anderen) zum speichern der Datei in den richtigen Pfad und Datei-Namen. Diese kann getan werden, mit VBA oder manuell.

Ich bin jetzt in der Gewohnheit der das manuelle speichern der Datei mit den korrekten Pfad-und Dateinamen als selbstverständlich, nachdem eine AutoWiederherstellen-Aktion, wie es dauert Sekunden, und ich finde auch das es schneller (wenn das nicht täglich vorkommen). Damit werden die Makros nicht auftreten dieses Fehlers führen Sie es. Denken Sie daran, dass, während meine Gewohnheit, manuell zu speichern .xlxb-Dateien .xlsm Dateien sofort nach einer Wiederherstellung wird nicht helfen, ein Anfänger, geben Sie das Arbeitsblatt an.

Ein Hinweis auf Hyperlinks

Nachdem dieser Fehler: Wenn Sie hyperlinks in Ihr Arbeitsblatt erstellt mit Strg+k in alle Wahrscheinlichkeit, Sie haben so etwas wie "AppData\Roaming\Microsoft\", "\AppData\Roaming\", "../../AppData/Roaming/"oder "....\Meine Dokumente\Meine Dokumente\" in mehrere hyperlinks nach file recovery. Diese können Sie vermeiden durch das anbringen von hyperlinks zu einem Textfeld oder generieren Sie mit dem HYPERLINK-Funktion.

Identifizieren und diese zu Reparieren ist ein wenig komplizierter,

Erste, prüfen Sie die hyperlinks, und ermitteln Sie die fehlerhafte Saiten und den richtigen string für jeden Fehler. Im Laufe der Zeit, die ich gefunden habe, mehrere.

Excel nicht, eine Einrichtung, die in der 'Besondere' - Menü, um die Suche für die hyperlinks erstellt mit Strg+k.

Können Sie automatisieren die Identifikation von fehlerhaften hyperlinks in einer hilfsspalte, sagen wir Spalte Z und mit Hilfe der Formel

=OR(ISNUMBER(SEARCH("Roaming", Link2Text($C2),1)),ISNUMBER(SEARCH("Roaming", Link2Text($D2),1)))

wo Link2Text ist die UDF

Funktion Link2Text(rng As Range) As String
"NICHT deaktivieren.
'Sucht hyperlinks mit 'roaming' in der Spalte Z.

' Identify affected hyperlinks
    If rng(1).Hyperlinks.Count Then
    Link2Text = rng.Hyperlinks(1).Address
    End If

  End Function

Meine VBA zu korrigieren der Fehler ist wie folgt

Sub Replace_roaming()

' Wählen Sie das richtige Blatt
Sheets("TAGEBUCH").Wählen Sie

Dim hl As Hyperlink
For Each hl In ActiveSheet.Hyperlinks
    hl.Address = Replace(hl.Address, "AppData\Roaming\Microsoft\", "")
Next
    For Each hl In ActiveSheet.Hyperlinks
    hl.Address = Replace(hl.Address, "AppData\Roaming\", "")
Next

    For Each hl In ActiveSheet.Hyperlinks
    hl.Address = Replace(hl.Address, "../../AppData/Roaming/", "..\..\My documents\")
Next
    For Each hl In ActiveSheet.Hyperlinks
    hl.Address = Replace(hl.Address, "..\..\My documents\My documents\", "..\..\My documents\")
Next

Application.Run "Recalc_BT"

' Move down one active row to get off the heading
    ActiveCell.Offset(1, 0).Select

' Check active row location
    If ActiveCell.Row = 1 Then
    ActiveCell.Offset(1, 0).Select
    End If

' Recalc active row
   ActiveCell.EntireRow.Calculate

' Notify
    MsgBox "Replace roaming is now complete."

End Sub

Ich auch empfehlen, die Sie erhalten Sie in die Gewohnheit zu tun, regelmäßige sicherungen und nicht unter Berufung auf AutoWiederherstellen-allein. Wenn es fehlschlägt, haben Sie nichts seit dem letzten voll-backup.

Während das Material wird brüchig backup oft wie jede Stunde oder nach jeder wesentlichen den import von neuen Daten.

Folgende Tastenkombinationen ein backup von Ihrem Arbeitsblatt in Sekunden: Strg+O, [highlight die mit dem Namen], Strg+C, Strg+V, [ X ]. Regelmäßige backups erlauben Ihnen, gehen Sie sofort zu Ihrem zuletzt gesicherten backup ohne Wiederherstellung von der letzten Nacht, die backup-Datei, vor allem, wenn Sie eine Anfrage von einer anderen person, dies zu tun.

InformationsquelleAutor Mike Benstead