Notifications
Clear all

Como carregar arquivo de texto (.txt) no listbox

8 Posts
3 Usuários
0 Reactions
2,141 Visualizações
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Boa noite,

Como faço para carregar um arquivo txt direto numa listbox, por exemplo o arquivo ele tem 5 colunas e a listbox 5 colunas queria que quando ele exporta-se o arquivo para dentro da listbox fica-se nos parâmetros corretos das colunas do listbox.O Arquivo é separado por ";"

Exemplo:

Calculadora;Preta;10;Rf47;01/12/2015
Carro;Azul;20;Rf48;01/12/2015

 
Postado : 01/12/2015 5:25 pm
Basole
(@basole)
Posts: 487
Reputable Member
 

Aproveitando o seu modelo postado em outro topico, veja se é isso msm.

Click em se a resposta foi util!

 
Postado : 02/12/2015 9:54 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Apesar do modelo do Basole estar bem elaborado, e seguindo a mesma linha, só não postei antes por falta de tempo, mas adaptando as rotinas tiradas dos links abaixo :

FONTES:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=594 - Este tem um modelo para baixar que le o arquivo inteiro
http://www.exceltrick.com/formulas_macr ... -function/

Segue mais uma sugestão, apesar de como eu disse, não foge muito do modelo do colega Basole.

Importar arquivo texto para ListBox em Colunas

Descompacte os arquivos no mesmo diretorio.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/12/2015 12:09 pm
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Basole muito bommm cara sério tipo sou novato em VBA mas curto muito, uma pergunta existe em vba a possibilidade tipo de eu estar inserindo os dados na listbox como já é feito no exemplo que você postou e ao mesmo tempo ele inserindo no txt.

Exemplo:

Calculadora;Preta;10;Rf47;01/12/2015
Carro;Azul;20;Rf48;01/12/2015

Alem dele importar qdo eu inserir um valor na listbox la no arquivo txt ele vai inserindo tbm

Mas te agradeço mesmo você é fera em VBA

 
Postado : 02/12/2015 5:10 pm
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Amigão testei e funcionou mesmo, mas quando ele carrega eu entro com um item que já tem lá ele não faz a soma ele inseri outro, isso só com os que eu importei o resto ele faz certinho.

 
Postado : 03/12/2015 9:27 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Meu Brother, mas há umas diferenças entre a qtd. de campos entre o txt e os textbox(s), ou seja o txt tem 5 campos e o seu UserForm tem 4 TextBox. Precisava tb. alinhar e determinar quem é quem, e a ordem dos dados pra nao ficar desenontrados.

Click em se a resposta foi util!

 
Postado : 04/12/2015 7:18 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Amigão testei e funcionou mesmo, mas quando ele carrega eu entro com um item que já tem lá ele não faz a soma ele inseri outro, isso só com os que eu importei o resto ele faz certinho.

Blz. fiz as alteracoes considerando somente os campos do TXT (descricao, Lote e Qtde), assim como os textbox (txtItem, txtLote, txtQtde) do userform, -> que serão inseridos no ListBox.
Não sei a forma que voce vai trabalhar com os arquivos txt, mas acredito que tenha que inserir uma condição para não importar mais de uma vez o mesmo arquivo TXT, pois como voce, alem de importar o txt, vc quer inserir os dados via texbox, então desabilitei a propriedade Clear do listbox.

abc.

Click em se a resposta foi util!

 
Postado : 06/12/2015 10:34 am
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Oi amigão depois de um tempo consegui acessar a net mas vi que o arquivo carrega apenas 3 colunas preciso que ele carregue na verdade 4 colunas tentei mudar mas não entendi muito bem o código tipo eu tenho item, lote e quantidade, eu queria adicionar mais uma coluna que ficaria assim:

Item ... estab ... lote ... qtde

mas seguir os mesmos metodos que estão lá tipo soma conforme o lote igualzinho só mudar as posições no caso adicionando mais uma coluna mas esta dando erro, será que podes fazer essa modificação pra mim.
Obrigado, te agradeço e Feliz Natal!

 
Postado : 25/12/2015 1:02 pm