VBA – Função EOF

Descrição do EOF

Retorna o valor que indica se o final de um arquivo foi alcançado (booleano).

Sintaxe de EOF

No editor VBA, você pode digitar “EOF(” para ver a sintaxe da função EOF:

A função EOF contém um argumento:

FileNumber (Número do Arquivo): Qualquer número de arquivo válido.

Exemplos da Função EOF do Excel VBA

Para testar a função EOF, crie um arquivo de texto “teste.txt” na unidade D. (D:\teste.txt) Suponha que o conteúdo do arquivo seja o seguinte.

abc
1 2 3
xy z

Execute o código a seguir.

Sub Input_Fx_Exemplo()
    Dim strConteudo As String
    Dim MeuCar
    Open "D:\test.txt" For Input As #1 ' Abrir o arquivo.
    Do While Not EOF(1) ' Fazer um loop até o final do arquivo.
       MeuCar = Input(1, #1) ' Obter um caractere.
       strConteudo = strConteudo & MeuCar '
    Loop
    MsgBox strConteudo
    Close #1 ' Fechar o arquivo.
End Sub

Então, o resultado será o seguinte.

Aqui, usamos a função EOF para determinar que o final de um arquivo foi alcançado.