![](https://excelatumedida.com/wp-content/uploads/2024/01/¿Como-usar-la-funcion-EOF-en-VBA-1-1024x576.png)
Contenido
En VBA, la función EOF es utilizada para determinar si el puntero de un archivo ha llegado al final del mismo. EOF es el acrónimo de End-Of-File, o fin de archivo en español. La función devuelve True si se ha alcanzado el final del archivo o False si aún hay datos para leer.
Para utilizar la función EOF, primero debes abrir el archivo utilizando las funciones Open para lectura o escritura. Luego, puedes usar EOF en conjunto con un bucle para leer el archivo hasta que llegues al final del mismo.
Aquí tienes un ejemplo de cómo puedes usar EOF en VBA:
Sub LeerArchivo()
Dim strArchivo As String
Dim intFileNum As Integer
Dim strLinea As String
' Establecer el camino y el nombre del archivo
strArchivo = "C:\tu_directorio\tu_archivo.txt"
' Obtener el siguiente número de archivo disponible
intFileNum = FreeFile()
' Abrir el archivo para lectura
Open strArchivo For Input As #intFileNum
' Continuar leyendo hasta que se alcance el final del archivo
Do While Not EOF(intFileNum)
' Leer una línea del archivo
Line Input #intFileNum, strLinea
' Hacer algo con la línea leída, por ejemplo, imprimir en la ventana inmediata
Debug.Print strLinea
Loop
' Cerrar el archivo
Close #intFileNum
End Sub
Este script abre un archivo de texto para lectura y utiliza un bucle Do While para leer el archivo línea por línea. El bucle continúa hasta que EOF(intFileNum) devuelve True, lo que significa que se ha llegado al final del archivo. En cada iteración, se lee una línea del archivo con Line Input y se realiza alguna operación con dicha línea, como mostrarla en la ventana inmediata (Immediate Window) de VBA. Finalmente, se cierra el archivo con Close.
Recuerda que antes de poder ejecutar este script, deberás cambiar la variable strArchivo para que apunte al nombre y la dirección del archivo que deseas leer. Además, asegúrate de tener los permisos necesarios para acceder al archivo en la ruta especificada.