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.