Tabla de contenido
Descripción EOF
Devuelve el valor que indica si se ha llegado al final de un archivo (booleano).
Sintaxis EOF
En el Editor de VBA, puede escribir "EOF (" para ver la sintaxis de la función EOF:
La función EOF contiene un argumento:
Número de expediente: Cualquier número de archivo válido.
Ejemplos de la función EOF de Excel VBA
Para probar la función EOF, cree un archivo de texto “test.txt” en la unidad D. (D: \ test.txt) Suponga que el contenido del archivo es el siguiente.
123 | a B C1 2 3xy z |
Ejecute el siguiente código.
1234567891011 | Sub Input_Fx_Example ()Dim strContent como cadenaDim MyCharAbra "D: \ test.txt" para ingresar como n. ° 1 'Abrir archivo.Hacer mientras no EOF (1) 'Bucle hasta el final del archivo.MyChar = Input (1, # 1) 'Obtiene un carácter.strContent = strContent y MyChar 'CírculoMsgBox strContentClose # 1 'Cerrar archivo.End Sub |
Entonces, el resultado será el siguiente.
Aquí, se utilizó la función EOF para determinar que se alcanzó el final de un archivo.