Inhaltsverzeichnis
FreeFile Beschreibung
Gibt die nächste gültige freie Dateinummer (Integer) zurück.
FreeFile-Syntax
Im VBA-Editor können Sie „FreeFile(“ eingeben, um die Syntax für die FreeFile-Funktion anzuzeigen:
Die FreeFile-Funktion enthält ein Argument:
Bereichsnummer: [Optional] 0 (Standard), um die Dateinummer im Bereich 1-255 zurückzugeben. 1, um die Dateinummer im Bereich 256-511 zurückzugeben.
Beispiele für Excel VBA FreeFile-Funktion
Bitte führen Sie den folgenden Code aus.
| 1234567891011121314151617 | Sub FreeFile_Example()Dim nIndex As IntegerDim nFileNumber As IntegerDim arrFileNumber(1 To 3) As IntegerFür nIndex = 1 bis 3nFileNumber = FreeFile ' Unbenutzte Dateinummer abrufenarrFileNumber(nIndex) = nFileNumber' Nummer.Öffnen Sie "D:\test" & nIndex & ".txt" für die Ausgabe als nFileNumber ' Dateinamen erstellen.Schreiben Sie #nFileNumber, "Die Dateinummer dieser Datei ist " & nFileNumber ' Ausgabetext."Nächster nIndexFür nIndex = 1 bis 3Close arrFileNumber(nIndex) ' Datei schließen.Nächster nIndexEnd Sub |
Dadurch werden 3 Dateien auf dem Laufwerk D erstellt.
test1.txt: „Die Dateinummer dieser Datei ist 1“
test2.txt: „Die Dateinummer dieser Datei ist 2“
test3.txt: „Die Dateinummer dieser Datei ist 3“
Dies zeigt, dass 1, 2, 3 von der FreeFile-Funktion zurückgegeben werden.
