Größe einer Datei per Makro bestimmen

07. September 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie die Dateigröße mit VBA feststellen

Eine Datei hat auf dem Datenträger immer einen bestimmten Umfang, die Dateigröße. Beim Einsatz von Excel können Sie das abfragen, indem Sie sich den Dateieintrag im Verzeichnis anschauen, wenn die Datei nicht geöffnet ist.

Eine andere Möglichkeit, diese Information abzufragen, bietet Ihnen das Dialogfenster "Datei – Eigenschaften". Im Register "Allgemein" finden Sie diesen Eintrag unter "Größe".

Falls Sie diese Information mit einem Makro auslesen möchten, hilft Ihnen die Funktion FileLen. Dieser Funktion übergeben Sie den kompletten Dateinamen einer Excel-Arbeitsmappe. Sie erhalten die Größe der Datei in Bytes als Ergebnis zurück. Das folgende Makro zeigt, wie Sie die Funktion in der Praxis einsetzen:

Sub ZeigeDateiGroesse()
MsgBox "Die Größe der aktuellen Arbeitsmappe " & _
 "beträgt " & FileLen(ThisWorkbook.FullName) / 1024 & _
 " KByte."
End Sub

Nach dem Start blendet Excel ein kleines Fenster ein, mit dem die Dateigröße der aktuellen Arbeitsmappe angezeigt wird. Die folgende Abbildung zeigt, wie dieses Fenster aussieht:

Die Größe der Datei wird von der Funktion in Bytes zurückgegeben. Daher erfolgt im Makro eine Umrechnung in KByte. Dazu wird die Dateigröße durch die Zahl 1024 geteilt.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"