Inhoudsopgave
Beschrijving van gratis bestand
Retourneert het volgende geldige gratis bestandsnummer (Integer).
FreeFile-syntaxis
In de VBA-editor kunt u "FreeFile(" typen om de syntaxis voor de FreeFile-functie te zien:
De functie FreeFile bevat een argument:
Bereiknummer: [Optioneel] 0 (standaard) om het bestandsnummer in bereik 1-255 te retourneren. 1 om het bestandsnummer in bereik 256-511 te retourneren.
Voorbeelden van Excel VBA FreeFile-functie
Voer de volgende code uit.
| 1234567891011121314151617 | Sub FreeFile_Example()Dim nIndex als geheel getalDim nFileNumber als geheel getalDim arrFileNumber (1 tot 3) als geheel getalVoor nIndex = 1 tot 3nFileNumber = FreeFile ' Ongebruikt bestandsnummer ophalenarrFileNumber(nIndex) = nFileNumber' nummer.Open "D:\test" & nIndex & ".txt" voor uitvoer als nFileNumber ' Bestandsnaam maken.Schrijf #nFileNumber, "Het bestandsnummer van dit bestand is " & nFileNumber ' Uitvoertekst."Volgende nIndexVoor nIndex = 1 tot 3Sluit arrFileNumber(nIndex) ' Sluit bestand.Volgende nIndexEinde sub |
Hiermee worden 3 bestanden op de D-schijf gemaakt.
test1.txt: “Het bestandsnummer van dit bestand is 1”
test2.txt: “Het bestandsnummer van dit bestand is 2”
test3.txt: “Het bestandsnummer van dit bestand is 3”
Dit laat zien dat 1, 2, 3 wordt geretourneerd door de FreeFile-functie.
