Größe einer Datei per Makro bestimmen

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