Meldung überschreiben? bejahen...
18.08.2007 11:37:00
Reinhardt
ich habe im Archiv den u.a. Code gefunden, den ich sehr gut gebrauchen kann.
Er speichert mir das letzte TB einer Datei unter dem TB Namen in ein Verzeichnis, welches in B1 steht.
Für mich fast Top!
Wenn in dem Verzeichnis schon eine Datei mit gleichem Namen steht, erscheint die Meldung: blabla.. soll überschrieben werden?
Wie kann ich hier ein JA schon in den Code einfügen, damit die Meldung nicht mehr erscheint?
Gruß Reinhardt.
Sub SaveSheets()
Dim iSheet As Integer
Dim sPath As String
Application.ScreenUpdating = False
sPath = Range("B1").Value & "\"
For iSheet = Worksheets.Count 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
Anzeige