VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: FreeFile-Funktion (Beispiel)

In diesem Beispiel wird die FreeFile-Funktion verwendet, um die nächste verfügbare Dateinummer zurückzugeben. In der Schleife werden fünf Dateien zur Ausgabe geöffnet und mit Beispieldaten beschrieben.

Dim Index1, Dateinummer
For Index1 = 1 To 5    ' Schleife 5 mal
        ' durchlaufen.
    Dateinummer = FreeFile    ' neue Datei-Nr.
        ' bestimmen.
    Open "TEST" & Index1 For Output As #Dateinummer    ' Dateiname
        ' erstellen.
    Write #Dateinummer, "Beispieldaten."    ' Text ausgeben.
    Close #Dateinummer    ' Datei schließen.
Next Index1