Fehlerauffangen SaveAs
24.04.2017 14:25:20
Alexander
Ich habe ein Makro welches auf Knopfdruck meine Mappe mit SaveAs speichert und den Pfad als Hyperlink weiterverschickt und die aktive Mappe ohne abzuspeichern schließt. Mein Problem ist bei der SaveAs abfrage, wenn ich statt zu speichern auf abrechen klicke erstellt er mir eine Datei Falsch.xlsm oder wenn eine Datei mit dem gleichen Namen vorhanden ist und ich auf nicht überschreiben klicke kommt der Laufzeitfehler 1004 " Die Methode SaveAs für das Objekt Workbook ist fehlgeschlagen.
Ich möchte diese beiden Fehler umgehen so das nix gespeichert wird und ich wieder in meiner Mappe lande.
Mein Code:
Private Sub Email_verschicken_Click()
Application.ScreenUpdating = False
Dim a
a = MsgBox("Wollen Sie Speichern und verschicken?", vbYesNo + vbQuestion, "Auswahl")
If a = vbYes Then
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ol As Object, Ml As Object
Dim FileSave$
Dim bin As Boolean
ChDrive "O:" 'stellt Laufwerk ein !!!
ChDir "Pfad" 'stellt Pfad ein !!!
FileSave = Application.GetSaveAsFilename( "Name_" & Format(Date, "yyyymm"_ & ".xls", " _
Excel-Dateien (*.xls), *.xls")
Wb.SaveAs FileSave
Set Ol = CreateObject("Outlook.Application")
Set Ml = Ol.createitem(0)
With Ml
.To = "email@.de"
.Subject = "Prüfung " & Date & Time
.htmlbody = Hyperlink
.Display
End With
Application.Quit
Else
'do nothing
End If
End Sub