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  

 
# 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 | Citação
 
 
# 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 | Citação
 

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje339
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana24999
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38728
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461557
Aprenda MS Excel VBA

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