¿Cómo usar la función EOF en VBA?

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_directoriotu_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

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Ayúdanos a hacer crecer el proyecto

Deja un comentario