Tabellenblätter speichern unter variablen Namen
07.12.2006 11:11:05
Jakob
ich habe den folgenden VBA-Code um einzelne Tabellenblätter in einen bestimmten Ordner abzuspeichern. Wie muß ich den Code abändern damit die Meldung "ob die bestehende Datei überschrieben werden soll" nicht erscheint und die bestehenden Dateien generell überschrieben werden?
Sub Tabellenblätter_speichern()
Dim iSheet As Integer
Dim sPath As String
Application.ScreenUpdating = False
sPath = "H:\Order Management Tool\"
For iSheet = Worksheets.Count - 4 To Worksheets.Count
Worksheets(iSheet).Copy
ActiveWorkbook.SaveAs sPath & ActiveSheet.Name
ActiveWorkbook.Close savechanges:=False
Next iSheet
Application.ScreenUpdating = True
MsgBox "Job erledigt"
End Sub
Desweiteren habe ich ein Problem mit den Namen unter den die Dateien gespeichert werden sollen. Der Name sollte aus den "Namen des Tabellenblattes" und des aktuelle Datums (Format: 20061207) bestehen. Mit der folgenden Formel habe ich mir den gewünschten Zusatz ausgeben lassen, aber ich bekomme es nicht in obigen Code iintegriert. Könnt Ihr mir weiterhelfen?
ActiveCell.FormulaR1C1 = _
"=YEAR(TODAY())&MONTH(TODAY())&IF(LEN(DAY(TODAY())) Vielen Dank im Voraus für Eure Hilfe.
Gruß
Jakob