Notifications
Clear all

Application.GetOpenFilename - Importar mais de um arquivo

4 Posts
2 Usuários
0 Reactions
954 Visualizações
(@luiz-elias)
Posts: 26
Eminent Member
Topic starter
 

Pessoal, boa tarde!

Na pasta de trabalho em anexo tenho uma macro que abre uma caixa de dialogo onde o usuário seleciona um arquivo de texto e ele é importado para a aba DADINF.

Para isso, me utilizo do comando Application.GetOpenFilename.

No entanto, gostaria de poder selecionar mais de um arquivo e ela ir importando os arquivos selecionados pelo usuário.

Já tentei alterar o multiselect para True, mas não funcionou, o Excel fica processando e não traz nada.

É possível realizar isso?

Gostaria da ajuda de vocês. Agradeço desde já!

 
Postado : 20/06/2014 1:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

vc precisa sim ligar o multiselect,
mas pegar o resultado do multiselect numa matriz e varrer a matriz, mandando abrir trabalhar e fechar cada um dos arquivos...

Tenta seguir esse caminho, eu estou indo pra casa e dps eu monto um modelo pra vc....

FF

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

 
Postado : 20/06/2014 1:13 pm
(@luiz-elias)
Posts: 26
Eminent Member
Topic starter
 

Pessoal, acho que encontrei uma solução.

Encontrei essas instruções Lbound() e Ubound(). Parece que cria uma matriz, não entendi muito bem, mas funcionou.

Estou encaminhando a planilha em anexo para vocês darem uma olhada se essa seria mesmo a melhor solução.

Vou dar uma estudada melhor nessas funções.

 
Postado : 20/06/2014 1:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não li, mas se usou matrizes, acredito ser a solução que eu propus.

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

 
Postado : 20/06/2014 1:20 pm