Fonction VBA EOF

Description de l'EOF

Renvoie la valeur indiquant si la fin d'un fichier a été atteinte (booléen).

Syntaxe EOF

Dans l'éditeur VBA, vous pouvez taper "EOF(" pour voir la syntaxe de la fonction EOF :

La fonction EOF contient un argument :

Numéro de dossier: Tout numéro de dossier valide.

Exemples de fonction Excel VBA EOF

Pour tester la fonction EOF, créez un fichier texte « test.txt » sur le lecteur D. (D:\test.txt) Supposons que le contenu du fichier est le suivant.

123	abc1 2 3xyz

Veuillez exécuter le code suivant.

1234567891011

Sous Input_Fx_Example()Dim strContent As StringDiminuer mon caractèreOuvrez "D:\test.txt" pour l'entrée en tant que #1 ' Ouvrir le fichier.Do While Not EOF(1) ' Boucle jusqu'à la fin du fichier.MyChar = Input(1, #1) ' Récupère un caractère.strContent = strContent & MyChar 'BoucleMsgBox strContentFermer #1 ' Ferme le fichier.Fin du sous-marin

Ensuite, le résultat sera le suivant.

Ici, la fonction EOF utilisée pour déterminer que la fin d'un fichier a été atteinte.