Home Excel - Dicas Microsoft Excel VBA Excel VBA - Arquivos Excel planilha vba arquivos texto importa dados arquivo txt para excel

Excel planilha vba arquivos texto importa dados arquivo txt para excel

E-mail Imprimir PDF

Saberexcel - o site das macros

Este exemplo Microsoft Excel VBA(Visual Basic Application), abre um arquivo txt e importa os dados para coluna(A) de uma determinada folha de Planilha. observe que no arquivo texto onde for usado a virgula para separação de palavras, é inserido automaticamente uma quebra de linha.
Observe que a macro busca os dados em um arquivo texto no Path(Diretório) Ativo, e já inseri um arquivo texto no path do exemplo chamado Dados.txt

Sub Abrindo_um_arquivo_txt()
Dim Relacao, Numero, Localizacao

Saber1.Columns(1).ClearContents

Localizacao = 2

Open ThisWorkbook.Path & "\Dados.txt" For Input As #1 ' Abre o arquivo para entrada dos dados.

Do While Not EOF(1) ' EOF(1)>>Faz o loop ate o fim do arquivo.
Input #1, Relacao ' memoriza os dados para a variável.
Saber1.Cells(Localizacao, 1) = Relacao '
Localizacao = Localizacao + 1
Loop

Close #1 ' Fecha o arquivo txt
Saber1.[A1].Value = "ABRINDO E EXTRAINDO DADOS DE UM ARQUIVO TXT"
End Sub

Sub LIMPAR()
[A1:A30].ClearContents
End Sub





Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




    Baixe o exemplo de planilha da macro acima
 
Excel planilha vba arquivo texto abre um arquivo texto no excel (23.89 kB)

Última atualização em Qua, 10 de Agosto de 2011 08:05  

Comentários   

 
Guest
# Guest 29-02-2012 10:19
Não consegui rodar o programa, sou iniciante em VBA.
Retorna um erro nesta linha:

Saber1.Columns(1).ClearContents

Obrigado
Responder | Responder com citação | Citar
 
 
FABIO AMORIM
# FABIO AMORIM 04-06-2014 18:44
Olá, primeiramente gostaria de agradecer pela ajudar e dicar que você disponibiliza nesse site.
Gostei muito dessa macro que captura as informações de um arquivo texto, porém precisaria de uma ajuda para capturar uma parte especifica do arquivo e não todo o arquivo linha por linha. pode me ajudar com isso? Obrigado
Responder | Responder com citação | Citar
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA