Função EOF

Retorna um Inteiro contendo o valor BooleanoTrue quando o final de um arquivo aberto para Entrada Aleatória ou sequencial foi atingido.

Sintaxe

EOF(número do arquivo)

O argumentofilenumber necessário é um inteiro que contém qualquer número de arquivo válido.

Comentários

Use o EOF para evitar o erro gerado ao tentar obter entrada após o final de um arquivo.

A função EOF retorna False até que o final do arquivo seja alcançado. Com os arquivos abertos para acesso Aleatório ou Binário , o EOF retorna False até que a última instrução Get executada não consiga ler um registro inteiro.

Com os arquivos abertos para acesso binário , uma tentativa de ler o arquivo usando a função Input até que EOF retorne True gera um erro. Use as funções LOF e Loc em vez de EOF ao ler arquivos binários com Entrada ou use Get ao usar a função EOF . Com os arquivos abertos para Saída, EOF sempre retorna True.

Exemplo

Este exemplo usa a função EOF para detectar o final de um arquivo. Este exemplo pressupõe que MYFILE seja um arquivo de texto com algumas linhas de texto.

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.