Saveas-Problem bestehende Datei Überschreiben ( Excel-VBA)

Ich habe Folgendes makro, das ist korrekt, außer für die SaveAs gibt mir eine Fehlermeldung, wenn ich auf No oder Cancel,wenn ich auf yes ist in Ordnung.

ActiveWorkbook.SaveAs Filename:=FileName, FileFormat:=xlWorkbook, ConflictResolution:=xlLocalSessionChanges

Application.DisplayAlert =True

Aber wenn ich zu SaveAs Teil bekomme ich die folgende Fehlermeldung, wenn ich wählen Sie No zu speichern.
Excel-Meldung: Eine Datei namens " ......... "bereits in dieser Lage. Möchten Sie Sie ersetzen es? Klicke ich auf 'Nein' oder cancel und bekomme den Laufzeitfehler 1004 ....
Methode SaveAs Objekt _Workbook gescheitert.

Möchte ich nicht verwenden, die Application.DisplayAlerts = False, weil ich möchte, dass der Benutzer sich bewusst sein, dass eine Datei bereits benannt.

  1. Warum erhalte ich diese Fehlermeldung? Warum kann ich nicht wählen Sie "Nein"
  2. Welche andere option habe ich zur Anzeige, dass die Datei bereits
    es und wählen Sie No oder Cancelund nicht die run-time-error.?
Sie können immer setzen On Error Resume Next

InformationsquelleAutor Vikash | 2013-04-12

  1. 7

    Versuchen, diese Methode.

    Ich kommentiert habe den code, so sollten Sie keine Probleme haben, es zu verstehen. Dennoch, wenn Sie tun, dann Fragen Sie einfach 🙂

    Sub Sample()
    Dim fName As Variant

    '~~> Offer user to Save the file at a particular location
    fName = Application.GetSaveAsFilename

    '~~> Check if it is a valid entry
    If fName <> False Then
        '~~> Check before hand if the file exists
        If Not Dir(fName) <> "" Then
            '~~> If not then save it
            ActiveWorkbook.SaveAs Filename:=fName
        Else
            '~~> Trap the error and ignore it
            On Error Resume Next
            If Err.Number = 1004 Then
                On Error GoTo 0
            Else '<~~ If user presses Save
                ActiveWorkbook.SaveAs Filename:=fName, _
                FileFormat:=xlWorkbook, _
                ConflictResolution:=xlLocalSessionChanges
            End If
        End If
    End If
End Sub
    Dank Siddharth, ich will, wenn Benutzer klicken Sie auf 'Nein' - Schaltfläche, dann auf speichern als Dialogfeld sollte angezeigt werden.
    Sie können eine Boolesche variable verwenden, um zu überprüfen, ob der Benutzer gedrückt "Nein" und dann " loop-back 🙂
    Wie kann ich das überprüfen?

    InformationsquelleAutor Siddharth Rout

Schreibe einen Kommentar