Windows MsgBox unterdrücken
11.10.2005 09:13:38
Korl
aus meiner vorhandenen Datei erzeuge ich erneut eine neue Datei mit immer der selben Bezeichnung.
Windows macht mich dann immer darauf aufmerksam, dass die Datei bereits vorhanden ist und bietet mir "Ja", "Nein" , "Abbrechen" an.
Wie kann ich nun erreichen, wenn ich "Nein" oder "Abbrechen" wähle, dann die bereits erzeugte Datei ohne zu speichern schließen kann bzw. die Windowsmeldung unterdrücke und immer überspeichern kann.
Dies ist mein Code:
Sub TabAuswertung_exportieren()
Dim wksA As Worksheet
Set wksA = Worksheets("Auswertung")
Application.ScreenUpdating = False
MakeSureDirectoryPathExists "C:\Test\"
wksA.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Test\05Zusammenfassung.xls"
With ActiveWorkbook
With Sheets(1)
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
.Cells.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
.Rows("2").Delete Shift:=xlUp
.Range("B31").Select
End With
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub
Gruß Korl