Smazat soubor - MS Excel VBA

Jak smazat sešit ve VBA?

Smazat aktivní sešit v MS Excel pomocí VBA lze několika způosoby. V příloženém kodu je jedno z mnoha řešení. V úvodu je ještě dotaz zda opravdu požadujete dokument smazat.

VBA Program

Sub Smazat1() On Error Resume Next Kill "\slozka\soubor.xls" On Error Goto 0 End Sub

VBA Program 2

Smaže aktivní dokument.

Sub Smazat2()
   If MsgBox("Opravdu smazat ?", vbYesNo, "Pozor") <> 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

Doporučení

Při ukládaní v MS Excel 2010 nezapomeňte soubor správně uložit. tj. jako dokument s makry (s přípomou *.xlsm), jinak se Vám makra neuloží...

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.