Blog

Postado em em 24 de setembro de 2021

Ler Arquivos de Texto com VBA Excel – Passo a Passo

Quer aprender como ler arquivos de texto com VBA para automatizar seus trabalhos e ganhar tempo para fazer outras atividades?

Caso prefira esse conteúdo no formato de vídeo-aula, assista ao vídeo abaixo!

Para receber por e-mail o(s) arquivo(s) utilizados na aula, preencha:

Você sabia que é possível ler arquivos de texto com VBA Excel? Nessa aula eu vou te mostrar como você vai fazer isso!

É um código bem simples e vai te ajudar bastante! Vamos fazer todos os passos detalhados para que fique bem claro!

Para que você saiba como ler arquivos de texto com VBA vamos te mostrar:

Assim você vai ter os dados organizados e prontos para utilizar. Acompanhe a aula com a gente a seguir.

Abaixo temos o código que é responsável por realizar essa leitura do arquivo de texto pelo VBA, explicado e detalhado. Veja:

Sub lerArqTexto()

caminhoArq = "C:UsersdamorOneDriveHashtag (1)OnlineConteúdosPlanilhas2021VBA9-17 - Como Ler Arquivos de Texto pelo VBACanário.txt"

Open caminhoArq For Input As #1

lin = 1

Do Until EOF(1)

    Line Input #1, valorLin
   'MsgBox (valorLin)
   Cells(lin, 1).Value = valorLin
   lin = lin + 1

Loop

Close #1

Range("A:A").TextToColumns Comma:=True

End Sub

Comentários sobre o código acima (lerArqTexto):

  • Vamos armazenar na variável caminhoArq o caminho do arquivo de formato txt em questão. Lembrando que cada caminho do arquivo é único e para copiar o caminho do arquivo em questão, no Explorador de Arquivos iremos clicar no arquivo, ir em Início e clicar em Copiar caminho. Observe:
Imagem1 3
  • Em seguida vamos abrir o arquivo que está no caminho representado pela variável caminhoArq como input de dados da nossa planilha, e daremos o codinome para ele de #1
  • Definiremos a variável lin como sendo igual a 1 (um) no começo do nosso loop porque ela será uma variável auxiliar
  • Iniciaremos a nossa estrutura de repetição Do Until, que vai acontecer até o fim do arquivo em questão (EOFend of file em inglês, e final do arquivo em português), em que:
    • Pegaremos linha a linha do arquivo #1 e armazenaremos a informação na variável valorLin
    • A célula de linha lin (que inicialmente é igual a 1 e vai mudando com o Do Until) e de 1ª coluna (coluna A) vai receber o valor da variável valorLin. A cada volta do loop a informação da respectiva linha do arquivo em questão (Line) vai ser registrada na linha da planilha (dada pela variável lin)
    • Acrescentaremos 1 unidade à variável lin para que na próxima volta do loop a informação seja registrada na próxima linha da planilha
  • Ao término das linhas do arquivo em questão, vamos fechar o arquivo #1
  • Nesse momento, teremos as informações do arquivo txt inteiros na coluna A da nossa planilha. Dessa forma:
Imagem2 2
  • Precisaremos então, utilizar do comando TextToColumns (texto para colunas no Excel) na coluna A (onde temos os dados), indicando que o separador dos dados é a vírgula (comma, em inglês).
  • Assim, teremos o seguinte resultado:
Como ler arquivos de texto com VBA
Como ler arquivos de texto com VBA

Conclusão de Como Ler Arquivos de Texto com VBA

Nessa aula você aprendeu a lidar com a estrutura Do Until no VBA, que nada mais é do que uma estrutura de repetição no VBA. Ela é bem similar à estrutura For, mas vai ser executada enquanto a condição for verdadeira.

Você também viu o MsgBox no VBA, que é a caixa de mensagens para que você possa verificar se o procedimento está correto.

Por fim, também vimos como usar o TextToColumns, que é a ferramenta texto para colunas do Excel para transformar as informações que estão todas juntas e separá-las em colunas.

Valeu, pessoal! Fique ligado no nosso canal do Youtube para mais conteúdo de VBA toda semana! Um abraço!

Hashtag Treinamentos

Para acessar outras publicações de VBA, clique aqui!


Quer aprender mais sobre VBA com um Minicurso Gratuito?


Quer ter acesso a um Minicurso de Finanças no Excel de forma 100% gratuita? Preencha seu e-mail abaixo!