VBA -Carregar um arquivo TXT com mais de 1.048.576 linhas (limite de linhas Excel - 2007)

Objetivo:

Carregar um arquivo texto para o Excel independente do número de linhas, mesmo que este número supere a quantidade de linhas por planilha no Excel.


Versão que esta sendo usada para este aprendizado:

Excel 2007.


Nota: Esta rotina pode ser usada à partir da versão 2003 do Excel
 
Passo 1:
Verifique se na sua planilha aparece a guia Desenvolvedor

Se a sua planilha estiver com esta guia continue lendo este artigo à partir do Passo 2.

 
Ativando a Guia Desenvolvedor
Clique no Botão do Office , depois em Opções de Excel e escolha Mais Usados.
Em Mais Usados, ative a caixa Mostrar guia Desenvolvedor na Faixa de Opções conforme mostra a figura abaixo

Passo 2:

Clique abaixo no botão Copiar texto.

Abra o bloco de notas e cole o texto que foi copiado (Control V).

Salve o arquivo como c:\teste.txt (salve o arquivo no diretório raiz c:\ com o nome de teste.txt) e feche o bloco de notas.

Neste arquivo, foram criadas 100 linhas além da linha do cabeçalho. Cada linha vai conter um código, uma descrição e um valor e todos eles estão separados por ";" (ponto e vírgula).

Clique abaixo no botão Copiar texto.


No menu, clicando na guia Desenvolvedor, clique em Inserir, em Controles ActiveX clique Botão de Comando (item marcado em amarelo na figura)

Segure o botão da esquerda do mouse e arraste-o pela planilha até formar um quadrado conforme a figura abaixo

Solte o botão e a figura deverá ficar igual à imagem abaixo

Dê um duplo click na caixa, apague as linhas que aparecem na figura abaixo.

Cole o conteúdo que foi copiado acima (Control V).

Clique na parte superior esquerda (figura do Excel) para retornar à planilha

Retornando para a planilha, note que na guia Desenvolvedor, esta ativada o Modo de Design também. Quando o Modo de Design esta ativado, a caixa que você colocou no Excel também esta marcada.

Nossa meta agora é alterar o texto que aparece na caixa.

Como ela já esta marcada, clique em Propriedades (ao lado do Mode de Design) e altere o texto de CommandButton1 para Clique Aqui no item Caption conforme figura abaixo. Após alterar o texto, clique em para fechar a janela Propriedades

Clique no Modo de Design para desmarcar esta opção e clique no botão para fazer o teste.

Após a execução, selecione toda a coluna A e escolha: Menu, Dados, escolha a opção Texto para Colunas. Logo após escolha a opção delimitado, clique em avançar e clique no item Ponto e Vírgula e depois em concluir.

Salve seu arquivo com o formato de macro - extensão .xlsm


Habilitando a planilha para uso
Se na hora da execução do programa, aparecer a mensagem abaixo, clique em opções.

Em seguida em Habilitar.


Baixe este modelo
ð Clique aqui - [Formato .ZIP]

Leia mais
ð Leia também as nossas dicas

Voltar página anterior   Voltar menu funções


Faça um de nossos Cursos - clique aqui para mais detalhes

Comentários
 
 Deixe seu comentário
Nome
Email
Mensagem

Quantidade de caracteres digitados:   Limite máximo de 240 caracteres

     

 

Voltar página anterior   Voltar menu funções

 

Microsoft e o logotipo do Office são marcas registradas ou comerciais da Microsoft Corporation nos Estados Unidos e/ou em outros países