VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: Put-Anweisung (Beispiel)

In diesem Beispiel wird die Put-Anweisung verwendet, um Daten in eine Datei zu schreiben. Insgesamt werden fünf Datensätze des benutzerdefinierten Typs Datensatz in die Datei geschrieben.

Type Datensatz    ' Datentyp definieren.
    Kennung As Integer
    Name As String * 20
End Type
Dim DSatz1 As Datensatz DSatzNummer' Variable deklarieren.
' Datei mit wahlfreiem Zugriff öffnen.
Open "DATEI1" For Random As #1 Len = Len(DSatz1)
For DSatzNummer = 1 To 5    ' 5 Schleifendurchläufe.
    DSatz1.Kennung = DSatzNummer    ' Kennung definieren.
    DSatz1.Name = "Name" & DSatzNummer    ' Zeichenfolge erstellen.
    Put #1, DSatzNummer, DSatz1    ' Datensatz in Datei
        ' schreiben.
Next DSatzNummer
Close #1    ' Datei schließen.