Wie verwende ich die Put-Anweisung in VBA?

Die `Put`-Anweisung in VBA wird verwendet, um Daten in eine Datei zu schreiben. Sie schreibt die Daten binär, was bedeutet, dass sie normalerweise in Verbindung mit Dateien verwendet wird, die Binärdaten oder spezifische Datenstrukturen speichern. Hier ist ein grundlegendes Beispiel zur Verwendung der `Put`-Anweisung:

Datei öffnen: Zuerst müssen Sie eine Datei im Binärmodus öffnen, in die Sie schreiben möchten. Dazu verwenden Sie die `Open`-Anweisung.
Datenstruktur definieren: Falls Sie eine benutzerdefinierte Datenstruktur haben, müssen Sie diese definieren.
Daten schreiben: Schließlich verwenden Sie die `Put`-Anweisung, um die Daten in die Datei zu schreiben.

Hier ist ein einfaches Beispiel:

Type Person
    ID As Integer
    Name As String * 20   ' Fixe Länge des Strings
    Age As Integer
End Type

Sub WriteToFile()
    Dim person1 As Person
    Dim fileNum As Integer
    
    ' Initialisiere Person-Datensätze
    person1.ID = 1
    person1.Name = "Max Mustermann"
    person1.Age = 30
    
    ' Datei zum Schreiben öffnen
    fileNum = FreeFile
    Open "C:PfadzurDatei.dat" For Binary As #fileNum
    
    ' Schreibe Person-Datensatz in die Datei
    Put #fileNum, , person1
    
    ' Datei schließen
    Close #fileNum
End Sub

In diesem Beispiel wird ein Datensatz vom Typ `Person` erstellt und dann in eine Datei namens `Datei.dat` geschrieben:

Die `Type`-Anweisung definiert eine benutzerdefinierte Datenstruktur mit ID, Name und Alter.
Mit `FreeFile` wird eine freie Datei-Nummer bereitgestellt, die dann im `Open`-Befehl genutzt wird, um die Datei im Binärmodus zu öffnen.
Die `Put`-Anweisung schreibt den `person1`-Datensatz in die Datei.
Schließlich wird die Datei mit `Close` geschlossen.

Denken Sie daran, den Datei-Pfad zu ändern, um den Anforderungen Ihres eigenen Systems zu entsprechen.

facebooklinkedin