Datei löschen

23/06/2013 - 18:34 von Maria Brümmer | Report spam
Hallo zusammen,

mir hat von làngerer Zeit ein schlauer Mensch hier dieses Makro
geschenkt. Leider erfolgt keine Nachfrage, ob wirklich gelöscht werden
soll. Kann das noch ihrendwo eingefügt werden?

Danke
Maria

Sub KillActiveWorkbook()
Dim strWbk As String

strWbk = ActiveWorkbook.FullName
ActiveWorkbook.Close savechanges:=False
Kill strWbk
End Sub
 

Lesen sie die antworten

#1 Claus Busch
23/06/2013 - 18:58 | Warnen spam
Hallo Maria,

Am Sun, 23 Jun 2013 18:34:31 +0200 schrieb Maria Brümmer:

mir hat von làngerer Zeit ein schlauer Mensch hier dieses Makro
geschenkt. Leider erfolgt keine Nachfrage, ob wirklich gelöscht werden
soll. Kann das noch ihrendwo eingefügt werden?



bei Kill kommt keine Nachfrage. Probiers mal mit Delete


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen