VBA Excel - zjištění názvu souboru

[Branscombe]

Ahoj, potřeboval bych pomocí VBA zjistit název a umístění aktuálně otevřeného souboru, zavřít ho bez uložení a smazat.

Takže makro budu mít v osobních makrech a když ho spustím tak se mi zavře (bez uložení) a smaže přávě aktivní soubor.

Díky předem za rady

[mike007]

Kód: Vybrat vše

Sub smazat_sesit()
If MsgBox("Opravdu chceš smazat tento sešit?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
With ActiveWorkbook
If .Path <> "" Then
.Saved = True
.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
End If
End With
ActiveWorkbook.Close False
End Sub