Laufzeitfehler 1004: Funktion SaveAs?
Hallo,
Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?
Gerne auch Kritik und Anregungen zum Code. LG Syrena
Sub Bericht()
'Datei öffnen und einfügen
'-----------------------------------------------------------------
Dim Liste As Workbook
Dim Template As Workbook
Dim Dati As Variant
Set Template = ActiveWorkbook
Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
Set Liste = Workbooks.Open(Filename:=Dati)
Liste.Sheets("Tabelle1").Columns("A:E").Copy
Windows(Template.Name).Activate
Columns("A:E").Select
ActiveSheet.Paste
Workbooks(Liste.Name).Close savechanges:=False
'Neue Datei öffnen und abspeichern
'--------------------------------------------------------------------
Dim Projektbericht As Workbook
Set Projektbericht = Workbooks.Add
Dim Speicherpfad As String, Titel As String
Speicherpfad = "C:\ "
Titel = "Bericht"
Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel
End Sub
2 Antworten
Abspeichern ist immer eine fehlerträchtige Operation, dabei kann viel schief gehen.
Manches kann man von vornherein berücksichtigen - schau Dir mal den Parameter "ConflictResolution" an.
https://msdn.microsoft.com/de-de/library/office/ff841185.aspx
Ansonsten hilft nur defensive Programmierung: Nichts als gegeben voraussetzen (insbesondere keine Dateipfade), vorher nochmal alles prüfen und dann erst versuchen abzuspeichern. Aber nicht ohne eine angemessene Fehlerbehandlung.
Aus irgendwelchen unerklärlichen Gründen funktioniert es jetzt auf einmal.........