Sicherung in Ordner
06.03.2016 13:31:08
chris58
Ich habe den u.a. code für die Sicherung eines Tabellenblattes. Ich möchte jedoch das Tabellenblatt in den Ordner "C:Waren\Sicherung jedoch will ich selber einen Namen für die Soeicherung vergeben können.
Ersuche um Hilfe, was ich ändern muß, um dies zu erreichen.
Danke
Sub TestSpeichern()
Dim xdatei As String, yDatei As String, Pfad As String
xdatei = ThisWorkbook.Name
Pfad = ThisWorkbook.Path & "\"
yDatei = "Sicherung\Waren " & Format(Date, "dd.mm.yyyy") & ".xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Aufbereitung").Copy
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
ActiveWorkbook.SaveAs Filename:=Pfad & yDatei, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Windows(xdatei).Activate
Application.ScreenUpdating = True
End Sub
Anzeige