VBA FreeFile -funksjon

FreeFile Beskrivelse

Returnerer neste gyldige gratis filnummer (heltall).

FreeFile -syntaks

I VBA Editor kan du skrive “FreeFile (” for å se syntaksen for FreeFile -funksjonen:

FreeFile -funksjonen inneholder et argument:

Rekkevidde: [Valgfritt] 0 (standard) for å returnere filnummer i området 1-255. 1 for å returnere filnummer i området 256-511.

Eksempler på Excel VBA FreeFile -funksjon

Vennligst kjør følgende kode.

1234567891011121314151617

Sub FreeFile_Example ()Dim nIndex som heltallDim nFileNumber som heltallDim arrFileNumber (1 til 3) som heltallFor nIndex = 1 til 3nFileNumber = FreeFile 'Få ubrukt filnummerarrFileNumber (nIndex) = nFileNumber' Nummer.Åpne "D: \ test" & nIndex & ".txt" For Output As nFileNumber 'Opprett filnavn.Skriv #nFileNumber, "Filnummeret til denne filen er" & nFileNumber 'Output -tekst. "Neste nIndexFor nIndex = 1 til 3Lukk arrFileNumber (nIndex) 'Lukk fil.Neste nIndexSlutt Sub

Dette vil opprette 3 filer på D -stasjonen.

test1.txt: "Filnummeret til denne filen er 1"

test2.txt: "Filnummeret til denne filen er 2"

test3.txt: "Filnummeret til denne filen er 3"

Dette viser at returnerer 1, 2, 3 med FreeFile -funksjonen.