Die Excel/VBA-Beispiele (incl. aller Arbeitsmappen: http://www.herber.de/samples/inhalt.html)

Datei auswählen und ohne Rückfrage löschen

Problem: Wie kann ich eine Datei über Dialog auswählen und ohne Rückfrage löschen lassen?


StandardModule: basMain

Sub DateiLoeschen()
   Dim vFile As Variant
   vFile = Application.GetSaveAsFilename _
      (fileFilter:="Exceldateien (*.xls), *.xls")
   If vFile = False Then Exit Sub
   Kill vFile
End Sub