Aviso de erro ao importar arquivos em txt através de uma macro.

Question

Preciso importar uma grande quantidade de arquivos em TXT para o Excel, realizo esta tarefa atravéz de uma Macro.

Meus arquivos em TXT ficam disponiveis uma uma pasta, e a macro progamada no excel localiza esses arquivos nesta pasta.

A cada arquivo não encontrado, o excel emite um aviso " informando o caminho da base onde os arquivos estão sendo importados, o nome do arquivo, não foi encontrado. Verifique a grafia ou tente outro caminho."

Gostaria de eliminar este comunicado ou agrupar em apenas um aviso ao término de todas as importações.

Answer 1

Caro Alan, Não sei como você está escrevendo esta macro, mas acredito que todo o conteúdo desta pasta sejam arquivos TXT. Considerando este fato, podemos desenvolver um código que leia o conteúdo da pasta antes de fazer a importação.

Dê uma olhada neste link: http://www.tomasvasquez.com.br/blog/microsoft-office/vba-listar-arquivos-de-um-diretorio

Desta forma dá para identificar se o arquivo existe ou não, ou importar somente os arquivos que estão realmente no diretório. Para eu lhe passar uma solução mais precisa, ficaria mais fácil se você colocasse um trecho do código aqui.

Grande Abraço.

Bráulio Figueiredo