Wie verwende ich die Get-Anweisung in VBA?

In VBA (Visual Basic for Applications) wird die `Get`-Anweisung verwendet, um Daten aus einer Datei zu lesen oder um bestimmte Daten aus einem geöffneten Datei-Stream in eine Variable zu holen. Es ist wichtig, die Datei zuerst mit der `Open`-Anweisung zu öffnen, bevor du die `Get`-Anweisung verwendest.

Hier ist ein einfaches Beispiel, wie du die `Get`-Anweisung in VBA verwenden kannst:

Öffne die Datei im Binär-, Lese- oder Random-Modus.
Verwende die `Get`-Anweisung, um Daten zu lesen.

Beispiel für die Verwendung von `Get`:

Stellen wir uns vor, wir haben eine binäre Datei, aus der wir Daten lesen möchten – z. B. eine Datei, die eine Reihe von Benutzerobjekten speichert.

Type UserInfo
    UserID As Integer
    UserName As String * 20
End Type

Sub ReadUserData()
    Dim myUser As UserInfo
    Dim fileNumber As Integer
    Dim recordNum As Integer

    ' Weisen eine freie Dateinummer zu
    fileNumber = FreeFile

    ' Öffnen der Datei im Random-Modus
    Open "C:pathtoyourfile.dat" For Random As #fileNumber Len = Len(myUser)

    ' Lesen des ersten Datensatzes
    recordNum = 1
    Get #fileNumber, recordNum, myUser
    Debug.Print "User ID: " & myUser.UserID
    Debug.Print "User Name: " & Trim(myUser.UserName)

    ' Schließen der Datei
    Close #fileNumber
End Sub

Wichtige Punkte:

FileNumber: Dies ist die Dateinummer, die du mit der `Open`-Anweisung zuweist.
Datensatznummer (RecordNum): Gibt den spezifischen Datensatz in einer Datei mit festgelegter Länge an, den du lesen möchtest. Wenn die Datei im Binärmodus geöffnet wird, wird diese Nummer als Byte-Position interpretiert.
Variable: Dies ist die Variable, in die die Daten gelesen werden.

Stelle sicher, dass der Datentyp der Variable, in die du die Daten liest, die Struktur der Daten in der Datei widerspiegelt. Im Beispiel oben sollte die Länge der Datei-Records mit `Len(myUser)` übereinstimmen.

Es ist auch wichtig, die Datei immer zu schließen, nachdem die erforderlichen Operationen durchgeführt wurden, um Ressourcen freizugeben.

facebooklinkedin