[VBA] Aktive Arbeitsmappe schließen und löschen

[Jörg Eisenträger]

Hallo Leuts,

ich möchte per VBA-Code, der in der aktiven Arbeitsmappe steckt, die
aktive Mappe schließen und anschließend löschen.

Der Code
sFullNameSelf = ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
Kill (sFullNameSelf)
führte nicht zum Erfolg, da Befehle nach dem .Close wohl nicht mehr
ausgeführt werden.

Ist das Ganze nur möglich, wenn das Kill-Kommando aus einer anderen
Datei heraus aufgerufen wird?

Wenn ja, wie kann ich per VBA
- prüfen, ob der User bereits eine personl.xls hat,
- prüfen, ob es dort die Sub KillFile() schon gibt,
- bei Bedarf eine personl.xls anlegen und
- die Sub KillFile() hinzufügen.

Oder andere Ideen? Mit per VBA zu ladendem Add-In? Wie ginge das?


Gruß
Jörg

[Herbert Taferner]

Hallo Jörg,

Post by Jörg Eisenträger
ich möchte per VBA-Code, der in der aktiven Arbeitsmappe steckt, die
aktive Mappe schließen und anschließend löschen.

z. B. so

With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

mfg Herbert

[Jörg Eisenträger]

Hallo Herbert,

Post by Herbert Taferner

per VBA die aktive Mappe schließen und löschen.

With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With

Es funktioniert. :-D Danke.

Ist doch erstaunlich, wie man Excel so austricksen kann ...


Gruß
Jörg

[Herbert Taferner]

Hallo Jörg,

Post by Jörg Eisenträger
Es funktioniert. :-D Danke.

Bitte gern !

mfg Herbert