Funzione VBA FreeFile

Descrizione del file gratuito

Restituisce il successivo numero di file libero valido (intero).

Sintassi FreeFile

Nell'editor VBA, puoi digitare "FreeFile(" per vedere la sintassi per la funzione FreeFile:

La funzione FreeFile contiene un argomento:

Numero intervallo: [Facoltativo] 0 (predefinito) per restituire il numero di file nell'intervallo 1-255. 1 per restituire il numero di file nell'intervallo 256-511.

Esempi di funzione Excel VBA FreeFile

Si prega di eseguire il seguente codice.

1234567891011121314151617 Sub FreeFile_Example()Dim nIndex As IntegerDim nFileNumber As IntegerDim arrFileNumber(1 To 3) As IntegerPer nIndex = da 1 a 3nFileNumber = FreeFile ' Ottieni il numero di file non utilizzatoarrFileNumber(nIndex) = nFileNumber' numero.Apri "D:\test" & nIndex & ".txt" Per output come nFileNumber ' Crea nome file.Scrivi #nFileNumber, "Il numero di questo file è " & nFileNumber ' Testo di output."Prossimo nIndicePer nIndex = da 1 a 3Chiudi arrFileNumber(nIndex) 'Chiudi file.Prossimo nIndiceFine sottotitolo

Questo creerà 3 file sull'unità D.

test1.txt: "Il numero di file di questo file è 1"

test2.txt: "Il numero di file di questo file è 2"

test3.txt: "Il numero di file di questo file è 3"

Questo mostra che restituisce 1, 2, 3 dalla funzione FreeFile.

wave wave wave wave wave