Indholdsfortegnelse
FreeFile Beskrivelse
Returnerer det næste gyldige gratis filnummer (heltal).
FreeFile -syntaks
I VBA Editor kan du skrive "FreeFile (" for at se syntaksen for FreeFile -funktionen:
FreeFile -funktionen indeholder et argument:
Område Antal: [Valgfrit] 0 (standard) for at returnere filnummer i området 1-255. 1 for at returnere filnummer i området 256-511.
Eksempler på Excel VBA FreeFile -funktion
Kør venligst følgende kode.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex som heltalDim nFileNumber som heltalDim arrFileNumber (1 til 3) som heltalFor nIndex = 1 til 3nFileNumber = FreeFile 'Hent ubrugt filnummerarrFileNumber (nIndex) = nFileNumber' nummer.Åbn "D: \ test" & nIndex & ".txt" For Output As nFileNumber 'Opret filnavn.Skriv #nFileNumber, "Filens filnummer er" & nFileNumber 'Output -tekst. "Næste nIndexFor nIndex = 1 til 3Luk arrFileNumber (nIndex) 'Luk fil.Næste nIndexAfslut Sub |
Dette vil oprette 3 filer på D -drevet.
test1.txt: "Filens filnummer er 1"
test2.txt: "Filens filnummer er 2"
test3.txt: "Filens filnummer er 3"
Dette viser, at returnerer 1, 2, 3 ved FreeFile -funktion.
