Tipp 0377 Arbeitsmappe (offene) löschen
Autor/Einsender:
Datum:
  Angie
04.01.2004
Entwicklungsumgebung:   Excel 97
Mit den folgenden wenigen Zeilen Code lässt sich eine in Excel offene Arbeitsmappe löschen, in folgendem Beispiel die aktive Arbeitsmappe.
Da die angegebene Arbeitsmappe ohne Rückfrage unwiderruflich vom Datenträger gelöscht wird, sollte der Code mit größter Vorsicht angewandt werden!
 
Sub DeleteOpenWorkbook()
  With ActiveWorkbook
    If Len(.Path) > 0 Then
      .Saved = True
      .ChangeFileAccess xlReadOnly
      Kill .FullName
      .Close False
    Else
      .Saved = True
      .Close False
    End If
  End With
End Sub
 
Hinweis
Die im Download befindliche *.bas-Datei kann in Excel im VB-Editor importiert werden.
Links zum Thema
Arbeitsmappen - allgemein

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Excel-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (1,4 kB) Downloads bisher: [ 747 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 23. Juli 2011