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.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto