dateigröße feststellen

Forumthread: dateigröße feststellen

otto

Hi,
wie kann ich die Größe der aktuell geöffneten Datei in einer bereits geöffneten UF anzeigen?
otto

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

FileLen

{Boris}
ist besser. oT.

Tino
Super, Danke owT

otto
AW: dateigröße feststellen

Tino

FileLen

14.09.2009 11:20:40

{Boris}

Hi Otto,
MsgBox FileLen(ThisWorkbook.FullName)
Grüße Boris

ist besser. oT.

14.09.2009 11:31:12

Tino

Super, Danke owT

14.09.2009 12:13:29

otto

AW: dateigröße feststellen

14.09.2009 11:28:46

Tino

Hallo,
müsste funktionieren.

Private Sub UserForm_Initialize()

Dim FSO As Object, F1 As Object, FileGroesse As Single

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F1 = FSO.GetFile(ThisWorkbook.FullName)

FileGroesse = F1.Size / 1024

If FileGroesse > 1000 Then
 Label1.Caption = Round(FileGroesse / 1000, 2) & " MB"
Else
 Label1.Caption = Round(FileGroesse, 2) & " KB"
End If


End Sub

Gruß Tino

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Größe der aktuell geöffneten Excel-Datei in einer UserForm anzuzeigen, kannst du den folgenden VBA-Code verwenden. Dieser Code nutzt das FileSystemObject, um die Dateigröße zu ermitteln.

Öffne Excel und gehe zu Entwicklertools > Visual Basic, um den VBA-Editor zu öffnen.
Erstelle eine neue UserForm.
Füge ein Label (z.B. Label1) zur UserForm hinzu, um die Dateigröße anzuzeigen.
Füge den folgenden Code in das Code-Fenster der UserForm ein:

Private Sub UserForm_Initialize()
    Dim FSO As Object, F1 As Object, FileGroesse As Single

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set F1 = FSO.GetFile(ThisWorkbook.FullName)

    FileGroesse = F1.Size / 1024

    If FileGroesse > 1000 Then
        Label1.Caption = Round(FileGroesse / 1000, 2) & " MB"
    Else
        Label1.Caption = Round(FileGroesse, 2) & " KB"
    End If
End Sub

Schließe den VBA-Editor und starte die UserForm. Die Größe der Datei wird nun im Label angezeigt.

Häufige Fehler und Lösungen

Fehler: UserForm wird nicht angezeigt.
- Lösung: Stelle sicher, dass die UserForm korrekt initialisiert wird. Überprüfe, ob die UserForm_Initialize-Subroutine aufgerufen wird.
Fehler: Scripting.FileSystemObject kann nicht gefunden werden.
- Lösung: Stelle sicher, dass du die Microsoft Scripting Runtime in den Verweisen des VBA-Editors aktiviert hast.

Alternative Methoden

Eine andere Möglichkeit, die Dateigröße zu ermitteln, ist die Verwendung des FileLen-Befehls. Dieser Befehl gibt die Größe der Datei in Byte zurück.

MsgBox FileLen(ThisWorkbook.FullName)

Dieser einfache Befehl kann in einer MsgBox verwendet werden, um die Dateigröße anzuzeigen, ohne eine UserForm zu erstellen.

Praktische Beispiele

Hier ein Beispiel für die Verwendung der oben genannten Methoden in einem Button-Click-Ereignis:

Private Sub CommandButton1_Click()
    MsgBox "Die Dateigröße beträgt: " & FileLen(ThisWorkbook.FullName) & " Bytes"
End Sub

Das zeigt beim Klicken auf einen Button die Dateigröße in Bytes an.

Tipps für Profis

Nutze die FileSystemObject-Methoden, um nicht nur die Größe, sondern auch andere Dateiattribute wie Erstellungsdatum oder Änderungsdatum abzufragen.
Implementiere eine Fehlerbehandlung, um unerwartete Fehler während der Ausführung zu vermeiden.

On Error Resume Next

Wenn du häufig mit großen Dateien arbeitest, erwäge, die Größe in Megabyte (MB) darzustellen, um eine bessere Übersichtlichkeit zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich die Dateigröße in einer anderen Einheit anzeigen?
Du kannst die Berechnung in der UserForm_Initialize-Subroutine anpassen, um die Größe in Terabyte (TB) oder Gigabyte (GB) anzuzeigen, indem du die entsprechenden Umrechnungsfaktoren verwendest.

2. Funktioniert dies in allen Excel-Versionen?
Ja, die vorgestellten Methoden sollten in den meisten modernen Excel-Versionen (Excel 2007 und neuer) funktionieren. Stelle sicher, dass du die Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)