Innehållsförteckning
FreeFile Beskrivning
Returnerar nästa giltiga lediga filnummer (heltal).
FreeFile -syntax
I VBA Editor kan du skriva "FreeFile (" för att se syntaxen för FreeFile -funktionen:
FreeFile -funktionen innehåller ett argument:
Område Antal: [Valfritt] 0 (standard) för att returnera filnummer i intervallet 1-255. 1 för att returnera filnummer i intervallet 256-511.
Exempel på Excel VBA FreeFile -funktion
Kör följande kod.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex som heltalDim nFileNumber som heltalDim arrFileNumber (1 till 3) som heltalFör nIndex = 1 till 3nFileNumber = FreeFile 'Skaffa oanvänt filnummerarrFileNumber (nIndex) = nFileNumber' siffra.Öppna "D: \ test" & nIndex & ".txt" För utmatning som nFileNumber 'Skapa filnamn.Skriv #nFileNumber, "Filens filnummer är" & nFileNumber 'Output text. "Nästa nIndexFör nIndex = 1 till 3Stäng arrFileNumber (nIndex) 'Stäng fil.Nästa nIndexAvsluta Sub |
Detta skapar 3 filer på D -enheten.
test1.txt: "Filens filnummer är 1"
test2.txt: "Filens filnummer är 2"
test3.txt: “Filens filnummer är 3”
Detta visar att returnerar 1, 2, 3 med FreeFile -funktionen.
