Descrizione EOF
Restituisce il valore che indica se è stata raggiunta la fine di un file (booleano).
Sintassi EOF
Nell'editor VBA, puoi digitare "EOF(" per vedere la sintassi per la funzione EOF:
La funzione EOF contiene un argomento:
Numero file: Qualsiasi numero di file valido.
Esempi di funzione EOF VBA di Excel
Per testare la funzione EOF, creare un file di testo “test.txt” sull'unità D.(D:\test.txt) Si supponga che il contenuto del file sia il seguente.
123 | abc1 2 3xy z |
Si prega di eseguire il seguente codice.
1234567891011 | Sub Input_Fx_Example()Dim strContent As StringDim MyCharApri "D:\test.txt" per l'input come #1 'Apri file.Do While Not EOF(1) ' Ciclo fino alla fine del file.MyChar = Input(1, #1) ' Ottieni un carattere.strContent = strContent & MyChar 'Ciclo continuoMsgBox strContentChiudi #1 'Chiudi file.Fine sottotitolo |
Quindi, il risultato sarà il seguente.
Qui, ha usato la funzione EOF per determinare che è stata raggiunta la fine di un file.