Wie verwende ich die LOF-Funktion in VBA?

In VBA (Visual Basic for Applications) steht die `LOF`-Funktion für “Length of File”. Sie wird verwendet, um die Größe einer geöffneten Datei in Bytes zu ermitteln. Um die `LOF`-Funktion zu verwenden, müssen Sie zuerst die Datei mit der `Open`-Anweisung öffnen. Hier ist ein einfaches Beispiel, wie Sie die `LOF`-Funktion in VBA verwenden können:

Sub BeispielLOF()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim fileSize As Long

    ' Dateipfad festlegen
    filePath = "C:PfadzurDatei.txt"

    ' Nächste verfügbare Dateinummer holen
    fileNumber = FreeFile

    ' Datei zum Lesen öffnen
    Open filePath For Input As #fileNumber

    ' Dateigröße ermitteln
    fileSize = LOF(fileNumber)

    ' Datei schließen
    Close #fileNumber

    ' Dateigröße ausgeben
    MsgBox "Die Größe der Datei beträgt " & fileSize & " Bytes."
End Sub

In diesem Beispiel wird eine Datei im Lese-Modus geöffnet, die Dateigröße mit `LOF` ermittelt und dann die Datei wieder geschlossen. Die ermittelte Dateigröße wird anschließend in einer MessageBox angezeigt. Stellen Sie sicher, dass Sie den Pfad zur Datei entsprechend anpassen, bevor Sie das Makro ausführen.

Beachten Sie, dass die Datei geöffnet sein muss, damit die `LOF`-Funktion funktioniert, da sie auf die Datei verweist, die durch die Dateinummer identifiziert wird. Wenn die Datei nicht geöffnet ist, wird ein Laufzeitfehler auftreten.

facebooklinkedin