Descrição EOF
Retorna o valor que indica se o fim de um arquivo foi atingido (booleano).
Sintaxe EOF
No Editor VBA, você pode digitar “EOF (” para ver a sintaxe da Função EOF:
A função EOF contém um argumento:
Número do arquivo: Qualquer número de arquivo válido.
Exemplos de função Excel VBA EOF
Para testar a função EOF, crie um arquivo de texto “test.txt” na unidade D. (D: \ test.txt) Suponha que o conteúdo do arquivo seja o seguinte.
123 | abc1 2 3xy z |
Execute o seguinte código.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharAbra "D: \ test.txt" para Input As # 1 'Abra o arquivo.Do While Not EOF (1) 'Loop até o final do arquivo.MyChar = Input (1, # 1) 'Pegue um caractere.strContent = strContent & MyChar 'CicloMsgBox strContentFechar # 1 'Fechar arquivo.End Sub |
Então, o resultado será o seguinte.
Aqui, a função EOF usada para determinar se o final de um arquivo foi atingido.