VBA – Instrução Line Input

Line Input (Entrada de Linha) – Descrição

Lê uma única linha de um arquivo sequencial Open e a atribui a uma cadeia de caracteres.

Sintaxe de Line Input

Line Input #FileNumber, VarName

A instrução Line Input contém 2 argumentos:

FileNumber (número de arquivo): Qualquer número de arquivo válido

VarName (nome da variável): Nome válido de variável Variant ou String

Exemplos de Instrução Line Input do Excel VBA

Para testar a instrução Line Input, 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 LineInput_Exemplo()
    Dim strLinha As String
    Dim strConteudo As String
    
    Open "D:\teste.txt" For Input As #1 ' Abrir o arquivo.
    Do While Not EOF(1) ' Fazer loop até o final do arquivo.
       Line Input #1, strLinha ' Ler a linha na variável.
       strConteudo = strConteudo & strLinha
    Loop
    Close #1 ' Fechar o arquivo.
    
    MsgBox strConteudo
End Sub

Então, o resultado será o seguinte.